* NAME: Z5006027 PRODUCT: SASC CATEGORY: RECO SYSTEM: MVS * DATE: 23MAY94 STATUS: DZ+UT USAGE-ID: LIBRARY-C6027 * * INDEP-compiled CICS applications may Abend ASRA in CICS/ESA * * PRE-REQUISITE: Z5000293 * * NOTE: The following is a SOURCE UPDATE; to apply, you must * (1) ensure that the target source file has not been re-numbered, * (2) change all occurrences of "*/" back to "./", and * (3) remove all comments before the first "./" card, * before using the MVS IEBUPDTE utility */ CHANGE LIST=ALL,NAME=L$UCENV */ DELETE SEQ1=00240018,SEQ2=00250018 DROP R13 5.5 00515022 PCTCBAR EQU R0 5.0 00520024 DROP PCTCBAR 5.5 00524024 DROP TCACBAR 5.5 00535016 */ DELETE SEQ1=00550013,SEQ2=00590016 */ DELETE SEQ1=00660016,SEQ2=00750016 * 5.5 00653013 * This code got real ugly when IBM moved TCATCPC for 5.5 00656013 * release 3.2 and removed TWACCOBA for release 3.3. 5.5 00659013 * The logic goes like this: 5.5 00662013 * - Find the CSA. 5.5 00665013 * - Find the user TCA from the CSA. 5.5 00668013 * - Find the system TCA from the user TCA. 5.5 00671013 * - Find the TWA address from the User TCA. 5.5 00674013 * The C Environment pointer (if any) is stored there. 5.5 00677013 * - Find the PCT entry from the system TCA. 5.5 00680013 * - Abend if the PCT has no TWA defined. 5.5 00683013 * 5.5 00686013 DFHCSAD TYPE=LOCATE,REG=R12 Find the CSA 5.0 00689013 USING DFHCSADS,R12 Establish CSA addressability 5.5 00692013 L R4,CSACDTA Point to the user TCA 5.5 00695013 USING DFHTCADS,R4 Establish user TCA addressability 5.5 00698013 L R3,TCASYAA Point to the system TCA 5.5 00701013 CLI CSACIREL,X'32' Pre-release 3.2 system? 5.5 00704013 BL PREREL32 Branch if pre-3.2 system 5.5 00707013 BE REL32 Branch if 3.2 system 5.5 00710013 * Else must be post-3.2 system 5.5 00713013 L R12,X'EC'(,R4) (tcatwaad) Find the TWA address 5.5 00716013 L R2,X'1C'(,R3) (tcatcpc) Point to PCT entry 5.5 00719013 B CHECKTWA See if we have a TWA 5.5 00722013 REL32 LA R12,X'F0'(,R4) (twacoba) Find the TWA address 5.5 00725013 L R2,X'1C'(,R3) (tcatcpc) Point to PCT entry 5.5 00728013 B CHECKTWA See if we have a TWA 5.5 00731013 PREREL32 LA R12,X'100'(,R4) (twacoba) Find the TWA address 5.5 00734013 L R2,X'14'(,R3) (tcatcpc) Point to PCT entry 5.5 00737013 N R2,=X'00FFFFFF' Clear the top byte 5.0 00740013 USING DFHPCTDS,R2 Establish PCT addressability 5.5 00743013 CHECKTWA CLC PCTTWA,=H'4' Could the TWA point to a CRAB? 5.0 00746013 BL *-* Abend if not 5.5 00749013 * 5.5 00762016 * At this point R12 points to the TWA 5.5 00764016 * 5.5 00766016 */ CHANGE LIST=ALL,NAME=CONDCOPY */ DELETE SEQ1=00020001,SEQ2=00020001 CONDCOPY 00020004 */ DELETE SEQ1=00110001,SEQ2=00110001 COPY DFHPCTDS 00110004 */ ENDUP