// JOB RA38052 SPRI 3.8.52 APAR RA38052
* SPRI 3.8.52, Issued by GSS on July 14, 2005
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Save Callers R8 in SPRISOCK during SENDs and RECVs
* Change SPRISOCK to save caller's R8 in SPRISSND and SPRISRCV
* calls.
* -------------------------------------------------------------------
* Conditions for applying APAR:
* The phases affected by this APAR normally are loaded resident
* in the processing region during activation. This allows the
* APAR to be applied at any time, however its effect will not be
* experienced until the product is reactivated.
// 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-38-SPR:RA38052 /* 1975-SPR-01-038:RA38052 for VSE/SP */
AFFECTS PHASE=SPRISS$A
ALTER 60 34:FF
AFFECTS PHASE=SPRISOCK
ALTER 31A  9640700C  :  47F03DDE
ALTER 546  47F0502C  :  47F03DC6
ALTER 556  41100004  :  47F03DD0
ALTER 55E  9680700C  :  47F03DB8
ALTER 6EC  47F0502C  :  47F03DC6
ALTER 6F4  41100004  :  47F03DD0
ALTER DB8  3DB8  :  18F8           /* SAVE R8 */
ALTER DBA  3DBA3DBC  :  45E050B4   /* PUSH    */
ALTER DBE  3DBE3DC0  :  9680700C
ALTER DC2  3DC23DC4  :  47F03562   /* RETURN  */
ALTER DC6  3DC63DC8  :  45E050A4   /* POP     */
ALTER DCA  3DCA  :  188F           /* RESTR R8 */
ALTER DCC  3DCC3DCE  :  47F0502C   /* EXITFCH  */
ALTER DD0  3DD03DD2  :  45E050A4   /* POP      */
ALTER DD4  3DD4  :  188F           /* RESTR R8 */
ALTER DD6  3DD63DD8  :  41100004
ALTER DDA  3DDA3DDC  :  47F05030   /* EXITFC2 */
ALTER DDE  3DDE  :  18F8
ALTER DE0  3DE03DE2  :  45E050B4
ALTER DE4  3DE43DE6  :  9640700C
ALTER DE8  3DE83DEA  :  47F0331E
/*
/&