IBM Mainframe Forum

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

/*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'