SELLIM supports the following parameter:
Any integer value between 0 and 999,999,999. The default value is zero and means that there is no limit to how many times selection if evaluated to true, is performed.
The SELLIM is set to 50. Each time a SELRECIF selection criteria is met, the record is written to the appropriate file. No more records are written to either CTFILE or TNFILE once a total of 50 records have been written to both of them combined.
READ, LAYOUTFILE(LAYOUT), SELLIM(50), SELRECIF(STATE-CODE,EQ,C'CT'), MOVE(1,0,1), WRITE(CTFILE), SELRECIF(STATE-CODE,EQ,C'TN'), MOVE(1,0,1), WRITE(TNFILE)
Each time a SELRECIF's subordinate actions are processed, the SELLIM for that particular SELRECIF is incremented. In this particular case, each SELRECIF's actions are processed 50 times, thus limiting the number of records written to both the CTFILE and TNFILE to 50, for a total of 100.
READ, LAYOUTFILE(LAYOUT), MOVE(CLEAR), SELRECIF(STATE-CODE,EQ,C'CT'), SELLIM(50), MOVE(1,0,1), WRITE(CTFILE), SELRECIF(STATE-CODE,EQ,C'TN'), SELLIM(50), MOVE(1,0,1), WRITE(TNFILE)
|
Copyright © 2013 CA.
All rights reserved.
|
|