home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbudget.zip / EDIT.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  3KB  |  48 lines
  1. * COMMAND FILE "EDIT"
  2. * PROVIDES THE OPTION TO EDIT A SINGLE ENTRY IN THE HOSEHOLD ACCOUNTS
  3. *
  4. *
  5. ERASE
  6. USE BUDGET
  7. INPUT 'Enter number of Item to edit' TO RECNUM
  8. ERASE
  9. ?
  10. ?
  11. ?
  12. DISPLAY ITEM FOR #=RECNUM
  13. DISPLAY AMOUNT FOR #=RECNUM
  14. DISPLAY YEAR FOR #=RECNUM
  15. DISPLAY MONTH FOR #=RECNUM
  16. DISPLAY ENTRY FOR #=RECNUM
  17. ?
  18. ACCEPT 'ENTER NEW ITEM' TO NITEM
  19. ACCEPT 'ENTER CORRECTION AS ABOVE? (Y/N)' TO KEY
  20. IF KEY='Y'
  21. REPLACE ITEM WITH NITEM FOR #=RECNUM
  22. ENDIF
  23. INPUT 'ENTER NEW AMOUNT' TO NAMT
  24. ACCEPT 'ENTER CORRECTION AS ABOVE? (Y/N)' TO KEY
  25. IF KEY='Y'
  26. REPLACE AMOUNT WITH NAMT FOR #=RECNUM
  27. ENDIF
  28. INPUT 'ENTER NEW YEAR' TO NYEAR
  29. ACCEPT 'ENTER CORRECTION AS ABOVE? (Y/N)' TO KEY
  30. IF KEY='Y'
  31. REPLACE YEAR WITH NYEAR
  32. ENDIF
  33. INPUT 'ENTER NEW MONTH' TO NMONTH
  34. ACCEPT 'ENTER CORRECTION AS ABOVE? (Y/N)' TO KEY
  35. IF KEY='Y'
  36. REPLACE MONTH WITH NMONTH
  37. ENDIF
  38. ACCEPT 'ENTER NEW ENTRY' TO NENTRY
  39. ACCEPT 'ENTER CORRECTION AS ABOVE? (Y/N)' TO KEY
  40. IF KEY='Y'
  41. REPLACE ENTRY WITH NENTRY
  42. ENDIF
  43. DO MENU
  44. RETURN
  45.  
  46. ONAL WILDLIFE                    10.5083 8DEBIT  PALAIS ROYAL                         19.0883 8DEBIT  PAYCHECK                           1290.6883 8CREDIT PAYCHECK                           1219.2883 8CREDIT PHONE                                40.0083 8DEBIT  SHELL                                 0.0083 8DEBIT  STAMPS @ $3                          12.0083 8DEBIT  TERMITES (7 OF 13 @ $7)              49.0083 8DEBIT  UTILITIES                            40.0083 8DEBIT  VET. CARRY OVER                                  158.9283 8DEBIT  VOLKSWAGEN LICENSE (7 OF 12 @ $2)    14.0083 8DEBIT  WESTLAKE CLUB                       200.0083 8DEBIT  CURRENT BANK BALANCE                 50.0083 8CREDITDELETE THIS                           5.0083 8                                                          AN #7, $10        10.0083 7DEBIT  BANK INTEREST FOR INS. LOAN           0.0083 7DEBIT  TELEPHONE                            40.0083 7DEBIT  CABLE TELEVISION         O KEY
  47. IF KEY='Y'
  48. REPLACE ENTRY WITH NENTR