For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
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.1 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 12.1 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 TIMDAT VER 0078 8810,000C,5610,C1C4 VER 0088 5930,C1C8,4740,C0C4 VER 00B2 5C40,C1D4,1925,4780 REP 0078 58F0,A068,47F0,F3B2 REP 0088 58F0,A068,47F0,F3C4 REP 00B2 58F0,A068,47F0,F3DA * NAME S2K00 PARSCN VER 14AC 58A0,D69C,47F7,E008,47F0,E056,47F0,E04E VER 14BC D207,4030,4040,924B,4032,924B,4035,9200 VER 14CC 4038,47F0,CB2E VER 14DA 95F9,4036 VER 14F2 9200,403A,47F0,CB2E VER 1540 95F9,4030 REP 14AC 47F7,E004,47F0,E056,47F0,E04E,D207,4030 REP 14BC 4040,924B,4032,924B,4035,9200,4038,58F0 REP 14CC A068,47F0,F402 REP 14DA 9500,A2BB REP 14F2 58F0,A068,47F0,F3FE REP 1540 9500,A2BB * * NAME S2K00 S2KPATCH VER 03B2 0000,0000,0000,0000,0000,0000,0000,0000 VER 03C2 0000,0000,0000,0000,0000,0000,0000,0000 VER 03D2 0000,0000,0000,0000,0000,0000,0000,0000 VER 03E2 0000,0000,0000,0000,0000,0000,0000,0000 VER 03F2 0000,0000,0000,0000,0000,0000 VER 03FE 0000,0000,0000,0000,0000,0000 REP 03B2 1861,8910,0008,8810,0014,5610,C1C4,47F0 REP 03C2 C080,8860,0018,5060,A2B8,1266,0700,0700 REP 03D2 4770,C11E,47F0,C098,5C40,C1D4,1925,4770 REP 03E2 C0BC,8850,0002,1825,1B44,5D40,C1D4,5C40 REP 03F2 C1D4,1925,4770,C0C4,47F0,C0BC REP 03FE 9200,403A,58A0,D69C,47F0,CB2E * CHECKSUM A9BF17A6
End of Zap Deck