// JOB RA38056 SPRI 3.8.56 APAR RA38056
* SPRI 3.8.56, Issued by GSS on April 05, 2005
* Revised July 14, 2005
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Correct reader nesting routine when processing SLI book
* Correct reader nesting routine when processing SLI book.
* -------------------------------------------------------------------
* 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:RA38056 /* 1975-SPR-01-038:RA38056 for VSE/SP */
AFFECTS PHASE=SPRISS$A
ALTER 64 38:FF
AFFECTS PHASE=SPRIRIPT
ALTER 97E  96029070  :  45403E52
ALTER A70  94FD9070  :  47F03E5C
ALTER BD4  58107000  :  47F03E9E
ALTER E52  3E523E54  :  96029070
ALTER E56  3E563E58  :  50709080    /* SAVE IRDDEFN */
ALTER E5A  3E5A      :  07F4
ALTER E5C  3E5C3E5E  :  94FD9070
ALTER E60  3E603E62  :  59709080   /*OUR IRDDEFN? */
ALTER E64  3E643E66  :  47703E6C   /*NO SAVE HOLD */
ALTER E68  3E683E6A  :  47F03A74   /*PASS BACK HOLD */
ALTER E6C  3E6C3E6E3E70  :  D503701C57F9  /*ALREADY HOLD SAVED?/
ALTER E72  3E723E74  :  47703A88   /* YES - DON'T RESAVE */
ALTER E76  3E763E783E7A  :  D203701C9004  /* COPY HOLD */
ALTER E7C  3E7C3E7E3E80  :  D20170209074  /* COPY LENGTH */
ALTER E82  3E823E843E86  :  D20370249080  /* COPY IRDDEFN */
ALTER E88  3E883E8A3E8C  :  D70390809080  /* CLEAR IRDDEN */
ALTER E8E  3E8E3E90  :  58003F10      /* LEN OF HOLD */
ALTER E92  3E923E94  :  45E05054      /* GET NEW HOLD */
ALTER E96  3E963E98  :  50109004      /* SAVE NEW HOLD */
ALTER E9A  3E9A3E9C  :  47F03A88      /* PROCESS THIS LEVEL*/
ALTER E9E  3E9E3EA03EA2  :  D503701C57F9   /* ANY HOLD SAVED */
ALTER EA4  3EA43EA6  :  47803EC6       /* NO */
ALTER EA8  3EA83EAA  :  58109004       /* CURENT HOLD AREA */
ALTER EAC  3EAC3EAE  :  45E05044       /* RELEASE AREA */
ALTER EB0  3EB03EB23EB4  :  D2039004701C   /* RESTORE HOLD */
ALTER EB6  3EB63EB83EBA  :  D20190747020   /* RESTORE LEN */
ALTER EBC  3EBC3EBE3EC0  :  D20390807024   /* RESTORE IRDDEFN */
ALTER EC2  3EC23EC4  :  96029070       /* HOLD SET */
ALTER EC6  3EC63EC8  :  58107000
ALTER ECA  3ECA3ECC  :  47F03BD8
/*
/&