If then do loop
Posted: Thu Jun 25, 2009 9:13 pm
Im trying to pull 2 diffrent records but only code runs but shows data for DEL only and then stays in a loop. Can anyone help.
DONE = 'NO'
LINENO = 0
DO WHILE DONE = 'NO'
"EXECIO 1 DISKR DATA"
IF RC = 0 THEN /* RECORD WAS READ */
DO
PULL RECORD
LINENO = LINENO + 1 /* COUNT THE RECORD */
IF INDEX(RECORD,'RPL') \= 0 THEN
PULL RECORD
LINENO = LINENO + 1 /* COUNT THE RECORD */
IF INDEX(RECORD,'DEL') \= 0 THEN
DO
SAY 'FOUND IN RECORD' LINENO
SAY 'RECORD = ' RECORD
END
END
ELSE NOP
END
ELSE
DONE = 'YES'
END
EXIT 0
DONE = 'NO'
LINENO = 0
DO WHILE DONE = 'NO'
"EXECIO 1 DISKR DATA"
IF RC = 0 THEN /* RECORD WAS READ */
DO
PULL RECORD
LINENO = LINENO + 1 /* COUNT THE RECORD */
IF INDEX(RECORD,'RPL') \= 0 THEN
PULL RECORD
LINENO = LINENO + 1 /* COUNT THE RECORD */
IF INDEX(RECORD,'DEL') \= 0 THEN
DO
SAY 'FOUND IN RECORD' LINENO
SAY 'RECORD = ' RECORD
END
END
ELSE NOP
END
ELSE
DONE = 'YES'
END
EXIT 0