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?
"ALLOC DD(TEMP1) DS('A730AYN.REXX.OUTPUT') SHR"
DO WHILE EOF=0
'EXECIO * DISKR TEMP1 (FINIS'
IF RC<>0 THEN EOF=1 ELSE NOP
Thanks In advance