Hello Lists, wish you all have a very Merry Christmas and a very Happy New
Year!!!
May be it has been documented somewhere in a VM/REXX manual, but I am on the
road. Let me see who can point clearify this in between turkey dinner and
singing Christmas carols.
The EXEC
.
................ snipped
...............
TOT = INCARD.0
SAY 'PROCESS 'TOT' LINE FROM INPUT FILE: 'IFN IFT IFM'.....'
J = 0 /* NUMBER OF OUTPUT DATA ROWS
*/
indx = 0 /* index to INCARD.
*/
OLD_DATE = '00000000' /* DATE HOLDING WORKAREA */
PARTN = 'NN' /* partition ID */
DO Indx=1 BY 1 While Indx <= TOT
If indx > 99980 Then do; say indx incard.indx; end;
/* LOOK FOR STARTING OF A COUNTER * SET */
/* Counter values AT DATE='06-27-06' TIME='17:31:36' */
CHK = SUBSTR(INCARD.Indx,17,7)
IF CHK = 'COUNTER' Then
DO
CHK = SUBSTR(INCARD.Indx,25,6) /* look for the next string */
IF CHK = 'VALUES' THEN
..... snipped .......
and it went into a loop after the "Indx" is over 99999:
.
99996 70303 F3 0003 IST878I NUMBER OF QUEUED SESSIONS = 5
22:30:02 12/23/2008
99997 70304 F3 0003 IST878I NUMBER OF TOTAL SESSIONS = 125
22:30:02 12/23/2008
99998 70305 F3 0003 IST924I
------------------------------------------------------------- 22:30:02
12/23/2008
99999 70306 F3 0003 IST1161I SSCP SESSIONS 22:30:02
12/23/2008
1.0000E+5 INCARD.1.0000E+5
1.0000E+5 INCARD.1.0000E+5
1.0000E+5 INCARD.1.0000E+5
1.0000E+5 INCARD.1.0000E+5
1.0000E+5 INCARD.1.0000E+5
............ snipped .........................
Is there a numeric datatype of numeric has a maximum value of 99999 when using
it in as an index into an array?
I have to break the file down into seveal files each on is smaller than 99998
records. (yes, 99999 will loop too.)
Any help is appreciated. TIA
...Roland