home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / SETDATE.CMD < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.0 KB  |  37 lines
  1. * Program.: SETDATE.CMD
  2. * Author..: Luis A. Castro.
  3. * Date....: 7/28/83, 11/20/83.
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved.
  5. * Version.: dBASE II, version 2.3x, 2.4x
  6. * Notes...: Sets the system date with a verified date.
  7. *
  8. SET TALK OFF
  9. SET BELL OFF
  10. IF $(DATE(),1,5)="00/00"
  11.    *
  12.    * ---The system date was not entered.
  13.    ERASE
  14.    @ 2, 0 SAY "S Y S T E M    D A T E"
  15.    @ 3, 0 SAY "========================================"
  16.    @ 3,40 SAY "========================================"
  17.    *
  18.    * ---Loop through until a valid date is entered.
  19.    STORE F TO is:valid
  20.    DO WHILE .NOT. is:valid
  21.       STORE "  /  /  " TO mdate
  22.       @ 5,0 SAY "Enter system date as MM/DD/YY ";
  23.             GET mdate PICTURE "99/99/99"
  24.       READ
  25.       * ---Date verification routine.
  26.       DO Datetest
  27.    ENDDO 
  28.    *
  29.    * ---The system date is set at this point.
  30.    SET DATE TO &mdate
  31.    RELEASE is:valid, mdate
  32. ENDIF
  33. SET BELL ON
  34. SET TALK ON
  35. RETURN 
  36. * EOF: SETDATE.CMD
  37.