home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / chkdte.lzh / CHKDTE.CLP next >
Text File  |  1987-05-28  |  167b  |  9 lines
  1. PGM (&DATE &OK)
  2.   DCL &DATE *CHAR 6
  3.   DCL &OK *LGL
  4.  
  5.     CHGVAR &OK '0'
  6.     CVTDAT &DATE &DATE *MDY *MDY  *NONE
  7.     MONMSG CPF0555 EXEC(CHGVAR &OK '1')
  8. RETURN
  9.