home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbutil.zip / DATE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  73 lines
  1. SET FORMAT TO SCREEN
  2. SET COLON OFF
  3. SET TALK OFF
  4. RESTORE FROM !DATE
  5. ERASE
  6. STORE Dateda TO MDateda
  7. STORE Datemo TO MDatemo
  8. STORE Dateyr TO MDateyr
  9. @ 9,22 SAY "Enter any corrections to today's date:"
  10. @ 11,35 SAY '╔══════════╗'
  11. @ 12,35 SAY '║          ║'
  12. @ 13,35 SAY '╚══════════╝'
  13. STORE 99 TO Dateda
  14. DO WHILE Dateda < 1 .OR. Dateda > 31 .OR. Datemo < 1 ;
  15.  .OR. Datemo > 12 .OR. Dateyr < 83
  16.    IF Dateda#99
  17.       @ 4,23 SAY "Try again."
  18.    ENDIF
  19.    STORE MDateda TO Dateda
  20.    @ 12,37 GET Datemo PICTURE '99'
  21.    @ 12,39 SAY "/" GET Dateda PICTURE '99'
  22.    @ 12,42 SAY "/" GET Dateyr PICTURE '99'
  23.    READ
  24. ENDDO
  25. SET COLON ON
  26. ERASE
  27. STORE STR(Dateda,2) TO A
  28. STORE STR(Datemo,2) TO B
  29. STORE STR(Dateyr,2) to C
  30. IF $(A,1,1) < "1"
  31.    STORE "0" + $(A,2,1) TO A
  32. ENDIF
  33. IF $(B,1,1) < "1"
  34.    STORE "0" + $(B,2,1) TO B
  35. ENDIF
  36. STORE C+B+A TO D
  37. STORE D TO Chr:Date
  38. STORE VAL(D) TO Num:Date
  39. DO CASE
  40.    CASE Datemo = 1
  41.       STORE "January " TO DatemoB
  42.    CASE Datemo = 2
  43.       STORE "February " TO DatemoB
  44.    CASE Datemo = 3
  45.       STORE "March " TO DatemoB
  46.    CASE Datemo = 4
  47.       STORE "April " TO DatemoB
  48.    CASE Datemo = 5
  49.       STORE "May " TO DatemoB
  50.    CASE Datemo = 6
  51.       STORE "June " TO DatemoB
  52.    CASE Datemo = 7
  53.       STORE "July " TO DatemoB
  54.    CASE Datemo = 8
  55.       STORE "August " TO DatemoB
  56.    CASE Datemo = 9
  57.       STORE "September " TO DatemoB
  58.    CASE Datemo = 10
  59.       STORE "October " TO DatemoB
  60.    CASE Datemo = 11
  61.       STORE "November " TO DatemoB
  62.    CASE Datemo = 12
  63.       STORE "December " TO DatemoB
  64. ENDCASE
  65. STORE DatemoB + STR(Dateda,2,0) TO DatemoB
  66. STORE DatemoB + ", 19" TO DatemoB
  67. STORE DatemoB + STR(Dateyr,2,0) TO MDate
  68. *
  69. SET DATE TO &B,&A,&C
  70. RELEASE MDateda,MDatemo,MDateyr,A,B,C,D,DatemoB
  71. SAVE TO !DATE
  72. RELEASE Dateda,Datemo,Dateyr
  73.