// JOB JA39015 PLF 3.9.15 APAR JA39015
* PLF 3.9.15, Issued by PRP on February 13, 2003
* Revised July 30, 2004
* Status=TESTED Type=REVOKED
* -------------------------------------------------------------------
* Problem: Allow PLF to access $IJBCJC on VSE/ESA 2.7
* *** This APAR has been superseded by APAR JA39016. ***
*
* Provide support in PLF for access to $IJBCJC on VSE/ESA 2.7
* -------------------------------------------------------------------
* Conditions for applying APAR:
* *** This APAR is REVOKED, it has been superseded by APAR
* JA39016. ***
*
* 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-39-PLF:JA39015 /* 1975-PLF-01-039:JA39015 for VSE/SP */
AFFECTS PHASE=SPIPLF$A
ALTER 3B 0F:FF
AFFECTS PHASE=SPIPLFRT                 /* FIX AT ACTIV600-X'04'     */
ALTER 6B08 4780A1D2 : 4780A2A8         /*     BE    PAT1            */
                                       /* FIX FOR ACTIV600-X'04'    */
ALTER 6C54 A2A8A2AA : 58B0CDA8         /*PAT1 L     R11,A(PGO100)   */
ALTER 6C58 A2ACA2AE : 920CB77C         /*     MVI   PIFK210+14X,0C  */
ALTER 6C5C A2B0A2B2 : 58B0C390         /*     L     R11,A(AIF100)   */
ALTER 6C60 A2B4A2B6 : 920CB446         /*     MVI   AIF434B+0EX,0C  */
ALTER 6C64 A2B8A2BA : 920CB55E         /*     MVI   AIF520+12X,0C   */
ALTER 6C68 A2BCA2BE : 47F0A1D2         /*     B     ACTIV610        */
/*
/&