// JOB GA72253 DOCS 7.2.253 APAR GA72253
* DOCS 7.2.253, Issued by PRP on July 08, 2004
* Revised July 30, 2004
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: DOCSLS72 module abends if called by a user program.
* The LIST function relocatable module DOCSLS72 abends if it is
* called by a user program.
*
* This APAR also includes the equivalent of DOCS APAR GA72240.
* -------------------------------------------------------------------
* Conditions for applying APAR:
* This APAR may be applied at any time, even while the product
* is active. The effect of this APAR will be experienced the
* next time the affected component is executed.
// 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.
// 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:GA72253 /* 1975-DOC-01-072:GA72253 for VSE/SP */
AFFECTS PHASE=DOCS$A
ALTER 129 0D:FF
AFFECTS MODULE=DOCSLS72
                                       /* FIX AT FILLP100+X'38'     */
ALTER  182 F83310001078 : F8331000AB28 /*     ZAP  LISTJDAT,P19JC   */
                                       /* FIX AT FILLP100+X'4C'     */
ALTER  196 FA331000107C : FA331000AB2C /*     AP   LISTJDAT,P01JC   */
                                       /*                           */
ALTER 1FDC BFDCBFDE : 95401007         /*PAT0 CLI  ERRORID,C' '     */
ALTER 1FE0 BFE0     : 0778             /*     BNER LINK             */
ALTER 1FE2 BFE2BFE4 : 925C1007         /*     MVI  ERRORID,C'*'     */
ALTER 1FE6 BFE6BFE8 : 47F0B3B0         /*     B    MSG              */
                                       /* FIX AT GETHC00+X'34'      */
ALTER 21F0 4580B3B0 : 4580BFDC         /*     BAL  LINK,PAT0        */
ALTER 2565 C3C6     : C3F1             /*     DC   CL8'READHC1 '    */
                                       /* FIX AT VESOPENF+X'30'     */
ALTER 266A 4580B3B0 : 4580BFDC         /*     BAL  LINK,PAT0        */
ALTER 2E65 C3C6     : C3F2             /*     DC   CL8'READHC2 '    */
                                       /*                           */
ALTER 1FEA BFEABFECBFEE : D200A1EA9044 /*PAT1 MVC  HCFRL,@REL       */
ALTER 1FF0 BFF0BFF2     : 47F0C028     /*     B    SUB02            */
                                       /* FIX AT SETUP04+X'26'      */
ALTER 27EA 47F0C028     : 47F0BFEA     /*     B    PAT1             */
/*
/&