// JOB GA72238 DOCS 7.2.238 APAR GA72238
* DOCS 7.2.238, Issued by PRP on January 29, 2002
* Revised January 30, 2002
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: DOCS Abends if DOCSCMS on 3192 or 3290 NOCOLOR TERMINAL
* DOCSCMS may cause DOCS to abend on VSE/ESA if the CMS users
* terminal supports extended highlighting but not color. Some
* 3192 and 3290 models have been found to be involved. The
* errors in DOCSCMS and DOCS result in DOCS abending with an
* illegal svc when it tries to pass a command to the IBM ICS
* subsystem.
*
* This APAR resolves the problem reported in Info/Sys 8064.
* -------------------------------------------------------------------
* 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.
*
* This APAR changes the VM DOCSCMS module. After you have
* applied this APAR to the VSE system you should transfer the
* DOCSCMS TEXT deck (DOCSVM72.OBJ) to VM and then re-generate
* the DOCSCMS MODULE.
*
* NOTE FOR MVT/VSE ONLY: IJSYS01 and IJSYS04 work files are
* required. You will need to ensure that labels and assigns are
* provided.
// PAUSE *** Enter CANCEL to bypass APAR.  Press ENTER to apply.
*  ---------------------------------------------  MVT/VSE systems only.
*  NOTE: FILE IJSYS01 REQUIRED TO APPLY APAR      MVT/VSE systems only.
*        FILE IJSYS04 REQUIRED TO APPLY APAR      MVT/VSE systems only.
// PAUSE MAKE SURE LABELS & ASSGNS ARE AVAILABLE. MVT/VSE systems only.
*  ---------------------------------------------  MVT/VSE systems only.
// LIBDEF RL,TO=IJSYSRS,FROM=IJSYSRS (target lib) MVT/VSE systems only.
// 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:GA72238 /* 1975-DOC-01-072:GA72238 for VSE/SP */
AFFECTS PHASE=DOCS$A
ALTER 11A EE:FF
AFFECTS PHASE=$DOCSBUF                 /* FIX AT $BUF31+X'08'       */
ALTER  550 4770A560 : 4770A55C         /*     BNE  $BUF32-04        */
                                       /*                           */
AFFECTS MODULE=DOCSVM72                /* FIX AT E614+L'E614        */
ALTER  DA0 F0F0     : F0F0             /*     DC   C'00'            */
       /*  THE NEXT THREE ALTERS DO NOT HAVE ANY VERIFY DATA        */
ALTER  DA2          : 4DF2             /*     DC   C'(2'            */
ALTER  DA4          : F3F8             /*     DC   C'38'            */
ALTER  DA6          : 5D40             /*     DC   C') '            */
                                       /* FIX AT EOJ-X'0C'          */
ALTER 100E 41400022 : 41400027         /*     LA   WR2,L'E614+5     */
                                       /* FIX AT GETABR02+X'10'     */
ALTER 39B6 47E0C092 : 4780C092         /*     BNZ  *+8              */
/*
/&