In REXX, how to know that end of file is reached.

[Akshypal]

Hi,

Please can anyone let me know in REXX while reading a file into stack, how can we identify about end of file condition?

Thanks

[Anuj Dhawan]

With EXECIO when you receive a non-zero return-code, it should serve what you're looking for. Something on these lines should help you:

Code: Select all

         eof = 'no'
         DO WHILE eof = 'no'
           "EXECIO 1 DISKR INDD"
            IF RC = 0 THEN          /*  read successful*/
              DO
                PULL record                
              END
            ELSE eof = 'yes'
         END
         "EXECIO 0 DISKR INDD (FINIS"
         EXIT 0

[Akshypal]

Great - that did work for me.

Thanks for the help!

[Anuj Dhawan]

Nice to know that it worked for you.

Thanks for the feedback!