Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

FileManager using a REXX proc can't handle a non-zero return

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Sat Feb 09, 2013 3:57 am    Post subject: FileManager using a REXX proc can't handle a non-zero return
Reply with quote

I have a Batch Edit in File Manager for IMS that I want to use a REXX proc.

Everything seemed to be going OK until I tried to read in a flat file one line at a time using EXECIO 1. That gets a return code of 2 at end of file and that's what all of the examples in the REXX manual use to check for EOF.

HOWEVER, when I use this in the IEB proc, the whole thing bails out when the RC of 2 occurs:

Code:

      8 *-* DO UNTIL RC=2                           
      9 *-*  ADDRESS MVS "EXECIO 1 DISKR FILEIN "   
        >>>    "EXECIO 1 DISKR FILEIN "             
        +++ RC(2) +++                               
     36 *-* exbad:                                   
        *-* EXIT "BAD" RC                           
0FMNBB382 REXX exec terminated with RC 2             
0FMNIB426 Function terminated                       


That line 36 is NOT mine. It seems to be coming from something between my code and the system.

Is there some other way to find the EOF with using the EXECIO *? Or maybe a way to trap that bad RC before the hidden layer kicks in?
Back to top
View user's profile Send private message

Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Sat Feb 09, 2013 4:14 am    Post subject: Reply to: FileManager using a REXX proc can't handle a non-z
Reply with quote

Found a temporary workaround:
Code:

MY_EOF = 0                             
DO UNTIL MY_EOF=2                     
  ADDRESS MVS "EXECIO 1 DISKR FILEIN "
  PARSE PULL INREC                     
  say INREC                           
  IF SUBSTR(INREC,1,3) = 'EOF' THEN   
  DO                                   
    MY_EOF = 2                         
  END                                 
  ELSE                                 
  DO                                   
    REC_CNT = REC_CNT + 1             
  END                                 
END                                   


Added an extra line that reads 'EOF' and check for that. Not the best thing in the world, but this is a personal utility.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts EXIT or RETURN cvnlynn CLIST & REXX 9 Wed Jul 19, 2017 2:50 am
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us