IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Why system abend ???
IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 125
Location: US
PostPosted: Thu Jul 17, 2014 2:17 am
 Reply with quote
Hi,

I got several REXX progrom to read the different member in same data set

After i run REXX A , i got system abend after run REXX B .Mybe i can use EXECIO for same data set or how to correct the error ? Thanks

My REXX A
Code:
 /* REXX */                                                         
 "ALLOC DA('TTAP.TSP.APPLPROD.RECOVERY(LMPKEYS)') F(INDD) SHR REUSE"
 "EXECIO  *  DISKR INDD (STEM UL0."                                 
 "EXECIO  *  DISKR INDD (FINIS"     

My REXX B
Code:
/* REXX */                                                         
"ALLOC DA('TTAP.TSP.APPLPROD.RECOVERY(CRPLUSR)') F(INDD) SHR REUSE"
"EXECIO  *  DISKR INDD (STEM UL0."                                 
"EXECIO  *  DISKR INDD (FINIS"                                     
 JOBNAME=SUBSTR(UL0.1,3,8)     



The abend code:
Code:
IEC141I 013-18,IGG0191B,TU14,AAAMVS,INDD,507E,P3DCP1,                   
TTAP.TSP.APPLPROD.RECOVERY(CRPLUSR)                                     
IRX0250E System abend code 013, reason code 00000024.                   
IRX0255E Abend in host command EXECIO or address environment routine TSO.
 IEA995I SYMPTOM DUMP OUTPUT                                               
 SYSTEM COMPLETION CODE=013  REASON CODE=00000018                         
  TIME=16.45.03  SEQ=01707  CPU=0000  ASID=0090                           
  PSW AT TIME OF ERROR  075C1000   80EE87B6  ILC 2  INTC 0D               
    NO ACTIVE MODULE FOUND                                                 
    NAME=UNKNOWN                                                           
    DATA AT PSW  00EE87B0 - 4100302C  0A0D010D  A7E5014B                   
    AR/GR 0: 0088CE48/00EE8AC0   1: 00000000/A4013000                     
          2: 00000000/0000D6D0   3: 00000000/00EE8A94                     
          4: 00000000/0087D410   5: 00000000/0087D7A4                     
          6: 00000000/0087D74C   7: 00000000/0087D7A4                     
          8: 00000000/0087D76C   9: 00000000/0000D780                     
          A: 00000000/00F593B8   B: 00000000/0087CD94                     
          C: 00000000/00000008   D: 00000000/0087D7A4                     
          E: 00000000/80EE8014   F: 00000000/00000018                     
  END OF SYMPTOM DUMP                                                     
 IRX0670E EXECIO error while trying to GET or PUT a record.               
 IEC141I 013-18,IGG0191B,TU14,AAAMVS,INDD,507E,P3DCP1,                     
 TTAP.TSP.APPLPROD.RECOVERY(CRPLUSR)                                       
 IRX0250E System abend code 013, reason code 00000024.                     
 IRX0255E Abend in host command EXECIO or address environment routine TSO.
 IEA995I SYMPTOM DUMP OUTPUT                                               
 SYSTEM COMPLETION CODE=013  REASON CODE=00000018   
 TIME=16.45.04  SEQ=01708  CPU=0000  ASID=0090                   
 PSW AT TIME OF ERROR  075C1000   80EE87B6  ILC 2  INTC 0D       
   NO ACTIVE MODULE FOUND                                       
   NAME=UNKNOWN                                                 
   DATA AT PSW  00EE87B0 - 4100302C  0A0D010D  A7E5014B         
   AR/GR 0: 0088CE48/00EE8AC0   1: 00000000/A4013000             
         2: 00000000/0000D6D0   3: 00000000/00EE8A94             
         4: 00000000/0087D410   5: 00000000/0087D7A4             
         6: 00000000/0087D74C   7: 00000000/0087D7A4             
         8: 00000000/0087D76C   9: 00000000/0000D780             
         A: 00000000/00F593B8   B: 00000000/0087CD94             
         C: 00000000/00000008   D: 00000000/0087D7A4             
         E: 00000000/80EE8014   F: 00000000/00000018             
 END OF SYMPTOM DUMP                                             
IRX0670E EXECIO error while trying to GET or PUT a record.                       
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
PostPosted: Thu Jul 17, 2014 2:27 am
 Reply with quote
Code:
IEC141I 013-18,IGG0191B,TU14,AAAMVS,INDD,507E,P3DCP1,                   
TTAP.TSP.APPLPROD.RECOVERY(CRPLUSR)

Use LOOKAT and search for message IEC141I. The message description mentions return code 18.

LOOKAT is at www-03.ibm.com/systems/z/os/zos/bkserv/lookat/
Back to top
View user's profile Send private message
Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 52
Location: UK
PostPosted: Thu Jul 17, 2014 1:44 pm
 Reply with quote
It might give a clue if you add this to your program before the EXECIO
Code:
check = SYSDSN("'TTAP.TSP.APPLPROD.RECOVERY(LMPKEYS)'")
say check

and BTW you don't need EXECIO twice
Code:
 "EXECIO  *  DISKR INDD (STEM UL0. FINIS"  /* read and close */
Back to top
View user's profile Send private message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 125
Location: US
PostPosted: Thu Jul 17, 2014 7:58 pm
 Reply with quote
Thanks for your help. I used look at , and here is message , now i found the reason . thanks !!!!
An OPEN macro instruction was issued for a partitioned data set. The DSNAME parameter specified a member that could not be found.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Similar Topics
Topic Forum Replies
No new posts Sysplex System won't IPL at DR site I... All Other Mainframe Topics 2
No new posts ISAM and abend S03B JCL & VSAM 10
No new posts How to delete a user's alias from the... JCL & VSAM 11
No new posts Insert system time/date (timestamp) u... DFSORT/ICETOOL 5
No new posts JCL Dynamic System Symbols JCL & VSAM 3
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us