A fix is available
APAR status
Closed as program error.
Error description
PTR P8010741 added zccbsession to the CCB at offset 140. This CCB offset was already defined as ZCCBSA2. Fortunately ZCCBSA2 seems to only be used in CICS. Technically, FXXZASM.ASMMAC defines ZCCBRSRV at CCB offset 64. And then FXXZCCX.ASMMAC redefines ZCCBRSRV, placing ZCCBSA2 at CCB offset 140. ZCCBSA2 is used in quite a few CICS Assembler programs as a register save area. This would wipe out or change any previous value stored at that offset. This means that if zccbsession were set to a valid remote session ID, this value would be changed when a subsequent program saves registers at that offset. It also means that if there is no zccbsession value (zero), then a subsequent register save might place a non-zero value at that offset. This would disrupt the logic in EDIFFUS.C that was predicated on: if (ccbp->zccbsession).
Local fix
Problem summary
PTR P8010741 added zccbsession to the CCB at offset 140. This CCB offset was already defined as ZCCBSA2. Fortunately ZCCBSA2 seems to only be used in CICS. Technically, FXXZASM.ASMMAC defines ZCCBRSRV at CCB offset 64. And then FXXZCCX.ASMMAC redefines ZCCBRSRV, placing ZCCBSA2 at CCB offset 140. ZCCBSA2 is used in quite a few CICS Assembler programs as a register save area. This would wipe out or change any previous value stored at that offset. This means that if zccbsession were set to a valid remote session ID, this value would be changed when a subsequent program saves registers at that offset. It also means that if there is no zccbsession value (zero), then a subsequent register save might place a non-zero value at that offset. This would disrupt the logic in EDIFFUS.C that was predicated on: if (ccbp->zccbsession).
Problem conclusion
The code will be changed in CICS so that a remote session ID is not stored in zccbsession. This will leave the storage at zccbsession to be used solely as ZCCBSA2's save area, thus avoiding any session ID conflicts.
Temporary fix
Comments
Applies to all WDI platforms, part of SFP8 --------------------- HOLD ACTION -------------------- ----------------- end HOLD ACTION ------------------- ž**** PE13/05/29 PTF IN ERROR. SEE APAR PM90012 FOR DESCRIPTION
APAR Information
APAR number
PM72661
Reported component name
WEBS DI ZOS
Reported component ID
5655I4003
Reported release
330
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2012-09-11
Closed date
2012-09-12
Last modified date
2013-05-30
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK81800
Modules/Macros
C EDIFFUS EDIQSS CDB2 EDIIOS CPP EDISERVR CPPDB2 EDICPROC EDIDPROC H EDIFFUH ELICBQS FXXZCAB LINK370 EDIQSS LINK390 EDICPROC EDISERVR LNKMVS EDICPROC EDIIOS EDISERVR PLNKCTL EDICPROC EDISERVR
Fix information
Fixed component name
WEBS DI ZOS
Fixed component ID
5655I4003
Applicable component levels
R330 PSY UK81800
UP12/10/18 P F210
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SUPPORT","label":"IBM Worldwide Support"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"3.3","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"3.3","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
22 August 2022