home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbudget.zip / DISPLAY.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  4KB  |  111 lines
  1. * COMMAND FILE 'DISPLAY'
  2. * THIS FILE SUPPORTS THE "DISPLAY EXISTING BUDGET ITEMS" OPTION FROM MENU
  3. *
  4. *
  5. REPORT FORM DISPLAY FOR #<=15
  6. DO WHILE #<=15
  7. SKIP
  8. IF EOF .T.
  9. ACCEPT 'Depress ENTER to return to Menu' TO ANY
  10. DO MENU
  11.    ELSE
  12. ENDIF
  13. ENDDO
  14. ACCEPT 'Depress ENTER to continue Display' TO ANY
  15. REPORT FORM DISPLAY FOR #>15 .AND. #<=30 PLAIN
  16. DO WHILE #<=30
  17. SKIP
  18. IF EOF .T.
  19. ACCEPT 'Depress ENTER to return to Menu' TO ANY
  20. DO MENU
  21.    ELSE
  22. ENDIF
  23. ENDDO
  24. ACCEPT 'Depress ENTER to continue Display' TO ANY
  25. REPORT FORM DISPLAY FOR #>30 .AND. #<=45 PLAIN
  26. DO WHILE #<=45
  27. SKIP
  28. IF EOF .T.
  29. ACCEPT 'Depress ENTER to return to Menu' TO ANY
  30. DO MENU
  31.    ELSE
  32. ENDIF
  33. ENDDO
  34. ACCEPT 'Depress ENTER to continue Display' TO ANY
  35. REPORT FORM DISPLAY FOR #>45 .AND. #<=60 PLAIN
  36. DO WHILE #<=60
  37. SKIP
  38. IF EOF .T.
  39. ACCEPT 'Depress ENTER to return to Menu' TO ANY
  40. DO MENU
  41.    ELSE
  42.    ACCEPT 'Depress ENTER to return to Menu' to any
  43.    DO MENU
  44. ENDIF
  45. ENDDO
  46. DO MENU
  47. RETURN
  48.  
  49.  
  50. 
  51.  
  52. 35,ITEM
  53. Description
  54. 10,AMOUNT
  55. Amount
  56. 10,ENTRY
  57. Type
  58.         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'
  59. * THIS SERVICES THE "DELETE ITEM" OPTION FROM MENU
  60. *
  61. *
  62. ERASE
  63. @ 1,1 SAY 'This option permits deletion of a single item from the'
  64. @ 2,1 SAY 'household budget database.  Items incorrectly deleted'
  65. @ 3,1 SAY 'can be re-entered via the "add items" option from the'
  66. @ 4,1 SAY 'intital menu.'
  67. @ 7,1 SAY 'You will need to enter the item number of the item'
  68. @ 8,1 SAY 'that you wish to delete.  If necessary, enter "0" to'
  69. @ 9,1 SAY 'return to the Display option, otherwise enter the number'
  70. @ 10,1 SAY 'of the item to be deleted'
  71. ?
  72. ?
  73. ?
  74. ?
  75. INPUT '                   Enter Item number for deletion' TO DEL
  76. IF DEL=0
  77. DO B:DISPLAY
  78.    ELSE
  79.    DELETE ALL FOR #=DEL
  80.    ERASE
  81.    DISPLAY ALL FOR #=DEL
  82. ?
  83. ?
  84. ?
  85. ?
  86. INPUT 'Enter "0" to delete; any other number returns to menu.' TO HOOK
  87. IF HOOK = 0
  88.    PACK
  89.    ERASE
  90.    @ 10,10 SAY 'Item has been deleted, returning to menu.'
  91.    DO B:MENU
  92.       ELSE
  93.       RECALL
  94.       ERASE
  95.       @ 10,15 SAY 'Item marked for deletion has been restored'
  96.        27.31 'DISPLAY'
  97. * THIS FILE SUPPORTS THE "DISPLAY EXISTING BUDGET ITEMS" OPTION FROM MENU
  98. *
  99. *
  100. REPORT FORM B:DISPLAY FOR #<=15
  101. WAIT
  102. REPORT FORM B:DISPLAY FOR #>15 .AND. #<=30
  103. WAIT
  104. REPORT FORM B:DISPLAY FOR #>30 .AND. #<=45
  105. ACCEPT 'Depress ENTER to return to Menu' to any
  106. DO B:MENU
  107.                                                                                                   /y  A A0A@APA`ApAAABBB" option from the'
  108. @ 4,1 SAY 'intital menu.'
  109. @ 7,1 SAY 'You will need to enter the item number of the item'
  110. @ 8,1 SAY 'that you wish to delete.  If necessary, enter "0" to'
  111. @ 9,1 SAY 'return to the Display option, othBBB