A fix is available
APAR status
Closed as program error.
Error description
THIS IS A REROUTE FROM CICS APAR PP38038 SO THAT IT IS SEARCHABLE FOR CICS ATTACH CUSTOMERS. KEYWORDS 5740XYR00 5740IX100 R102 SJ4107-8 IF THIS IS YOUR PROBLEM, CONSULT CICS APAR PP38038. AFTER A FORCEPURGE OF AN ACTIVE DB2 CICSATTACH TASK AND A CICS IMMEDIATE SHUTDOWN, DSN3SSES GETS CONTROL IN THE SYSTEM SERVICES ADDRESS SPACE. THE AREA POINTED TO BY THE ESTAE PARAMETER POINTER WAS AN SSES BLOCK. HOWEVER, IT HAS BEEN FREEMAINED. AS A RESULT, THE ESTAE CANNOT ACCESS THE STORAGE RESERVED FOR ITS USE, AND USES THE STORAGE BEGINNING WITH ZERO FOR LOCAL STORAGE. THIS RESULTS IN AN OVERLAY OF PSA AND A CODED WAIT. ADDITIONAL SYMPTOM: ABEND0D7 DSNVCRTH + 'F2' WHEN CICS ADDRESS SPACE IS CANCELED WITH DB2 CICS/ATTACH ACTIVE.
Local fix
DSN3SSES HAS BEEN ALTERED TO CHECK R13 FOR ZERO AND ABEND INSTEAD OF CONTINUING.
Problem summary
USERS AFFECTED: MVS USERS WITH DB2 PRODUCT AND ACCMETH=IRC. CROSS MEMORY ABENDS BECAUSE DB2 RELIES ON CICS STILL HAVING CROSS-MEMORY AUTHORIZATION AFTER LOGOFF.
Problem conclusion
THIS IS NOT REALLY A CICS PROBLEM AS OTHER PRODUCTS SHOULD NOT RELY ON CICS MAINTAINING AUTHORIZATION AFTER AN INTERREGION LOGOFF OR AN ERROR CONDITION. HOWEVER, IT HAS BEEN AGREED THAT THE SIMPLEST SOLUTION TO THE PROBLEM WOULD BE FOR CICS INTERREGION COMMUNICATION PROGRAM TO NOT RELINQUISH CROSS MEMORY AUTHORIZATION AT THIS TIME. DFHIRP WILL BE CHANGED TO NOT FREE THE AUTHORIZATION INDEX AT LOGOFF. ALSO, AT LOGON, IF AN AX ALREADY EXISTS FOR THIS ADDRESS SPACE, DFHIRP WILL USE THE EXISTING AX.
Temporary fix
CICS OS/VS AR161 APPLY FIX, AND GENERATE DFHIRP ++ APAR (AP38038) . ++ VER (C150) FMID (HCI1612) PRE (AP24609). ++ VER (C150) FMID (HCI1613) PRE (AP24609). ++ MACUPD (DFHIRPL) DISTLIB (SOURCE) ASSEM (DFHIRP) /* MODULE: DFHIRPL -- TYPE: COPY */. ./ CHANGE NAME=DFHIRPL ST R0,WSTKLIST ONE ENTRY TABLE TO BE CREATED F34893750 @BA38038 34893900 *** ST R0,WSTKLIST DELETED BY APAR @BA38038 34894000 AXEXT ASID=SUDBASID GET CURRENT AX @BA38038 34894050 STH R0,WSAX SAVE IT @BA38038 34894200 *** R @L2A DELETED BY APAR @BA38038 34894400 * IF WE HAVN'T AN LX YET BUT OUR AX IS ALR@BA38038 34895660 * SOMEONE OTHER THAN IRP MUST BE USING CRO@BA38038 34895740 * ADDRESS SPACE @BA38038 34895810 CH R0,WSAX IS IT ZERO @BA38038 34895880 BNE IRAXFAL0 NO ERROR @BA38038 34895950 SLR R0,R0 @BA38038 34902720 CH R0,WSAX DO WE NEED TO RESERVE AN AX? @BA38038 34902740 BNE IRSETOAX BYPASS AXRES @BA38038 34902760 B IRSAVEAX @BA38038 34902910 IRSETOAX EQU * @BA38038 34902920 STH R0,UCAOLDAX ZERO OLD AX @BA38038 34902930 * THIS IS TO TELL THE CODE IN TIDY THAT IT @BA38038 34902940 * TO RESTORE THE PREVIOUS AX BECAUSE THE AX@BA38038 34902950 * SET BY IRP DURING A PREVIOUS LOGON. UCAOL@BA38038 34902960 * BEFORE OUR AX IS PLACED IN UCAAX @BA38038 34902970 IRSAVEAX EQU * @BA38038 34902980 L R14,LCBUCA ADDRESS THE UCA @BA38038 34908100 USING UCA,R14 @BA38038 34908200 CH R0,WSAX IS OUR AX ALREADY SET @BA38038 34908300 BE IRTRNSWP YES.. @BA38038 34908400 *** L R14,LCBUCA R @L2A DELETED BY APAR @BA38038 34915800 *** USING UCA,R14 R @L2A DELETED BY APAR @BA38038 34915900 IRTRNSWP EQU * @BA38038 34917500 SLR R0,R0 @BA38038 34918350 IRAXFAL0 EQU * AX NONZERO BEFORE LXRES @BA38038 40440000 ./ ENDUP ++ MACUPD (DFHIRPR) DISTLIB (SOURCE) ASSEM (DFHIRP) /* MODULE: DFHIRPR -- TYPE: COPY */. ./ CHANGE NAME=DFHIRPR *** * IF THE EOM EXIT IS NOT IN CON DELETED@BA38038 87274400 *** TM LCBSTTS4,LCBFEOM R @L2A DELETED BY A@BA38038 87274700 *** BO IRTIEOM2 R @L2A DELETED BY APAR @BA38038 87275000 *** * BEGIN; DELETED BY APAR @BA38038 87275300 *** * ISSUE AXSET TO RESET THE AX DELETED B@BA38038 87276800 * GET AX FROM UCA PREFIX; @BA38038 87277430 * IF AX IS NOT NULL THEN @BA38038 87277460 LH R0,UCAAX @BA38038 87277490 LTR R0,R0 DO WE HAVE AN AX? @BA38038 87277520 BZ AXAEND DON'T NEED TO DO ANYTHING @BA38038 87277550 * BEGIN; @BA38038 87277580 * IF THE EOM EXIT IS NOT IN CONTROL THEN @BA38038 87277610 TM LCBSTTS4,LCBFEOM @BA38038 87277640 BO IRTIAXA @BA38038 87277670 LTR R0,R0 IS IT ZERO? @BA38038 87277840 BZ IRTIAXA YES, DONT RESET THE AX @BA38038 87277980 *** C R0,=A(-1) R @L2A DELETED BY APAR @BA38038 87278000 C R0,=A(-1) HAS AX BEEN CHANGED? @BA38038 87278120 BE IRTIAXA NO. DON'T RESET IT @BA38038 87278260 *** BE IRTINOAX DELETED BY APAR @BA38038 87278300 * THE OLD AX MUST BE RESTORED IF THIS LOGON@BA38038 87278400 * AXSET WAS DONE BUT THE FORMER AX RETURNED@BA38038 87278540 *** R @L2A DELETED BY APAR @BA38038 87278600 * @BA38038 87278680 * ISSUE AXSET TO RESET THE AX VALUE TO WHA@BA38038 87278820 IRTIAXA EQU * @BA38038 87279050 LH R0,UCAAX @BA38038 87280100 *** * BEGIN; DELETED BY APAR @BA38038 87281900 *** * GET AX FROM UCA PREFIX; / DELETED BY @BA38038 87282200 *** * IF AX IS NOT NULL THEN DELETED BY APA@BA38038 87282500 *** LTR R0,R0 R @L2A DELETED BY APAR @BA38038 87282800 *** BZ AXAEND DELETED BY APAR @BA38038 87283100 *** R @L2A DELETED BY APAR @BA38038 87283400 * IF THE EOM EXIT IS NOT IN CONTROL THEN @BA38038 87292840 TM LCBSTTS4,LCBFEOM @BA38038 87292980 *** * IF AX IS NOT NULL THEN DELETED BY APA@BA38038 87293000 BO AXAEND @BA38038 87293120 * OUR AX MUST BE FREED IF WE AQUIRED IT DUR@BA38038 87293260 *** LTR R0,R0 R @L2A DELETED BY APAR @BA38038 87293300 * WHICH FAILED BEFORE WE GOT ROUND TO ISSUI@BA38038 87293400 * THE FORMER AX RETURNED BY AXSET WAS NON-Z@BA38038 87293540 *** BZ AXAEND R @L2A DELETED BY APAR @BA38038 87293600 CH R2,UCAOLDAX WAS OLD AX ZERO? @BA38038 87293680 BE AXAEND YES. SKIP AXFRE @BA38038 87293820 * IF THE EOM EXIT IS NOT IN CONTROL THEN @BA38038 87296750 TM LCBSTTS4,LCBFEOM @BA38038 87296900 BO IRTIEOM2 @BA38038 87297050 ./ ENDUP
Comments
APAR Information
APAR number
II02178
Reported component name
PB LIB INFO ITE
Reported component ID
INFOPBLIB
Reported release
001
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
1985-10-01
Closed date
1985-10-01
Last modified date
1987-02-24
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
DFHIRPL DFHIRPR
Fix information
Fixed component name
PB LIB INFO ITE
Fixed component ID
INFOPBLIB
Applicable component levels
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":"BU059","label":"IBM Software w\/o TPS"},"Product":{"code":"SSEPEK","label":"DB2 for z\/OS"},"Platform":[{"code":"PF054","label":"z Systems"}],"Version":"001","Line of Business":{"code":"LOB10","label":"Data and AI"}}]
Document Information
Modified date:
31 July 2023