// JOB MA95349 MVT 9.5.349 APAR MA95349
* MVT 9.5.349, Issued by PRP on August 01, 2005
* Status=VERIFIED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: BIM-EPIC compatibility for FUNCT=CLRGRPL.
* Improve compatibilty with BIM-EPIC by ensuring LPLAREA has a valid address
* value for FUNCT=CLRGRPL from $JOBCTLG.  TSIDDSNM does not see the request if
* LPLAREA value is zero.
*
* This APAR resolves the problem reported as call# 213720.
* -------------------------------------------------------------------
* 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.
// 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-95-MVT:MA95349 /* 1975-MVT-01-095:MA95349 for VSE/SP */
AFFECTS PHASE=MVTVSE$A
ALTER 189 6D:FF
AFFECTS PHASE=$JOBCTLG                 /* FIX FOR USRLBL+X'04'     */
ALTER  F70 CF70CF72 : 50F0F000         /*PAT1 ST    RF,LPLAREA     */
ALTER  F74 CF74CF76 : 47F0A0DA         /*     BR    ENDLBL         */
                                       /* FIX AT USRLBL+X04'       */
ALTER 206C 4580A0DA : 4580CF70         /*     BAL   R8,PAT1        */
/*
/&