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
