Date:         Wed, 28 Jul 1999 14:12:11 -0400
Reply-To:     CHUCK MAKINSON <clmakinson@GOODYEAR.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
Comments:     To: SAS-L@VTVM1.CC.VT.EDU
From:         CHUCK MAKINSON <clmakinson@GOODYEAR.COM>
Subject:      Custom Y2K Format
Comments: To: SAS-L@LISTSERV.VT.EDU
Content-Type: text/plain; charset=iso-8859-1

Does anyone have or know of a format and informat that will handle  packed
decimal dates
that use the high 4 bits as a century indicator?
We currently have an MVS system that stores dates as YYMMDD in PD4..
The system is being converted to store the dates in the same PD4. but prefix
them with a 1 for the 21st century.
For example, if the date is 01JAN99 then it is stored as '0990101'x;
In the new system 01JAN1999 will be '0990101'x and 01JAN2099 will be
'1990101'x.
The suggestion from SAS tech support was to add 19000000 to the date and then
convert it such as,
    input @1 dt1 pd4.0;
  dt1=  input(put(dt1+19000000,8.),yymmdd10.);
Although this will work it does not seem very elegant.
Due to the number of programs to convert it would be simpler  use  informat and
format statements.