For SYSTEM 2000 Version: 12.0
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 R12.0 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 12.0 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 12C8 58A0,D69C VER 12D0 47F0,E02E,47F0,E026 VER 12E6 9200,4038 VER 12EE 924B,4032,924B,4035,41F0,3694,58F0,F028 VER 12FE 4110,0006,14F1,4780,E01E,D201,402C,4033 VER 130E D201,4033,4030,D201,4030,402C,8AF0,0002 VER 131E 4780,E01E,D201,4030,4036,D201,4036,402C VER 132E 47F0,E01E * REP 12C8 58A0,D6F0 REP 12D0 47F0,E05A,47F0,E052 REP 12E6 47F0,E046 REP 12EE 48F0,4036,40F0,4038,9500,A2BB,4770,E040 REP 12FE D201,4036,E066,47F0,E046,D201,4036,E068 REP 130E 9200,403A,58A0,D69C,47F0,C96E,924B,4032 REP 131E 924B,4035,58F0,A068,58F0,F004,47F0,F654 REP 132E F1F9,F2F0 * NAME S2K00 S2KPATCH * VER 1654 0000,0000,0000,0000,0000,0000,0000,0000 VER 1664 0000,0000,0000,0000,0000,0000,0000,0000 VER 1674 0000,0000,0000,0000,0000,0000,0000,0000 VER 1684 0000,0000,0000,0000,0000,0000,0000,0000 VER 1694 0000,0000,0000,0000,0000,0000,0000,0000 VER 16A4 0000,0000,0000,0000,0000,0000,0000,0000 VER 16B4 0000,0000,0000,0000,0000,0000,0000 * REP 1654 4110,3694,5810,1028,5410,F6BE,0700,4780 REP 1664 E026,D201,402C,4033,D201,4033,4030,D201 REP 1674 4030,402C,8A10,0002,4780,E026,D201,4030 REP 1684 4036,D201,4036,402C,D207,D830,4030,9500 REP 1694 A2BB,4770,F6AA,D201,D82E,F6BA,D209,4030 REP 16A4 D82E,47F0,E046,D201,D82E,F6BC,D209,4030 REP 16B4 D82E,47F0,E046,F1F9,F2F0,0000,0006 * NAME S2K00 TIMDAT * VER 0074 4F30,D048,8810,000C,5610,C1C4 VER 0088 5930,C1C8,4740,C0C4,5950,C1CC,4740,C11E VER 00AE 5D40,C1D4,5C40,C1D4,1925,4780,C0C4 REP 0074 58F0,A068,58F0,F004,47F0,F6C2 REP 0088 58F0,A068,58F0,F004,47F0,F6D8 REP 00AE 58F0,A068,58F0,F004,47F0,F6F2 * NAME S2K00 S2KPATCH * VER 16C2 0000,0000,0000,0000,0000,0000,0000,0000 VER 16D2 0000,0000,0000,0000,0000,0000,0000,0000 VER 16E2 0000,0000,0000,0000,0000,0000,0000,0000 VER 16F2 0000,0000,0000,0000,0000,0000,0000,0000 VER 1702 0000,0000,0000,0000,0000,0000,0000,0000 VER 1712 0000,0000,0000,0000 * REP 16C2 4F30,D048,1861,8910,0008,8810,0014,5610 REP 16D2 C1C4,47F0,C080,8860,0018,5060,A2B8,5930 REP 16E2 C1C8,4740,C0C4,1266,4770,C11E,47F0,C098 REP 16F2 5D40,C1D4,5C40,C1D4,1925,4770,C0BC,8850 REP 1702 0002,1825,1B44,5D40,C1D4,5C40,C1D4,1925 REP 1712 4770,C0C4,47F0,C0BC * CHECKSUM 051B612F
End of Zap Deck