FTIME patch file

PATCH README file:
  
(Instructions for installing the patch from this email follow)
  
  
************************************************************************
FTIME patch  03 Feb 1998      Fixes SR# 5000-030064
  
03 Feb 1998  Fixes problem in FTIME. Allows years beyond 2000
  
                                        fixed SR:     KPR:5000-030064
  
PROBLEM DESCRIPTION: FTIME gets the year and subtracts 1900 from it.
                     It needs to check the year and subtract whatever is
                     appropriate to get a remainder of <100.
                     The problem in FTIME is the hard coded use
                     of 1900 in the year calculation.
  
                     This patch corrects this problem.
  
  
               Note: This is only a problem in pre 5.0 RTE-A and pre
                     6.2 RTE-6 systems.  If your RTE system(s) is at the
                     revision stated, or later, you do not need this patch
  
  
---------------------------------------------------------------------------
INSTALLATION: 1) Attached to this message is a UUENCODED copy of the
                 Rev 5000 %FTIME.  Instructions for decoding are
                 contained below.
  
              2) Any user or system program that calls FTIME needs
                 to be re-LINKed with this new %FTIME. This can be
                 accomplished several ways:
  
                 a) Add the following line to the .lod file for the
                    program:
  
                    RE,%FTIME
  
                    This should be the first relocate command, and
                    before any LI or SE command.
  
                 b) Add %FTIME to the LINK runstring as follows:
  
                    LINK,<filename>,%FTIME
  
                      where filename is either a relocatable or a load
                      command file.
  
  
FILES:    FTIME.read    (This file)
          %FTIME        Relocatable to be linked with user program
  
  
This patch is meant for installation on pre 5.0 systems.
  
  
INSTALLATION RECOMMENDATION:  Install on pre 5.0 RTE-A systems or pre
                              6.2 RTE-6 systems where year 2000 issues
                              are a concern.
  
************************************************************************
 
 
To install from this email message, perform the following steps:
 
1) Save this email as an ASCII file on your 9000 or other UN*X
   system.
 
2) EDIT the file and place the letter "b" in front of "egin" on the
   line below "cut here" (It was left out so that PC clients would NOT
   attempt to decode the file for you....
 
 
3) Run uudecode to extract the binary file:
 
   $ uudecode <file>     Where <file> is the file created in step 1
 
   This will create %FTIME:::5:4:127
 
3) Run ftp and using binary mode copy this file to the 1000
 
   Make sure you specify the full namr for the target: %FTIME:::5:4:127
 
Or
 
4) Use tar and put the file on compatible media to transport
   the file to the 1000, where you can use FST or TF to recover the file.
 
5) Re-link your programs as described above
 
 
*************************************************
INSERT 'b' ahead of 'egin' before decoding.
 
------------------ cut here ---------------------------------
 egin 644 %ftime:::5:4:127
M`#DY`.!8B0$`````````SP``````!P`````````````````````'SA$+!"X`
M`"&9__\/`T9424U%(#DR,#<P+3%8,3DU("!2158N-3`P,"`@.#8P-C,P(/_G
M+U=!3%0O1D]25%)!3B]424U%+R9&5$E-12``.0`*"@#@@;52``$````,``-&
M5$E-12``"@`'!P#A`6N?``$``D5814,`!P!_?P#@P`P2``$`````0T,````+
M^)3X,``,``#_Q/_T,`#__P``04U030`#````&```B("`#'`!``P("`0!Z```
M`0J]*`$`$801>`$`"Q@!`!H``!&(`)$`EF`!`),8`0!YB`!H`0"$,`$`!H)(
MB0`8B`"98`$`E&@!``E``0`%"(@$$2@!`"AH`0`(8`$`E`B(!`-@`0`#>`$`
MFQ@!`'F(@'`!`)A@`0"60`$``@00@`$H`0`]#0"!``".B(AP`0"%8````1@!
M`'DP`0`&B(AP`0"F8`$`AS`!`(5P`0"EB(@H`0!"0`$`CA@!`'EP`0"FB(!@
M`0"&<`$`I6@!`)4`?P!_?P#@P,A6``$```!#1T>(@$@!``1@`0"6$`$`"@0"
M"`@,$$@!``<,$$@!`)"("$@!`(U@```!`I)````!`!@-`($``(]P`0"1@`%@
M```!#0"!``"+"(@$!!@!`'EP`0"@:`$`D0@`"@!(`0"VB("``0$(B0``H@<`
M0`$`E@B``E%``0"60`$`E0T``0B!``","@!(`0"G``&(@(`!B0``G8B(:`$`
MB7@!`(I@`0"7Z````("(^`$`"P0$.`$`"S@!`(J(`"@!`'*H`0`,```-``$(
M@0``B`0"0`$`@PB(`]=````!,`$`@Z@!`'D``"`P(#H``#$Y```R,``*__$`
M?P!<7`#@P`12``$```"+1$0````%``<`'P!D````F0%N````````````````
M```0``"8,3(Z,#$@``!032`@34].+@``+"`R.2`@1$4``$,N+"`Q.3<U$```
MJ$9222Y300``5"Y354XN34\``$XN5%5%+E=%``%$+E1(52X`M0``34%2+D%0
M4BX``$U!62!*54Y%``!*54Q9055'+@``4T505$]#5"X``$Y/5BY$14,N``!*
M04XN1D5"+@!<``0$`.%`8^R"K``$__^(B'`!`*9@`0"',`$`A7`!`*6(B"@!
M`$)``0".&`$`>7`!`*:(@&`!`(9P`0"E:`$`E0!_`']_`.#`R%8``0```$-'
M1XB`2`$`!&`!`)80`0`*!`(("`P02`$`!PP02`$`D(@(2`$`C6````$"DD``
B``$`&`T`@0``CW`!`)&``6````$-`($``(L(B`0$&`$`>0``
`
end