* DATECK.CMD
* Purpose: checks inputed dates for obvious errors.
* Variables: Date (C)
*            NoDate (L)
*
STORE DATE() to Date
STORE T to NoDate
DO WHILE NoDate
  IF VAL($(DATE,1,2))>12;
   .OR. VAL($(Date,1,2))<1;
   .OR. VAL($(Date,4,2))>31;
   .OR. VAL($(Date,4,2))<1;
   .OR. VAL($(Date,7,2))<>89
   STORE "        " to Date
   @ 23, 5 SAY "Date Incorrect or not on file"
   ACCEPT "     Please enter the correct Date (DD/MM/YY)" to Date
   STORE T to NoDate
 ELSE
   STORE F to NoDate
 ENDIF
SET DATE TO &DATE
RELEASE NODATE
ENDDO
RETURN


* Variables: Date (C)
*            NoDate (L)
*
STORE DATE() to Date
STORE T to NoDate
DO WHILE NoDate
  IF VAL($(DATE,1,2))>12;
   .OR. VAL($(Date,1,2))<1;
   .OR. VAL($(Date,4,2))>31;
   .OR. VAL($(Date,4,2))<1;
   .OR. VAL($(Date,7,2))<>89
   STORE "        " to Date
   @ 23, 5 SAY "Date Incorrect or not on file"
   ACCEPT "     Please enter the correct Date (DD/MM/YY)" to Date
   STORE T to NoDate
 ELSE
   STORE F to NoDa