For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
THE *TODAY*, *FTODAY*, AND *NOW* FUNCTIONS ARE NOT YEAR 2000 COMPATIBLE AND DISPLAY INCORRECT DATES.
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R11.63 BUG 4876 MVS * * THIS ZAP WILL MAKE SYSTEM 2000 FULLY YEAR 2000 COMPLIANT BY * CHANGING THE VARIOUS ROUTINES THAT USE DIFFERENT PROCESSES TO * DETERMINE CENTURY. * * THIS ZAP USES A FIELD IN THE THREAD COMMON THAT IS CURRENTLY * MARKED AS 'FREE SPACE'. THE WORD USED IS LOCATED IMMEDIATELY * BEFORE THE LABEL SEG0$ IN THE DTHRDCOM MACRO. THE WORD USED * IS AT X'2B8' (DECIMAL 696) FROM THE BEGINNING OF THREAD COMMON. * * THIS IS A 11.6-03 VERSION OF THE FIX * * SYS2K NEEDS TO BE RELINKED AFTER APPLYING THIS ZAP * NAME S2K30 NDATE * VER 0154 4720,C15C REP 0154 47B0,C15C * NAME S2K00 PARSCN * VER 135A 58A0,D61C VER 1362 47F0,E02E,47F0,E026 VER 1378 9200,4038 VER 1380 924B,4032,924B,4035,41F0,3694,58F0,F028 VER 1390 4110,0006,14F1,4780,E01E,D201,402C,4033 VER 13A0 D201,4033,4030,D201,4030,402C,8AF0,0002 VER 13B0 4780,E01E,D201,4030,4036,D201,4036,402C * REP 135A 58A0,D670 REP 1362 47F0,E05A,47F0,E052 REP 1378 47F0,E046 REP 1380 48F0,4036,40F0,4038,9500,A2BB,4770,E040 REP 1390 D201,4036,E062,47F0,E046,D201,4036,E064 REP 13A0 9200,403A,58A0,D61C,47F0,CA00,924B,4032 REP 13B0 924B,4035,58F0,A068,47F0,F438,F1F9,F2F0 * NAME S2K00 S2KPATCH * VER 0438 0000,0000,0000,0000,0000,0000,0000,0000 VER 0448 0000,0000,0000,0000,0000,0000,0000,0000 VER 0458 0000,0000,0000,0000,0000,0000,0000,0000 VER 0468 0000,0000,0000,0000,0000,0000,0000,0000 VER 0478 0000,0000,0000,0000,0000,0000,0000,0000 VER 0488 0000,0000,0000,0000,0000,0000,0000,0000 VER 0498 0000,0000,0000,0000,0000,0000,0000 * REP 0438 4110,3694,5810,1028,5410,F4A2,0700,4780 REP 0448 E026,D201,402C,4033,D201,4033,4030,D201 REP 0458 4030,402C,8A10,0002,4780,E026,D201,4030 REP 0468 4036,D201,4036,402C,D207,D830,4030,9500 REP 0478 A2BB,4770,F48E,D201,D82E,F49E,D209,4030 REP 0488 D82E,47F0,E046,D201,D82E,F4A0,D209,4030 REP 0498 D82E,47F0,E046,F1F9,F2F0,0000,0006 * NAME S2K00 TIMDAT * VER 0078 8810,000C,5610,C1C4 VER 0088 5930,C1C8,4740,C0C4 VER 00B2 5C40,C1D4,1925,4780 REP 0078 58F0,A068,47F0,F4A6 REP 0088 58F0,A068,47F0,F4BC REP 00B2 58F0,A068,47F0,F4D6 * NAME S2K00 S2KPATCH * VER 04A6 0000,0000,0000,0000,0000,0000,0000,0000 VER 04B6 0000,0000,0000,0000,0000,0000,0000,0000 VER 04C6 0000,0000,0000,0000,0000,0000,0000,0000 VER 04D6 0000,0000,0000,0000,0000,0000,0000,0000 VER 04E6 0000,0000,0000,0000,0000,0000,0000,0000 VER 04F6 0000,0000 * REP 04A6 4F30,D048,1861,8910,0008,8810,0014,5610 REP 04B6 C1C4,47F0,C080,8860,0018,5060,A2B8,5930 REP 04C6 C1C8,4740,C0C4,1266,4770,C11E,47F0,C098 REP 04D6 5C40,C1D4,1925,4770,C0BC,8850,0002,1825 REP 04E6 1B44,5D40,C1D4,5C40,C1D4,1925,4770,C0C4 REP 04F6 47F0,C0BC * CHECKSUM 40549134
End of Zap Deck