// JOB MA95347 MVT 9.5.347 APAR MA95347
* MVT 9.5.347, Issued by PRP on July 09, 2003
* Revised July 10, 2003
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Fullword at location 0000A0 not zero after IPL.
* MVT/VSE may erroneoulsy fail to leave locations x'0000A0 through x'0000A3
* cleared to binary zeros after IPL if running in MODE=VM.  Other vendor
* products, for example CONDOR, may determine their operating enviornment
* by examining those locatons which should be zero on MVT/VSE.
*
* This APAR resolves the problem described in Info/Sys 8126.
* -------------------------------------------------------------------
* 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-95-MVT:MA95347 /* 1975-MVT-01-095:MA95347 for VSE/SP */
AFFECTS PHASE=MVTVSE$A
ALTER 187 6B:FF
AFFECTS PHASE=$NEND1A                  /* FIX AT NOFCBPTR-X'08'     */
ALTER 170  5870C1E4 : 58100600         /*     L    R1,$VPATCH       */
ALTER 174  50B07000 : 45E01FD6         /*     BAL  RE,PAT1          */
                                       /* FIX AT NOPTS+X'08'        */
ALTER 77C  582004F0 : 58100600         /*     L    R1,$VPATCH       */
ALTER 780  48102000 : 45E01FE2         /*     BAL  RE,PAT2          */
                                       /*                           */
AFFECTS PHASE=$NPATCH                  /*                           */
ALTER FD6  00000000 : BF7FC1E4         /*PAT1 ICM  R2,M15,SVIAAFFB  */
ALTER FDA  0000     : 078E             /*     BZR  RE               */
ALTER FDC  00000000 : 50B07000         /*     ST   RB,D0(,R7)       */
ALTER FE0  0000     : 07FE             /*     BR   RE               */
                                       /*                           */
ALTER FE2  00000000 : BF2F04F0         /*PAT2 ICM  R2,M15,ADPD      */
ALTER FE6  00000000 : 4780F860         /*     BZ   NOPTS1           */
ALTER FEA  00000000 : 48102000         /*     LH   R1,DPDEXT#       */
ALTER FEE  0000     : 07FE             /*     BR   RE               */
                                       /*                           */
/*
/&