*   NAME: Z6001688  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: MVS
*   DATE: 09FEB98   STATUS:  DZ+UT    USAGE-ID: LIBRARY-C1688
*
*   SPE L$UMAIN leaks memory when assembled for OS
*
*   NOTE:     APPLY THIS ZAP TO THE PREFIX.SOURCE LIBRARY USING THE
*             IEBUPDTE UTILITY.  THIS ZAP IS A SOURCE UPDATE AND
*             SPECIAL HANDLING WILL BE REQUIRED.
*
*   THE PREFIX.SOURCE (MEMBER L$UMAIN ) WILL BE UPDATED AND WILL NEED
*   TO BE REASSEMBLED.
*
*   SAMPLE JCL TO EXECUTE IEBUPDTE
*      //JOBNAME  JOB  (ACCOUNT-INFO),'PROGRAMMER NAME'  <== VERIFY
*      //STEP1    EXEC PGM=IEBUPDTE
*      //SYSPRINT DD  SYSOUT=*
*      //SYSUT1   DD DSN=prefix.SOURCE,DISP=SHR         <== VERIFY
*      //SYSUT2   DD DSN=prefix.SOURCE,DISP=SHR         <== VERIFY
*      //SYSIN    DD   *
*        INPUT IEBUPDTE STATEMENTS FROM THE ZAP BELOW
*      /*
*      //
**********************************************************************
*
*   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$UMAIN,LIST=ALL
MAINNCLR DS    0H                                                       05600022
         AIF   ('&SYSPARM' NE 'OS').NOS7                                05600023
         LA    R2,8(,R2)          INCLUDE THE OE PREFIX                 05600024
         SH    R12,=H'8'          (SAME)                                05600025
.NOS7    ANOP  ,                                                        05600026
         FREESTG LV=(R2),A=(R12)  THROW THE CRAB BACK (TOO SMALL)   4.5 05600027
*/ ENDUP