$Currec

From m204wiki
(Redirected from $CURREC)
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

The $Currec function returns an integer equal to the internal number of the current record.

At the beginning of a request, $Currec is set to minus one, an invalid record number.

At the beginning of each pass through a For Each Record loop, $Currec is set to the record number of the record to be processed in that pass. When the For loop is exited, because all records have been processed or because a Loop End or Jump statement has been encountered, $Currec is restored to its value prior to the For statement.

$Currec takes no arguments.

Usage notes

Be aware of these facts when using $Currec:

  • A Store Record statement resets $Currec to the record number of the newly stored record. If the Store Record statement is issued inside of a For Record loop, $Currec retains the stored record number until the next pass through the For loop or until the next Store Record statement. If the Store Record statement is issued outside of a For Record loop, $Currec will retain the stored record number until the next Store Record or the next For Record loop.
  • An alternative to $Currec is the RecordNumber function used against a Record object. The RecordNumber function returns the record number of the current record being processed in a For loop, and that record number does not change when a Store Record statement is evaluated.
  • In a record loop on the records of a Sort statement, $Currec is set to the record number of the record from which the temporary sort copy was made.
  • Record numbers are not unique within a file group. The number returned by $Currec is valid only in reference to the file from which the record came.

Examples

This request prints the record number of a new record:

BEGIN GET.RECS: FIND ALL RECORDS END FIND FOR 5 RECORDS IN GET.RECS PRINT 'THE INTERNAL RECORD NO IS ' WITH $CURREC END FOR END

Also, as of Model 204 version 7.5, the For Record Number statement accepts an expression after it, for example:

IN FILE CLAIMS STORE RECORD ... END STORE IN FILE CLAIMS FRN $CURREC ... END FOR