// JOB VA54002 VSERV 5.4.2 APAR VA54002
* VSERV 5.4.2, Issued by PRP on October 12, 1999
* Status=TESTED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: VSERV shows 99/365 or 99/366 as expired after 01/01/2000.
* If the the current date is 01/01/2000 or later, VSERV
* identifies data sets with expiration dates of 99/365 or 99/366
* as expired, even though these are special dates which are
* considered permanent.
* -------------------------------------------------------------------
* 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-54-VSV:VA54002 /* 1975-VSV-01-054:VA54002 for VSE/SP */
AFFECTS PHASE=VSERV
ALTER 11C2C 00 : 02
                                       /* FIX AT PATCH
ALTER 1F4A BF4ABF4CBF4E : D502BF6A5049 /*PAT1 CLC J365,COREDATE+3 */
ALTER 1F50 BF50BF52     : 4720BF62     /*     BH  NORM            */
ALTER 1F54 BF54BF56BF58 : D502BF6D5049 /*PAT1 CLC J366,COREDATE+3 */
ALTER 1F5A BF5ABF5C     : 4740BF62     /*     BL  NORM            */
ALTER 1F5E BF5E         : 1477         /*     NR  R7,R7           */
ALTER 1F60 BF60         : 07F7         /*     BR  R7              */
ALTER 1F62 BF62BF64BF66 : D502C51B5049 /*NORM CLC VALIDATE(3),CORD*/
ALTER 1F68 BF68         : 07F7         /*     BR  R7              */
ALTER 1F6A BF6ABF       : 63016D       /*J365 DC  X'63016D'       */
ALTER 1F6D 6CBF6E       : 63016E       /*J366 DC  X'63016D'       */
                                       /* FIX AT ROOMCHEK+X'38'   */
ALTER 5802 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT QSETLOOP+X'36'   */
ALTER 96B6 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT QXTNLOOP+X'48'   */
ALTER 9764 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT QVTCLOOP+X'1E'   */
ALTER 99C8 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT PRNTCHEK+X'7E'   */
ALTER B1E4 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT VSAMSKUM+X'78'   */
ALTER B502 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT JULIANEX+X'2C'   */
ALTER BE7C D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT POOLMAP+X'1E'    */
ALTER C15E D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
                                       /* FIX AT POOLPERM+X'10'   */
ALTER E584 4720A238     : 4740A238     /*     BL  POOLLATE        */
                                       /* FIX AT POOLLATE+X'2C'   */
ALTER E5E4 D502C51B5049 : 07004570BF4A /*     BAL RETURN,PAT1     */
/*
/&