*   NAME: Z5010482  PRODUCT: SASC     CATEGORY: REMO    SYSTEM: MVS
*   DATE: 06JUL94   STATUS:  DZ+UT    USAGE-ID: LIBRARY-C0482
*
*   Bad Zap....INDEP-compiled CICS applications may Abend ASRA in CICS/ESA
*
*   PRE-REQUISITE:  Z5010482
*
*   NOTE:      APPLY THIS ZAP TO THE sasc.MACLIBA LIBRARY USING THE
*              IEBUPDTE UTILITY.  THIS ZAP IS A SOURCE UPDATE AND
*              SPECIAL HANDLING WILL BE REQUIRED. SET NUMBER OFF
*              BEFORE EDITING THIS SOURCE ZAP.
*
*   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
*        Update the TWA mapping below if this assumption is         5.0 00240018
*        incorrect!                                                 5.0 00250018
*/ DELETE  SEQ1=00515022,SEQ2=00515022
*/ DELETE  SEQ1=00520024,SEQ2=00524024
*/ DELETE  SEQ1=00535016,SEQ2=00535016
*********************************************************************** 00550013
*        This marks the beginning of the TWA.                       5.0 00560016
*********************************************************************** 00570013
L$UCENV  DS    A                  CRAB Pointer                      5.0 00580016
TWALEN   EQU   *-TWACOBA          Length of the TWA                 5.0 00590016
*/ DELETE  SEQ1=00653013,SEQ2=00749013
PCTCBAR  EQU   R10                                                  5.0 00660016
         DFHCSAD TYPE=LOCATE,REG=R12                                5.0 00670020
         L     TCACBAR,CSACDTA-DFHCSADS(,R12) Point to the user TCA 5.0 00680020
         L     PCTCBAR,TCASYAA    Point to the system TCA           5.0 00690016
         L     PCTCBAR,TCATCPC-DFHSYTCA(,PCTCBAR) Point to PCT entry5.0 00700016
         N     PCTCBAR,=X'00FFFFFF' Clear the top byte              5.0 00710016
         CLC   PCTTWA,=AL2(TWALEN) Could the TWA point to a CRAB?   5.0 00720016
         BNL   *+6                Branch if so                      5.0 00730016
         DC    H'0'               Otherwise, ABEND                  5.0 00740016
         LA    R12,L$UCENV        FIND C ENVIRONMENT POINTER        5.0 00750016
*/ DELETE  SEQ1=00762016,SEQ2=00766016
*/  CHANGE LIST=ALL,NAME=CONDCOPY
*/ DELETE  SEQ1=00020004,SEQ2=00020004
         CONDCOPY &WHATEVER                                             00020001
*/ DELETE  SEQ1=00110004,SEQ2=00110004
         COPY  &WHATEVER                                                00110001
*/ ENDUP