home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbutil.zip
/
DATE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
2KB
|
73 lines
SET FORMAT TO SCREEN
SET COLON OFF
SET TALK OFF
RESTORE FROM !DATE
ERASE
STORE Dateda TO MDateda
STORE Datemo TO MDatemo
STORE Dateyr TO MDateyr
@ 9,22 SAY "Enter any corrections to today's date:"
@ 11,35 SAY '╔══════════╗'
@ 12,35 SAY '║ ║'
@ 13,35 SAY '╚══════════╝'
STORE 99 TO Dateda
DO WHILE Dateda < 1 .OR. Dateda > 31 .OR. Datemo < 1 ;
.OR. Datemo > 12 .OR. Dateyr < 83
IF Dateda#99
@ 4,23 SAY "Try again."
ENDIF
STORE MDateda TO Dateda
@ 12,37 GET Datemo PICTURE '99'
@ 12,39 SAY "/" GET Dateda PICTURE '99'
@ 12,42 SAY "/" GET Dateyr PICTURE '99'
READ
ENDDO
SET COLON ON
ERASE
STORE STR(Dateda,2) TO A
STORE STR(Datemo,2) TO B
STORE STR(Dateyr,2) to C
IF $(A,1,1) < "1"
STORE "0" + $(A,2,1) TO A
ENDIF
IF $(B,1,1) < "1"
STORE "0" + $(B,2,1) TO B
ENDIF
STORE C+B+A TO D
STORE D TO Chr:Date
STORE VAL(D) TO Num:Date
DO CASE
CASE Datemo = 1
STORE "January " TO DatemoB
CASE Datemo = 2
STORE "February " TO DatemoB
CASE Datemo = 3
STORE "March " TO DatemoB
CASE Datemo = 4
STORE "April " TO DatemoB
CASE Datemo = 5
STORE "May " TO DatemoB
CASE Datemo = 6
STORE "June " TO DatemoB
CASE Datemo = 7
STORE "July " TO DatemoB
CASE Datemo = 8
STORE "August " TO DatemoB
CASE Datemo = 9
STORE "September " TO DatemoB
CASE Datemo = 10
STORE "October " TO DatemoB
CASE Datemo = 11
STORE "November " TO DatemoB
CASE Datemo = 12
STORE "December " TO DatemoB
ENDCASE
STORE DatemoB + STR(Dateda,2,0) TO DatemoB
STORE DatemoB + ", 19" TO DatemoB
STORE DatemoB + STR(Dateyr,2,0) TO MDate
*
SET DATE TO &B,&A,&C
RELEASE MDateda,MDatemo,MDateyr,A,B,C,D,DatemoB
SAVE TO !DATE
RELEASE Dateda,Datemo,Dateyr