// JOB MA95341 MVT 9.5.341 APAR MA95341
* MVT 9.5.341, Issued by PRP on October 31, 2001
* Revised February 06, 2002
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Set S/A locate of syslog to ignore unit status of 85
* *--------------------------------------------------------------*
* *   NOTE: This APAR applies to MVT LIBR systems only.          *
* *         For MVT NON-LIBR systems use MA95337.                *
* *--------------------------------------------------------------*
*
* Change MVT/VSE S/A IPL modules so they will ignore a special
* NotReady/Ready interrupt (unit status of x'85') when looking for an
* interrupt from SYSLOG.  Some devices such as the Bus-Tech DataBlaster
* are known to present such an interrupt which results in the S/A IPL
* modules trying to use the wrong device for syslog.  Currently, the S/A
* IPL modules use the first interrupt with ATTENTION present to identify
* the SYSLOG device.  This involves the S/A DUMP facility.
*
* This APAR also corrects a problem with being unable to enter input
* in response to a prompt if syslog is a CRT type device. This is
* similar to the IPL console problem fixed by MVT APAR MA95340.
*
* This APAR resolves the problem described in Info/Sys 8058.
* -------------------------------------------------------------------
* Conditions for applying APAR:
* *--------------------------------------------------------------*
* *   NOTE: This APAR applies to MVT LIBR systems only.          *
* *         For MVT NON-LIBR systems use MA95337.                *
* *--------------------------------------------------------------*
*
* 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.
*
* NOTE: You must re-build your SADUMP file after you apply this APAR for
* it to take effect.
// 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:MA95341 /* 1975-MVT-01-095:MA95341 for VSE/SP */
AFFECTS PHASE=MVTVSE$A
ALTER 181 65:FF
AFFECTS PHASE=MVTSANUC                 /* FIX SADUMP               */
ALTER 12C0 B2C0B2C2 : 4780C04E         /*PAT1 BNZ   INIT120        */
ALTER 12C4 B2C4B2C6 : 95850044         /*     CLI   CSW$+4,X'85'   */
ALTER 12C8 B2C8B2CA : 4780C04E         /*     BE    INIT120        */
ALTER 12CC B2CC     : 07F8             /*     BR    LINK           */
ALTER 12CE B2CE     : 0788             /*PAT2 BZR   LINK           */
ALTER 12D0 B2D0B2D2 : 4100ADA0         /*     LA    CCWPTR,CCW1052 */
ALTER 12D4 B2D4B2D6 : 4580C4E0         /*     BAL   LINK,UNITCHCK  */
ALTER 12D8 B2D8B2DA : 4770C190         /*     BNZ   INIT205        */
ALTER 12DC B2DCB2DE : 47F0C200         /*     B     ATTNCHCX       */
ALTER 12E0 B2E0B2E2 : 48130000         /*PAT3 LH    IODEV,0(R3)    */
ALTER 12E4 B2E4B2E6 : 47F0A9D4         /*     B     IORTN          */
                                       /* FIX AT SVC308+X'04'      */
ALTER  2BE 48130000 : 4580B2E0         /*     BAL   LINK,PAT3      */
ALTER  2C2 4580A9D4 : 47F0A304         /*     B     SVC320         */
                                       /*                          */
AFFECTS PHASE=MVTSAD00                 /* FIX AT INIT215+X'04'     */
ALTER  1A6 4780C19E : 4580B2C0         /*     BAL   R8,PAT1        */
                                       /* FIX AT INIT225+X'14'     */
ALTER  1CA 4770C200 : 4580B2CE         /*     BAL   R8,PAT2        */
/*
/&