*   NAME: Z4500180  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: MVS
*   DATE: 02AUG92   STATUS:  DZ+UT    USAGE-ID: SPE-C0180
*
*   ABEND 0Cx using bldexit to handle asynchronous interrupts with SPE
*
*   NOTE: This is a SOURCE UPDATE to the following three source files:
*             sasc.MACLIBA(EXEL)
*             sasc.SOURCE(L$UPROL)
*             sasc.SOURCE(L$UEXLK)
*         Applying this zap takes special care.  To apply follow the
*         below instructions.
*         (1) For each update file, change all occurrences of "*/" to
*             "./" and remove all comments before the first "./" card.
*             Additionally, remove all lines that begin with "****"
*             from the zap text.
*         (2) Split this file into 2 update files (one for each
*             library to be updated.
*         (3) USE IEBUPDTE to apply the first file to sasc.MACLIBA.
*         (4) USE IEBUPDTE to apply the second file to sasc.SOURCE.
*         (5) Assemble the new L$UEXLK and L$UPROL and store the object
*             code in sasc.SPEOBJ.
*         (6) LKED the 2 objects separately and store the modules in
*             sasc.SPELIB.
*         (7) Re-link your application before running.
*   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 NAME=EXEL
EXELSDSA DC    (DSAMIN/4)A(*-*)   SAVE AREA FOR DSA AT TIME OF Z4500180*00240000
*/ ENDUP
**** ----File 2-------------------Split Here---------------------------
**** Updates to sasc.SOURCE Library
**** ------------------------------------------------------------------
*/ CHANGE NAME=L$UPROL
         L     R14,DSAPRBSV       FIND INLINE PROLOG BASE      Z4500180 01690000
         MVC   CRABCDSA,DSAPDSA   RESTORE PREVIOUS "C DSA"     Z4500180 01700000
*/ CHANGE NAME=L$UEXLK
         MVC   EXELSDSA(DSAMIN),0(R3) COPY CONTENTS TO SAFETY  Z4500180 02330000
         MVC   0(DSAMIN,R3),EXELSDSA  ELSE, RESTORE OLD STATUS Z4500180 03290000
*/ ENDUP