// JOB XA43019 SPI 4.3.19 APAR XA43019
* SPI 4.3.19, Issued by PRP on March 01, 2004
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: SPICPUID - Correct SYSIB processor information display.
* SPICPUID does not correctly display the machine type and model information
* obtained by the STSI (Store System Information) instruction; the displayed
* processor type and model fields are blank. This APAR corrects the error.
* -------------------------------------------------------------------
* 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-43-SPI:XA43019 /* 1975-SPI-01-043:XA43019 for VSE/SP */
AFFECTS PHASE=SPISPI$A
ALTER 3F 13:FF
AFFECTS PHASE=SPICPUID                 /* FIX 1 IN CPUI130         */
ALTER 3C0  4780D3A6 : 4700D3A6         /*    NOP  CPUI140 TRY STSI */
                                       /* FIX 2 IN CPUI130         */
ALTER 3EC  8800001C : 8900001C         /*    SLL  R0,28   SET FC   */
/*
/&