RECSIN

Returns the count of records read so far from the input data set, and passed to the REXX procedure. Only the input records that are selected by the template are passed to the REXX procedure and included in the count returned by RECSIN.

Example

Print every hundredth record.

if RECSIN()//100 = 0 then PRINT(inrec,'CHAR')