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
 

 

Why system abend ???

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 106
Location: windsor

PostPosted: Thu Jul 17, 2014 2:17 am    Post subject: Why system abend ???
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

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Thu Jul 17, 2014 2:27 am    Post subject: Reply to: Why system abend ???
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 http://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: 51
Location: Switz

PostPosted: Thu Jul 17, 2014 1:44 pm    Post subject:
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: 106
Location: windsor

PostPosted: Thu Jul 17, 2014 7:58 pm    Post subject: Answer
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts Get system time in micro second or cl... lind sh CICS 11 Mon Sep 05, 2016 11:14 pm


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