Syntax

CimProjectData.GetNext(p1$ [,p2$ [,p3$…) as Boolean

Description

This function returns the specified attributes for the next item that matches the filter criteria. If a record is found, a value of TRUE is returned, otherwise a value of FALSE is returned.

The function takes a variable number (20 maximum) of string parameters.

The values returned into the parameters are defined by the attributes specified for the object.

Comments

Parameter

Description

p1$

String. First attribute for the object.

:

:

p20$

String. Twentieth attribute for the object.

Example 1

The following sample script returns all the data items for the PID1 object.

Sub main()

   Dim browse as new CimProjectData

   Browse.Project ="MY_PROJ"

   Browse.Entity ="OBJECT_INF"

   Browse.Attributes = DATA_ITEM"

   Browse.Filters ="OBJECT_ID=PID1"

   Dim dataItem as String

Top:

   If Browse.GetNext(dataItem) = False then end

   Msgbox dataitem

   Goto top

End Sub

Example 2

The following sample script returns all points for a device:

Sub main()

   Dim browse as new CimProjectData

   Browse.Project ="MY_PROJ"

   Browse.Entity = "POINT"

   Browse.Attributes ="POINT_ID,RESOURCE_ID"

   Browse.Filters ="DEVICE_ID=PLC1"

Top:

   If Browse.GetNext(p$,r$) = False then end

   Msgbox "Point Id " & p$ & " Resource id " & r$

   Goto top

End Sub

CIMPLICITY Extensions to Basic