This function returns the current occurrence number of the field group. If the current field group has been deleted, $FIELDGROUPOCCURRENCE returns 0.
$FIELDGROUPOCCURRENCE is available as of Model 204 version 7.5.
%num = $FIELDGROUPOCCURRENCE
FOR EACH OCCURRENCE OF FIELDGROUP REDSOX PRINT $FIELDGROUPOCCURRENCE CALL CHANGINGPROC PRINT $FIELDGROUPOCCURRENCE END FOR
This example might print a different value before and after calling the CHANGINGPROC procedure, if that procedure inserted or deleted the field group occurrence before the current one.
- In a large record, $FIELDGROUPOCCURRENCE is expensive. It intentionally scans from the start of the record, in case there were additions or deletions of the fieldgroup.
For example, say that a record being processed in an FEO FIELDGROUP loop has thousands of occurrences of a fieldgroup. In this case, invoking $FIELDGROUPOCCURRENCE for each iteration of the loop will be prohibitively expensive, and you can save significant processing resources if you label the FEO loop and substitute a simple
OCCURRENCE IN labelstatement for the $FIELDGROUPOCCURRENCE statement, as shown in the following fragment:
Begin ... example1: feo fieldgroup Foo %id = Foo.ID %code = Foo.CODE %text = Foo.TEXT %occurrence = occurrence in example1 /? was $fieldGroupOccurrence ?/ end for ... End