For SYSTEM 2000 Version: 11.6
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.6 BUG 4876 OS * * THIS ZAP WILL CHANGE 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 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 1276 58A0,D61C VER 127E 47F0,E02E,47F0,E026 VER 1294 9200,4038 VER 129C 924B,4032,924B,4035,41F0,3694,58F0,F028 VER 12AC 4110,0006,14F1,4780,E01E,D201,402C,4033 VER 12BC D201,4033,4030,D201,4030,402C,8AF0,0002 VER 12CC 4780,E01E,D201,4030,4036,D201,4036,402C VER 12DC 47F0,E01E * REP 1276 58A0,D670 REP 127E 47F0,E05A,47F0,E052 REP 1294 47F0,E046 REP 129C 48F0,4036,40F0,4038,9500,A2BB,4770,E040 REP 12AC D201,4036,E066,47F0,E046,D201,4036,E068 REP 12BC 9200,403A,58A0,D61C,47F0,C928,924B,4032 REP 12CC 924B,4035,58F0,A068,47F0,FBEA,4700,0000 REP 12DC F1F9,F2F0 * NAME S2K00 S2KPATCH VER 0BEA 0000,0000,0000,0000,0000,0000,0000,0000 VER 0BFA 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C0A 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C1A 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C2A 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C3A 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C4A 0000,0000,0000,0000,0000,0000,0000 * REP 0BEA 4110,3694,5810,1028,5410,FC54,0700,4780 REP 0BFA E026,D201,402C,4033,D201,4033,4030,D201 REP 0C0A 4030,402C,8A10,0002,4780,E026,D201,4030 REP 0C1A 4036,D201,4036,402C,D207,D7B0,4030,9500 REP 0C2A A2BB,4770,FC40,D201,D7AE,FC50,D209,4030 REP 0C3A D7AE,47F0,E046,D201,D7AE,FC52,D209,4030 REP 0C4A D7AE,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,47F0,FC58,4700,0000 REP 0088 58F0,A068,47F0,FC6E,4700,0000 REP 00AE 58F0,A068,47F0,FC88,4700,0000 * NAME S2K00 S2KPATCH VER 0C58 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C68 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C78 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C88 0000,0000,0000,0000,0000,0000,0000,0000 VER 0C98 0000,0000,0000,0000,0000,0000,0000,0000 VER 0CA8 0000,0000,0000,0000 * REP 0C58 4F30,D048,1861,8910,0008,8810,0014,5610 REP 0C68 C1C4,47F0,C080,8860,0018,5060,A2B8,5930 REP 0C78 C1C8,4740,C0C4,1266,4770,C11E,47F0,C098 REP 0C88 5D40,C1D4,5C40,C1D4,1925,4770,C0BC,8850 REP 0C98 0002,1825,1B44,5D40,C1D4,5C40,C1D4,1925 REP 0CA8 4770,C0C4,47F0,C0BC * CHECKSUM A8AFCA4F
End of Zap Deck