Problem: H212T 1.3 - S0C4 abend when running on z/OS 1.4.
Solution: added support for new location of PSO control block. Apply APARS QZP1000 and QV29374.
++APAR(QZP1000).
++VER(Z038) FMID(PXT0103) PRE(QV29374).
++SRCUPD(PXTSSI)
/*
DESCRIPTION: S0C4 OCCURS IN PXTSSI WHEN RUNNING PFXTI ON
Z/OS 1.4 SYSTEMS, DUE TO JES2 PSO BLOCKS RESIDING
IN DATA SPACES. AN ATTEMPT TO RE-ASSEMBLE MODULE PXTSSI
ON Z/OS 1.4 SYSTEMS WITHOUT THIS APAR RESULTS IN AN
ASSEMBLY ERROR (LABEL SJBPSOP IN THE SJB JES2 BLOCK
NO LONGER EXISTS).
THIS APAR IS REQUIRED WHEN RUNNING ON Z/OS 1.4 SYSTEMS;
IT MAY ALSO BE REQUIRED WHEN RUNNING ON EARLIER Z/OS
SYSTEMS - CHECK WITH NETEX SOFTWARE SUPPORT AT
WWW.NETEX.COM/NESI/SUPPORT
IT IS OPTIONAL WHEN RUNNING ON OS/390 SYSTEMS.
WHEN APPLYING THIS APAR, THE SYSLIB DD STATEMENT
IN THE SMP/E JCL MUST POINT TO THE CORRECT SYSTEM AND
JES2 MACRO LIBRARIES FOR THE SYSTEM ON WHICH THIS APAR
IS BEING INSTALLED.
FOR EXAMPLE, A SAMPLE SYSLIB CONCATENATION WOULD APPEAR
AS FOLLOWS:
//SYSLIB DD DSN=PFXHLQ.PTFMAC,DISP=SHR
// DD DSN=PFXHLQ.DISTMAC,DISP=SHR
THESE MUST POINT ==> // DD DSN=SYS1.SHASMAC,DISP=SHR
TO THE CORRECT ==> // DD DSN=SYS1.MACLIB,DISP=SHR
Z/OS OR OS/390 ==> // DD DSN=SYS1.AMODGEN,DISP=SHR
LIBRARIES
MACROS AFFECTED:
MODULES AFFECTED: PXTSSI
REFERENCE:
ENVIRONMENT: Z/OS 1.4
*/ .
./ CHANGE LIST=ALL,NAME=PXTSSI
MODESET KEY=ZERO, SWITCH TO PSW-KEY 0; X00383050
MODE=SUP SUPER-STATE V09473 QZP1000 00383060
AIF ('&VERSION'(4,1) LT '3').JES2V2B GO: VERSION 2 QZP1000 00383100
AIF ('&VERSS'(1,1) EQ ' ').JES2V2B NOT Z/OS QZP1000 00383200
AIF ('&VERSS'(2,3) LT '104').JES2V2B NOT Z/OS 1.4 QZP1000 00383300
ICM R2,B'1111',SJBPSO-SJB(R3) A(PSO) QZP1000 00383400
BZ NOPSO DON'T HAVE ONE QZP1000 00383500
LAM AR2,AR2,SJBPSOA-SJB(R3) PSO ALET QZP1000 00383600
SACF X'0200' SET AR MODE QZP1000 00383700
AGO .JES2V2C CONTINUE QZP1000 00383800
.JES2V2B ANOP , QZP1000 00383900
ICM R2,B'1111',SJBPSOP-SJB(R3) A(PSO) V09473 QZP1000 00384000
BZ NOPSO DON'T HAVE ONE QZP1000 00384100
.JES2V2C ANOP , QZP1000 00384200
* V09473 QZP1000 00386000
* MODESET KEY=ZERO, SWITCH TO PSW-KEY 0; X00387000
MODE=SUP SUPER-STATE V09473 QZP1000 00388000
NOPSO DS 0H QZP1000 00391100
AIF ('&VERSS'(1,1) EQ ' ').JES2V2D NOT Z/OS QZP1000 00392100
AIF ('&VERSS'(2,3) LT '104').JES2V2D NOT Z/OS 1.4 QZP1000 00392200
SACF X'0000' SET PRIMARY MODE QZP1000 00392300
.JES2V2D ANOP , QZP1000 00392900
./ ENDUP
Problem: H212T 1.3 - assembly errors occur due to SPLEVEL not properly checking for OS/390 (and above) setting.
Solution: added correct SPLEVEL checking to PXTIDENT macro and PXTSSI module. Apply APAR QV29374:
++APAR(QV29374).
++VER(Z038) FMID(PXT0103).
++MACUPD(PXTIDENT).
./ CHANGE LIST=ALL,NAME=PXTIDENT
AIF ('&SYSSPLV' GE '3').SETEQ3 GO IF MVS/SP4 ESA QV29374 00098100
AGO .RMODE BYPASS SETTING AMODE QV29374 00198500
./ ENDUP
++SRCUPD(PXTSSI).
./ CHANGE LIST=ALL,NAME=PXTSSI
ENVIRON=JES2, JES EXECUTION ENVIRONMENT QV29374 X00137500
ORG PXTSSI BACK TO "START" ASSEMBLER QV29374 00142200
&BLR SETC 'BALR' DEFAULT: MVS/370 QV29374 00142400
AIF ('&SYSSPLV' EQ '1').AAAAA IF MVS/370: ALL SET QV29374 00142600
&BLR SETC 'BASR' MVS XA/ESA QV29374 00142800
.AAAAA ANOP , QV29374 00143000
&BLR R15,R0 A(NSI) INTO R15 QV29374 00143200
$MITETBL DS D , DUMMY ADDRESS FOR $MODULE QV29374 00147600
ORG , AHEAD TO OTHER STUFF QV29374 00148000
FIX=QV29374, SPECIFY LATEST FIX; X00164100
PRE=PXT, SPECIFY PREFIX; X00164200
TAG=PXTSSIIN SPECIFY BRANCH TAG QV29374 00164300
* FIX=QV12213 SPECIFY LATEST FIX APPLIED: QV29374 00165000
* PRE=PXT, SPECIFY PREFIX QV29374 00166000
* QV29374 00166800
EJECT QV29374 00167000
* QV29374 00167200
* "REAL STUFF" QV29374 00167400
* QV29374 00167600
DS 000D QV29374 00167800
DC CL008'PXTSSIIN' TAG'S EYE CATCHER QV29374 00168000
PXTSSIIN DS 000D COMMENCE EXECUTABLE CODE QV29374 00168200
STM R14,R12,SAVER14 SAVE REGS QV29374 00168400
&BLR R12,R0 A(NSI) INTO R15 QV29374 00168600
USING *,R12 ADDRESSABILITY QV29374 00168800
L R12,=A(PXTSSI) QV29374 00169000
DROP R12 QV29374 00169200
* LR R12,R15 ESTABLISH QV29374 00170000
AIF ('&VERSION'(4,1) GE '3').JES2V3A GO: VERISON 3 QV29374 00345000
AIF ('&VERSION'(4,1) LT '3').JES2V2A GO: VERSION 2 QV29374 00392000
$MODEND GENERATE NECESSARY ITEMS QV29374 01009300
* QV29374 01009600
AIF ('&VERSION'(4,1) GE '3').JES2V3B GO: VERSION 3 QV29374 01122000
./ ENDUP