*   NAME: Z5500938  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: MVS
*   DATE: 10JUN93   STATUS:  DZ+UT    USAGE-ID: SPE-C0938
*
*   Random ABENDs may occur in L$UBSAM if the stack is allocated over 16M
*
*   NOTE:      THIS ZAP IS A SOURCE UPDATE ONLY.  SPECIAL HANDLING
*              WILL BE REQUIRED.
*
*              AFTER THE UPDATE, L$UBSAM SHOULD BE REASSEMBLED AND THE
*              OBJECT CODE STORED IN SASC.STDOBJ AND SASC.SPEOBJ.
*              THEN LINKEDIT THE OBJECT CODE AND STORE THE LOAD MODULE
*              IN SASC.STDLIB AND SASC.SPELIB.  BOTH OBJECT AND LOAD
*              MODULES SHOULD HAVE THE FOLLOWING ALIASES ASSIGNED:
*                  OSBCLOSE       OSBDCB         OSBLDL
*                  OSBOPEN        OSBOPENJ       OSCHECK
*                  OSFIND         OSFINDC        OSNOTE
*                  OSPOINT        OSREAD         OSSTOW
*                  OSTCLOSE       OSWRITE
*
*   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=L$UBSAM
         L     R8,DCB#CBIB        LOAD THE CBIB ADDRESS            0938 03340101
         USING CBIB,R8                                             0938 03340201
         MVI   CBIBWARG,X'80'     ASSUME OPEN FOR INPUT            0938 03370001
BOPNGOPT OC    CBIBWARG(1),6(R1)  MERGE IN OPEN OPTION BITS        0938 03470001
BOPNOPEN STCM  R3,B'0111',CBIBWARG+1 STORE DCB ADDR IN OPEN PARMS  0938 03490001
*/ DELETE SEQ1=3500001,SEQ2=3510001
         LA    R1,CBIBWARG        ADDRESS OPEN PARM LIST           0938 03520001
         ST    R13,CBIBDMSA+4                                      0938 04150001
         LA    R13,CBIBDMSA       POINT R13 TO DATA MGMT SAVE AREA 0938 04160001
         MVI   CBIBWARG,X'80'     ASSUME DISP OF "DISP"            0938 06710001
BCLOGOPT OC    CBIBWARG(1),5(R1)  MERGE IN CLOSE OPTION BITS       0938 06850001
BCLOCLOS STCM  R2,B'0111',CBIBWARG+1 STORE DCB ADDR IN CLOSE LIST  0938 06870001
         MVC   CBIBWARG(8),=CL8' ' SET UP MEMBER AREA              0938 07880001
         LA    R0,CBIBWARG        POINT R0 TO MEMBER NAME          0938 07980001
MVMEMB   OC    CBIBWARG(0),0(R4)  MOVE AND UPPER CASE MEMBER NAME  0938 08070001
         MVC   CBIBWARG(4),4(R4)  MAKE SURE TTRK IS BELOW THE LINE 0938 08460008
         LA    R0,CBIBWARG        POINT R0 TO MEMBER TTRK          0938 08460108
         L     R0,4(,R1)          LOAD TARGET BLOCK ADDRESS        0938 11930001
         ST    R0,CBIBWARG        STORE BLOCK ADDR BELOW THE LINE  0938 11980101
         LA    R0,CBIBWARG        ADDRESS TARGET BLOCK ADDRESS     0938 11980201
CBIBDMSA DS    18A                DATA MANAGEMENT SAVE AREA        0938 12560100
CBIBWARG DS    2A                 R0/R1 ARGUMENT WORK AREA         0938 12560200
*/ ENDUP