home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbbudget.zip
/
DISPLAY.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
4KB
|
111 lines
* COMMAND FILE 'DISPLAY'
* THIS FILE SUPPORTS THE "DISPLAY EXISTING BUDGET ITEMS" OPTION FROM MENU
*
*
REPORT FORM DISPLAY FOR #<=15
DO WHILE #<=15
SKIP
IF EOF .T.
ACCEPT 'Depress ENTER to return to Menu' TO ANY
DO MENU
ELSE
ENDIF
ENDDO
ACCEPT 'Depress ENTER to continue Display' TO ANY
REPORT FORM DISPLAY FOR #>15 .AND. #<=30 PLAIN
DO WHILE #<=30
SKIP
IF EOF .T.
ACCEPT 'Depress ENTER to return to Menu' TO ANY
DO MENU
ELSE
ENDIF
ENDDO
ACCEPT 'Depress ENTER to continue Display' TO ANY
REPORT FORM DISPLAY FOR #>30 .AND. #<=45 PLAIN
DO WHILE #<=45
SKIP
IF EOF .T.
ACCEPT 'Depress ENTER to return to Menu' TO ANY
DO MENU
ELSE
ENDIF
ENDDO
ACCEPT 'Depress ENTER to continue Display' TO ANY
REPORT FORM DISPLAY FOR #>45 .AND. #<=60 PLAIN
DO WHILE #<=60
SKIP
IF EOF .T.
ACCEPT 'Depress ENTER to return to Menu' TO ANY
DO MENU
ELSE
ACCEPT 'Depress ENTER to return to Menu' to any
DO MENU
ENDIF
ENDDO
DO MENU
RETURN
35,ITEM
Description
10,AMOUNT
Amount
10,ENTRY
Type
10.0083 7DEBIT LIFE INSURANCE 37.2683 7DEBIT LOCKERS 45.0083 7DEBIT LUNCH/HAIR 110.0083 7DEBIT MAGAZINES 11.0083 7DEBIT MASTERCHARGE 0.0083 7DEBIT PAY OFF AMEX #1 100.0083 7DEBIT SHELL * COMMAND FILE 'DELETE'
* THIS SERVICES THE "DELETE ITEM" OPTION FROM MENU
*
*
ERASE
@ 1,1 SAY 'This option permits deletion of a single item from the'
@ 2,1 SAY 'household budget database. Items incorrectly deleted'
@ 3,1 SAY 'can be re-entered via the "add items" option from the'
@ 4,1 SAY 'intital menu.'
@ 7,1 SAY 'You will need to enter the item number of the item'
@ 8,1 SAY 'that you wish to delete. If necessary, enter "0" to'
@ 9,1 SAY 'return to the Display option, otherwise enter the number'
@ 10,1 SAY 'of the item to be deleted'
?
?
?
?
INPUT ' Enter Item number for deletion' TO DEL
IF DEL=0
DO B:DISPLAY
ELSE
DELETE ALL FOR #=DEL
ERASE
DISPLAY ALL FOR #=DEL
?
?
?
?
INPUT 'Enter "0" to delete; any other number returns to menu.' TO HOOK
IF HOOK = 0
PACK
ERASE
@ 10,10 SAY 'Item has been deleted, returning to menu.'
DO B:MENU
ELSE
RECALL
ERASE
@ 10,15 SAY 'Item marked for deletion has been restored'
27.31 'DISPLAY'
* THIS FILE SUPPORTS THE "DISPLAY EXISTING BUDGET ITEMS" OPTION FROM MENU
*
*
REPORT FORM B:DISPLAY FOR #<=15
WAIT
REPORT FORM B:DISPLAY FOR #>15 .AND. #<=30
WAIT
REPORT FORM B:DISPLAY FOR #>30 .AND. #<=45
ACCEPT 'Depress ENTER to return to Menu' to any
DO B:MENU