View previous topic :: View next topic
Author
Message
jackzhang75 Active User Joined: 09 Jun 2014Posts: 125 Location: US
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
Pedro Global Moderator Joined: 01 Sep 2006Posts: 2547 Location: Silicon Valley
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
Paul Voyner New User Joined: 26 Nov 2012Posts: 52 Location: UK
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
jackzhang75 Active User Joined: 09 Jun 2014Posts: 125 Location: US
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
Please enable JavaScript!