* DT.CVT
*
* BY WILLIAM GULBRANDSEN : 03-21-90
*
* UPDATES  :
*
* ELH 09-22-90 : PROCWRITE a formatted date
*
*-------------------
*
* THIS PROGRAM WILL TAKE A DATE INPUTTED AND CONVERT IT TO INTERNAL FORMAT
* NOTE : EXTERNAL DATE MUST BE IN 1ST BUFFER POSITION
*
*------------------
*
PROCREAD BUFFER THEN
  DATE = OCONV(BUFFER,"G0 1")
  LEN.REC = LEN(BUFFER)
  ST.PNT = INDEX(BUFFER," ",1)
  IF ST.PNT > 0 THEN KEEPER = BUFFER[ST.PNT,LEN.REC] ELSE KEEPER = ""
END ELSE
  DATE = DATE()
END
DATE = ICONV(DATE,'D')
KEEPER=KEEPER:" ":OCONV(DATE,"D2/")
BUFFER = DATE:KEEPER
PROCWRITE BUFFER
*
STOP