home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
dbaseii
/
dataflow.lbr
/
MENU5.CZD
/
MENU5.CMD
Wrap
OS/2 REXX Batch file
|
1989-06-15
|
1KB
|
40 lines
*MENU5.PRG
DO WHILE T
RELEASE ALL
SET TALK OFF
ERASE
? '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
?
? ' BACK ORDER MAINTENANCE MENU',DATE()
?
? ' PRESS THE KEY REQUIRED TO ENTER THE DESIRED MODE'
?
?' KEY....................MODE'
?
?' 1 MENU FOR DISPLAY OF BACK ORDERS '
?' 2 CANCEL ANY BACK ORDERS SHIPPED OR NOT REQUIRED'
?' 3 WRITE ORDERS FROM THE BACK ORDERS'
?' R RETURN TO THE MAIN MENU'
?'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
WAIT TO DEC
STORE !(DEC) TO DEC
IF DEC='3'
DO a:RITEBACK
ENDIF
IF DEC='2'
DO a:CANBACK
LOOP
ENDIF
IF DEC='R'
RETURN
ENDIF
IF DEC='1'
DO a:BACKCHEK
ENDIF
ENDDO
......MODE'
?
?' 1 TO MENU FOR DISPLAY OF BACK ORDERS '
?' 2 TO CANCEL ANY BACK ORDERS SHIPPED OR NOT REQUIRED'
?' 3 TO WRITE ORDERS FROM THE BACK ORDERS'
?' R TO RETURN TO THE MAI