Page 1 of 1

DISKR -- Infinite loop

PostPosted: Thu Dec 13, 2007 11:22 am
by abirami_yn
I want to read a file, line by line and to display the same. But its going in the infinite loop.
Could you please tell me what is wrong in this code?

/*REXX*/
EOF=0
"ALLOC DD(TEMP1) DS('A730AYN.REXX.OUTPUT') SHR"
TRACE I
DO WHILE EOF=0
'EXECIO * DISKR TEMP1 (FINIS'
IF RC<>0 THEN EOF=1 ELSE NOP
PULL LINE
SAY LINE
END

Thanks In advance

Re: DISKR -- Infinite loop

PostPosted: Fri Dec 21, 2007 5:58 pm
by MrSpock
/*REXX*/
EOF=0
DO WHILE EOF=0
'EXECIO 1 DISKR TEMP1' /* READ ONLY 1 RECORD INTO THE STACK */
IF RC<>0 THEN EOF=1 ELSE
DO
PULL LINE
SAY LINE
END
END
'EXECIO 0 DISKR TEMP1 (FINIS'