*   NAME: Z6001618  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: MVS
*   DATE: 18NOV97   STATUS:  DZ+UT    USAGE-ID: LIBRARY-C1618
*
*   L$UMAIN assembly fails for the GETSTG macro when using CICS/ESA maclibs
*
*   NOTE:     APPLY THIS ZAP TO THE prefix.MACLIBA LIBRARY USING THE
*             IEBUPDTE UTILITY.  THIS ZAP IS A SOURCE UPDATE AND
*             SPECIAL HANDLING WILL BE REQUIRED.
*
*   The prefix.MACLIBA (members GETSTG and ABORT) are 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.MACLIBA,DISP=SHR         <== Verify
*      //SYSUT2   DD DSN=prefix.MACLIBA,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  LIST=ALL,NAME=GETSTG
*/    DELETE  SEQ1=00440000,SEQ2=00440000
         ST    0,DFHEITP4         SAVE LENGTH VALUE IN EIS              00440005
*/    DELETE  SEQ1=00460000,SEQ2=00480000
.INREG   ST    &LV(1),DFHEITP4    SAVE LENGTH VALUE IN EIS              00460005
*        EXEC CICS GETMAIN SET(1) FLENGTH(DFHEITP4) NOEDF               00470005
.EXEC    DFHECALL =X'0C0290004800008C00',(PTR___RF,1),,,(FB_4,DFHEITP4) 00480005
*/    CHANGE  LIST=ALL,NAME=ABORT
*/    DELETE  SEQ1=00240004,SEQ2=00260003
.INREG   CVD   &CODE,DFHEITP3     CONVERT TO DECIMAL                    00240000
         OI    DFHEITP3+7,X'0F'   STOMP THE SIGN                        00250000
         UNPK  DFHEITP1(4),DFHEITP3+5(3) MAKE IT PRINTABLE              00260000