Mainframe, MVS and zOS Discussion

Posted: **Sun Oct 13, 2013 5:19 pm**

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

Posted: **Mon Oct 14, 2013 10:15 pm**

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

Posted: **Thu Oct 17, 2013 6:52 pm**

Great - that did work for me.

Thanks for the help!

Posted: **Sun Oct 20, 2013 1:13 pm**

Nice to know that it worked for you.

Thanks for the feedback!

Mainframe, MVS and zOS Discussion

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

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

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

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

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