Hello I'm hoping someone can help me with an issue we are experiencing following an upgrade from z/OS 1.11 to 1.13. We are running an REXX EXEC in batch which does not run TSO and fails on a s047 abend during an ADDRESS LINKMVS IEHPROGM. I have noticed other people have had similar issues, but I cannot determine the cause. I have attached the DELMEM REXXx exec and the SYSOUT with trace from my batch job. We have our own IRXFLOC in LINKLIB that has our customer routines, we do not use IBM's IRXFLOC.
Any assistance would be greatly appreciated. Domenic OB01442 +IRX0250E System abend code 047, reason code 00000000. 11.37.22 JOB01442 +IRX0255E Abend in host command IEHPROGM or address environment routine LINKMVS. 11.37.22 JOB01442 IEA995I SYMPTOM DUMP OUTPUT 875 875 SYSTEM COMPLETION CODE=047 875 TIME=11.37.22 SEQ=01452 CPU=0000 ASID=0094 875 PSW AT TIME OF ERROR 078D2000 8001CE4E ILC 2 INTC 6B 875 ACTIVE LOAD MODULE ADDRESS=000191F8 OFFSET=00003C56 875 NAME=IEHPROGM 875 DATA AT PSW 0001CE48 - 58101000 0A6B5023 002C0700 875 AR/GR 0: 00000000/00000038 1: 00000000/00000030 875 2: 00000000/00000000 3: 00000000/009D1D28 875 4: 00000000/0001FBC1 5: 00000000/0001BCEC 875 6: 00000000/0001C894 7: 00000000/6001CCB8 875 8: 00000000/8001AD22 9: 00000000/0001C890 875 A: 00000000/0001BE88 B: 00000000/0001CE88 875 C: 00000000/0001FAF0 D: 00000000/00020904 875 E: 00000000/0001142C F: 01000002/00000000 875 END OF SYMPTOM DUMP 11.37.22 JOB01442 +IRX0040I Error running DELMEM, line 126: Incorrect call to routine 11.37.22 JOB01442 +IRX0040I Error running DOMO1, line 2: Incorrect call to routine 11.37.22 JOB01442 IEC999I IFG0202J,PST01DTA,REXX 11.37.22 JOB01442 IEC999I IFG0TC0A,IFG0TC0B,PST01DTA,REXX ,DEB ADDR=9C0238 ,DSN = PST01DT.PST01DTA.JOB01442.D0000102.? Domenic Cifani Technology Consultant III Network Software Canada HP Enterprise Services Telephone (905) 383-7864 HP Cell (905) 869-3279 Email domenic.cif...@hp.com<mailto:bernie.macis...@eds.com> 242 Upper Mount Albion RD Unit 12 Stoney Creek On L8J 0B1 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
/* REXX Delete a list of members without TSO/ISPF services */ /* Alias RENMEM is also supported to rename members but be aware that with rename, if the new name already exists, it is deleted without warning or prompting before the rename is done. */ /* Alias DELDSN is also supported to delete a dataset */ /* Operands/arguments are basically positional. The most efficient method of invocation is as a REXX subroutine/function. Herein the 2nd through nth operands are specified as one argument e.g. call DELMEM ddname, mem1 mem2 mem3 (only 1 comma) The first operand specifies the library/dataset but the datasetname excludes the member specification. The value of the first operand is either a ddname for a dataset that has been allocated external to this routine is used or it is a dataset name which this routine will allocate. */ /* DELMEM is intrenched into the skeleton PDI07D for the implementation of CICS/DB2/Cobol programs */ trace r parse upper arg ddname, mem_name parse upper source . invoke_method alias . if invoke_method = 'COMMAND' then do parse value(space(translate(ddname mem_name,' ',','),1)) with ddname mem_name select when alias = 'DELDSN' then do if ddname = ' ' then call putzmsg 'Correct format is DELDSN ddname' else call DELDSN ddname end when alias = 'DELMEM' then do if ddname = ' ' | mem_name = ' ' then call putzmsg 'Correct format is DELMEM ddname mem' else call DELMEM ddname, mem_name end when left(alias,3) = 'REN' then do if ddname = ' ' | words(mem_name) < 2 then call putzmsg 'Correct format is RENMEM ddname mem newmember' else call RENMEM ddname, mem_name end otherwise call putzmsg alias ddname 'is not supported.' end exit end for_free = 'SYSIN' if pos('.',ddname) > 0 then do dsn = ddname exist = scc@dsn(dsn,,'VOL_SER') if vol_ser = 'MIGRAT' then do call putzmsg dsn 'is migrated.' exit 8 end if \exist then do call putzmsg dsn 'does not exist.' exit 8 end ddname = 'DELMEM' if \sccalloc('DELMEM',dsn) then do call putzmsg 'Unable to allocate' dsn'.' exit 8 end else for_free = for_free 'DELMEM' end else do dsn = dsn4dd(ddname) if rc = -1 then do call putzmsg 'DDname' ddname 'is not allocated.' exit 8 end vol_ser = vol4dd(ddname) end call dynalloc '00010052000000530000'x ||, tunit('SYSIN','DISP=(NEW,KEEP,KEEP),' ||, 'SPACE=(0,(1,1)),UNIT=VIO,' ||, 'LRECL=80,BLKSIZE=0,RECFM=FB') call dsn4dd 'SYSPRINT' if rc = -1 then do for_free = for_free 'SYSPRINT' call dynalloc '0001005200000053000000240000000100010008'x || 'SYSPRINT' end select when alias = 'DELDSN' then do queue left(' SCRATCH DSNAME='dsn',',71)'x' queue ' VOL=3390='vol_ser end when left(alias,3) == 'REN' then do words(arg(2))%2 parse var mem_name old_ new_ mem_name queue left(' SCRATCH DSNAME='dsn',MEMBER='old_',',71)'x' queue ' VOL=3390='vol_ser queue left(' RENAME DSNAME='dsn',MEMBER='old_',',71)'x' queue ' NEWNAME='new_',VOL=3390='vol_ser end otherwise do words(arg(2)) parse var mem_name mem_ mem_name queue left(' SCRATCH DSNAME='dsn',MEMBER='mem_',',71)'x' queue ' VOL=3390='vol_ser end end queue '' 'EXECIO * DISKW SYSIN (FINIS' address 'TSO' address LINKMVS 'IEHPROGM' if for_free \= '' then call sccalloc for_free return rc ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
J E S 2 J O B L O G -- S Y S T E M S Y S J -- N O D E S T E L C O 11.37.22 JOB01442 ---- TUESDAY, 04 SEP 2012 ---- 11.37.22 JOB01442 TSS7000I PST01DT Last-Used 04 Sep 12 11:23 System=SYSJ Facility=NETMASTR 11.37.22 JOB01442 TSS7001I Count=04710 Mode=Fail Locktime=None Name=CIFANI D 11.37.22 JOB01442 $HASP373 PST01DTA STARTED - INIT 2 - CLASS A - SYS SYSJ 11.37.22 JOB01442 IEF403I PST01DTA - STARTED - TIME=11.37.22 11.37.22 JOB01442 - --TIMINGS (MINS.)-- ----PAGING COUNTS--- 11.37.22 JOB01442 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS 11.37.22 JOB01442 -PST01DTA BR14 00 9 1 551177 .00 .0 779 0 0 0 0 0 11.37.22 JOB01442 +IRX0250E System abend code 047, reason code 00000000. 11.37.22 JOB01442 +IRX0255E Abend in host command IEHPROGM or address environment routine LINKMVS. 11.37.22 JOB01442 IEA995I SYMPTOM DUMP OUTPUT 875 875 SYSTEM COMPLETION CODE=047 875 TIME=11.37.22 SEQ=01452 CPU=0000 ASID=0094 875 PSW AT TIME OF ERROR 078D2000 8001CE4E ILC 2 INTC 6B 875 ACTIVE LOAD MODULE ADDRESS=000191F8 OFFSET=00003C56 875 NAME=IEHPROGM 875 DATA AT PSW 0001CE48 - 58101000 0A6B5023 002C0700 875 AR/GR 0: 00000000/00000038 1: 00000000/00000030 875 2: 00000000/00000000 3: 00000000/009D1D28 875 4: 00000000/0001FBC1 5: 00000000/0001BCEC 875 6: 00000000/0001C894 7: 00000000/6001CCB8 875 8: 00000000/8001AD22 9: 00000000/0001C890 875 A: 00000000/0001BE88 B: 00000000/0001CE88 875 C: 00000000/0001FAF0 D: 00000000/00020904 875 E: 00000000/0001142C F: 01000002/00000000 875 END OF SYMPTOM DUMP 11.37.22 JOB01442 +IRX0040I Error running DELMEM, line 126: Incorrect call to routine 11.37.22 JOB01442 +IRX0040I Error running DOMO1, line 2: Incorrect call to routine 11.37.22 JOB01442 IEC999I IFG0202J,PST01DTA,REXX 11.37.22 JOB01442 IEC999I IFG0TC0A,IFG0TC0B,PST01DTA,REXX ,DEB ADDR=9C0238 ,DSN = PST01DT.PST01DTA.JOB01442.D0000102.? CC 11.37.22 JOB01442 IEC999I IFG0200V,PST01DTA,REXX 11.37.22 JOB01442 IEC999I IFG0TC0A,IFG0TC0B,PST01DTA,REXX ,DEB ADDR=9C014C ,DSN = SYS12248.T113722.RA000.PST01DTA.R0362335 CC 11.37.22 JOB01442 IEA995I SYMPTOM DUMP OUTPUT 882 882 SYSTEM COMPLETION CODE=C03 882 TIME=11.37.22 SEQ=01457 CPU=0000 ASID=0094 882 PSW AT TIME OF ERROR 070C0000 854D9CAE ILC 2 INTC 0D 882 NO ACTIVE MODULE FOUND 882 NAME=UNKNOWN 882 DATA AT PSW 054D9CA8 - 58108014 0A0D58C0 549C9180 882 GR 0: 00000037_054D9CAE 1: 00000000_80C03000 882 2: 00000000_854D9C96 3: 00000000_009FA328 882 4: 00000000_7F4FD0E8 5: 00000000_7FFAA6A8 882 6: 00000000_054D9A58 7: 00000000_7F4FD0E8 882 8: 00000000_054DA8C0 9: 00000000_009FF3A0 882 A: 00000000_009FA328 B: 00000000_00FDC448 882 C: 00000000_009FA328 D: 00000000_009FA394 882 E: 00000000_00DF92A0 F: 00000000_00000004 882 END OF SYMPTOM DUMP 11.37.22 JOB01442 IEF450I PST01DTA REXX - ABEND=SC03 U0000 REASON=00000000 883 883 TIME=11.37.22 11.37.22 JOB01442 -PST01DTA REXX *SC03 91 25 551177 .00 .0 61151 0 0 0 0 0 11.37.22 JOB01442 IEF404I PST01DTA - ENDED - TIME=11.37.22 11.37.22 JOB01442 -PST01DTA ENDED. NAME-SOFT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 11.37.22 JOB01442 $HASP395 PST01DTA ENDED ------ JES2 JOB STATISTICS ------ 04 SEP 2012 JOB EXECUTION DATE 36 CARDS READ 259 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 1 SYSOUT PAGE RECORDS 14 SYSOUT SPOOL KBYTES 0.01 MINUTES EXECUTION TIME 1 //PST01DTA JOB (),'SOFT',CLASS=A, JOB01442 // MSGCLASS=Q,COND=(16,LE), // USER=PST01DT,NOTIFY=&SYSUID, // REGION=4M //******************************************************** //** //** Job submitted via macro JCLSUB (APPLID=ISR). //** from member : LINKMVS //** of dataset : VZ90V1.ZOS.CNTL //** by PST01DT on Tuesday 4 Sep 2012 at 11:37am //** //******************************************************** IEFC653I SUBSTITUTION JCL - (),'SOFT',CLASS=A,MSGCLASS=Q,COND=(16,LE),USER=PST01DT,NOTIFY=PST01DT,REGION=4M 2 //DEFAULT OUTPUT JESDS=ALL,DEFAULT=YES, // NAME='DOMENIC CIFANI', // ROOM='ST-15', // DEPT='SOFTWARE SERVICES', // ADDRESS=('', // '', // '', // '') /*JOBPARM T=1,L=10,F=RS11 /*ROUTE PRINT RMT0 //*YSOK EXEC SYSOK //* 3 //BR14 EXEC PGM=IEFBR14,REGION=4K 4 //STEPLIB DD DSN=STPROD.DRJELOAD,DISP=SHR //* 5 //REXX EXEC PGM=IRXJCL, // PARM='DOMO1' 6 //SYSTSPRT DD SYSOUT=(,) 7 //SYSEXEC DD DISP=SHR,DSN=PST01DT.CLIST 8 // DD DISP=SHR,DSN=TCS0TSO.SYSTEM.FUNCLIB 9 // DD DISP=SHR,DSN=TCS0TSO.SYSTEM.MACCLIB 10 // DD DISP=SHR,DSN=TCS0TSO.SYSTEM.ISPCLIB 11 //VZ90V1 DD DISP=SHR,DSN=VZ90V1.ZOS.CNTL 12 //SYSPRINT DD SYSOUT=* DTM1459I 2012.248 11:37:22 JOB PST01DTA REQUEUED TO CLASS=A PRIORITY=1 TSS7000I PST01DT Last-Used 04 Sep 12 11:23 System=SYSJ Facility=NETMASTR TSS7001I Count=04710 Mode=Fail Locktime=None Name=CIFANI D IEF236I ALLOC. FOR PST01DTA BR14 IGD103I SMS ALLOCATED TO DDNAME STEPLIB IEF142I PST01DTA BR14 - STEP WAS EXECUTED - COND CODE 0000 IGD104I STPROD.DRJELOAD RETAINED, DDNAME=STEPLIB IEF373I STEP/BR14 /START 2012248.1137 IEF032I STEP/BR14 /STOP 2012248.1137 CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC VIRT: 4K SYS: 252K EXT: 4K SYS: 12268K IEF236I ALLOC. FOR PST01DTA REXX IEF237I JES2 ALLOCATED TO SYSTSPRT IGD103I SMS ALLOCATED TO DDNAME SYSEXEC IGD103I SMS ALLOCATED TO DDNAME IGD103I SMS ALLOCATED TO DDNAME IGD103I SMS ALLOCATED TO DDNAME IEF237I 6000 ALLOCATED TO VZ90V1 IEF237I JES2 ALLOCATED TO SYSPRINT IGD101I SMS ALLOCATED TO DDNAME (SYSIN ) DSN (SYS12248.T113722.RA000.PST01DTA.R0362335 ) STORCLAS (SCTEMP) MGMTCLAS ( ) DATACLAS ( ) VOL SER NOS= SMS035 IEF237I 6000 ALLOCATED TO SYS00001 IRX0250E System abend code 047, reason code 00000000. IRX0255E Abend in host command IEHPROGM or address environment routine LINKMVS. IEA995I SYMPTOM DUMP OUTPUT SYSTEM COMPLETION CODE=047 TIME=11.37.22 SEQ=01452 CPU=0000 ASID=0094 PSW AT TIME OF ERROR 078D2000 8001CE4E ILC 2 INTC 6B ACTIVE LOAD MODULE ADDRESS=000191F8 OFFSET=00003C56 NAME=IEHPROGM DATA AT PSW 0001CE48 - 58101000 0A6B5023 002C0700 AR/GR 0: 00000000/00000038 1: 00000000/00000030 2: 00000000/00000000 3: 00000000/009D1D28 4: 00000000/0001FBC1 5: 00000000/0001BCEC 6: 00000000/0001C894 7: 00000000/6001CCB8 8: 00000000/8001AD22 9: 00000000/0001C890 A: 00000000/0001BE88 B: 00000000/0001CE88 C: 00000000/0001FAF0 D: 00000000/00020904 E: 00000000/0001142C F: 01000002/00000000 END OF SYMPTOM DUMP IRX0040I Error running DELMEM, line 126: Incorrect call to routine IRX0040I Error running DOMO1, line 2: Incorrect call to routine IEC999I IFG0202J,PST01DTA,REXX IEC999I IFG0TC0A,IFG0TC0B,PST01DTA,REXX ,DEB ADDR=9C0238 ,DSN = PST01DT.PST01DTA.JOB01442.D0000102.? CC IEC999I IFG0200V,PST01DTA,REXX IEC999I IFG0TC0A,IFG0TC0B,PST01DTA,REXX ,DEB ADDR=9C014C ,DSN = SYS12248.T113722.RA000.PST01DTA.R0362335 CC IEA995I SYMPTOM DUMP OUTPUT SYSTEM COMPLETION CODE=C03 TIME=11.37.22 SEQ=01457 CPU=0000 ASID=0094 PSW AT TIME OF ERROR 070C0000 854D9CAE ILC 2 INTC 0D NO ACTIVE MODULE FOUND NAME=UNKNOWN DATA AT PSW 054D9CA8 - 58108014 0A0D58C0 549C9180 GR 0: 00000037_054D9CAE 1: 00000000_80C03000 2: 00000000_854D9C96 3: 00000000_009FA328 4: 00000000_7F4FD0E8 5: 00000000_7FFAA6A8 6: 00000000_054D9A58 7: 00000000_7F4FD0E8 8: 00000000_054DA8C0 9: 00000000_009FF3A0 A: 00000000_009FA328 B: 00000000_00FDC448 C: 00000000_009FA328 D: 00000000_009FA394 E: 00000000_00DF92A0 F: 00000000_00000004 END OF SYMPTOM DUMP IEF472I PST01DTA REXX - COMPLETION CODE - SYSTEM=C03 USER=0000 REASON=00000000 IEF285I PST01DT.PST01DTA.JOB01442.D0000101.? SYSOUT IGD104I PST01DT.CLIST RETAINED, DDNAME=SYSEXEC IGD104I TCS0TSO.SYSTEM.FUNCLIB RETAINED, DDNAME= IGD104I TCS0TSO.SYSTEM.MACCLIB RETAINED, DDNAME= IGD104I TCS0TSO.SYSTEM.ISPCLIB RETAINED, DDNAME= IEF285I VZ90V1.ZOS.CNTL KEPT IEF285I VOL SER NOS= IODF00. IEF285I PST01DT.PST01DTA.JOB01442.D0000102.? SYSOUT IGD105I SYS12248.T113722.RA000.PST01DTA.R0362335 DELETED, DDNAME=SYSIN IEF285I VZ90V1.ZOS.CNTL KEPT IEF285I VOL SER NOS= IODF00. IEF373I STEP/REXX /START 2012248.1137 IEF032I STEP/REXX /STOP 2012248.1137 CPU: 0 HR 00 MIN 00.32 SEC SRB: 0 HR 00 MIN 00.00 SEC VIRT: 220K SYS: 292K EXT: 480K SYS: 12528K IEF375I JOB/PST01DTA/START 2012248.1137 IEF033I JOB/PST01DTA/STOP 2012248.1137 CPU: 0 HR 00 MIN 00.32 SEC SRB: 0 HR 00 MIN 00.00 SEC 26 *-* parse upper arg ddname, mem_name >>> "VZ90V1" >>> "TESTONE" 27 *-* parse upper source . invoke_method alias . >.> "TSO" >>> "SUBROUTINE" >>> "DELMEM" >.> "SYSEXEC ? ? MVS MVS ?" 28 *-* if invoke_method = 'COMMAND' >>> "0" 55 *-* for_free = 'SYSIN' >>> "SYSIN" 56 *-* if pos('.',ddname) > 0 >>> "0" 78 *-* else 79 *-* do 80 *-* dsn = dsn4dd(ddname) >>> "VZ90V1.ZOS.CNTL" 81 *-* if rc = -1 >>> "0" 86 *-* vol_ser = vol4dd(ddname) >>> "IODF00" 87 *-* end 90 *-* call dynalloc '00010052000000530000'x ||, tunit('SYSIN','DISP=(NEW,KEEP,KEEP),' ||, 'SPACE=(0,(1,1)),UNIT=VIO,' ||, 'LRECL=80,BLKSIZE=0,RECFM=FB') >>> "???ª???????????SYSIN ??????????????????????????????????????????????????????VIO?á?????&?????????????" >>> "1" 95 *-* call dsn4dd 'SYSPRINT' >>> "SYSPRINT" >>> "PST01DT.PST01DTA.JOB01442.D0000102.?" 96 *-* if rc = -1 >>> "0" 102 *-* select 103 *-* when alias = 'DELDSN' >>> "0" 108 *-* when left(alias,3) == 'REN' >>> "0" 116 *-* otherwise 117 *-* do words(arg(2)) >>> "1" 118 *-* parse var mem_name mem_ mem_name >>> "TESTONE" >>> "" 119 *-* queue left(' SCRATCH DSNAME='dsn',MEMBER='mem_',',71)'x' >>> " SCRATCH DSNAME=VZ90V1.ZOS.CNTL,MEMBER=TESTONE, x" 120 *-* queue ' VOL=3390='vol_ser >>> " VOL=3390=IODF00" 121 *-* end 117 *-* do words(arg(2)) 122 *-* end 123 *-* queue '' >>> "" 124 *-* 'EXECIO * DISKW SYSIN (FINIS' >>> "EXECIO * DISKW SYSIN (FINIS" 125 *-* address LINKMVS 'IEHPROGM' >>> "IEHPROGM" IRX0250E System abend code 047, reason code 00000000. IRX0255E Abend in host command IEHPROGM or address environment routine LINKMVS. +++ RC(-71) +++ 126 *-* if for_free \= '' >>> "1" *-* then *-* call sccalloc for_free >>> "SYSIN" DYNALLOC error. R15=00000004 Verb=02 Flag1=2000 Error code=0420 0000 Text unit Key=0001 count=0001 length=0005 SYSIN Text unit Key=0007 count=0000 length=0004 RC 126 +++ call sccalloc for_free IRX0040I Error running DELMEM, line 126: Incorrect call to routine 2 +++ call delmem vz90v1,testone IRX0040I Error running DOMO1, line 2: Incorrect call to routine SYSTEM SUPPORT UTILITIES ---- IEHPROGM PAGE 0001 SCRATCH DSNAME=VZ90V1.ZOS.CNTL,MEMBER=TESTONE, x VOL=3390=IODF00 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN