// JOB GA72249 DOCS 7.2.249 APAR GA72249
* DOCS 7.2.249, Issued by PRP on October 24, 2003
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: PUBX entry corrupted when VTAM terminalloaned/returned.
* DOCS may cause VTAM's I/O appendage to corrupt bytes 1 and 2
* of a PUB Extension (PUBX) entry. This can occur with VTAM
* Version 4 on VSE/ESA 2.4 and later systems. The alteration of
* the PUBX entry is the result of LOANING/RETURNNG terminals
* between DOCS and VTAM.
*
* This APAR resolves the problem described in Info/Sys 8128
* -------------------------------------------------------------------
* Conditions for applying APAR:
* This APAR may be applied at any time, however its effect will
* not be experienced until the next time the system is IPL'ed.
// PAUSE *** Enter CANCEL to bypass APAR.  Press ENTER to apply.
// LIBDEF CL,TO=IJSYSRS,FROM=IJSYSRS (target lib) MVT/VSE systems only.
// DEFINE GETVIS=200K                             MVT/VSE systems only.
// EXEC MSHP,SIZE=900K
CORRECT 1975-72-DOC:GA72249 /* 1975-DOC-01-072:GA72249 for VSE/SP */
AFFECTS PHASE=DOCS$A
ALTER 125 09:FF
AFFECTS PHASE=DOCSMAIN                 /* FIX AT ISVTAM4A+X'22'     */
ALTER 7868  4740D120 : 58F09544        /*     L    RF,@PAT          */
ALTER 786C  41E0E00C : 4D80F2CC        /*     BAS  LINK,PAT1        */
                                       /* FIX AT ISVTAM4B+X'22'     */
ALTER D744  4740D604 : 58F09544        /*     L    RF,@PAT          */
ALTER D748  41E0E00C : 4D80F2CC        /*     BAS  LINK,PAT1        */
                                       /*                           */
AFFECTS PHASE=$DOCSPAT                 /*                           */
ALTER  2CC  02CC     : 0748            /*PAT1 BLR  LINK             */
ALTER  2CE  02CE02D0 : 41E0E00C        /*     LA   RE,12(,RE)       */
ALTER  2D2  02D202D4 : 95F402DF        /*     CLI  SUPIDC3.C'4'     */
ALTER  2D6  02D6     : 0748            /*     BLR  LINK             */
ALTER  2D8  02D802DA : 41E0E004        /*     LA   RE,4(,RE)        */
ALTER  2DC  02DC     : 07F8            /*     BR   LINK             */
/*
/&