home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / BOOKS.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  1KB  |  46 lines
  1. *********************************** BOOKS.CMD
  2. *************** Bookkeeping System Main Menu.
  3. SET TALK OFF
  4. SET DEFA TO B
  5. SET BELL OFF
  6. STORE 0 TO CHOICE
  7.  
  8. *************** First, get today's date.
  9. ERAS
  10. STORE DATE() TO T:DATE
  11. @ 5,1 SAY "Enter today's date";
  12.   GET T:DATE PICT "99/99/99"
  13. READ
  14. ***************** Display Main Menu.
  15. DO WHILE CHOICE <> 5
  16.    ERASE
  17.    @  2,10 SAY "Bookkeeping System Main Menu"
  18.    @  4,11 SAY "1. Add New Transactions"
  19.    @  5,11 SAY "2. Update Chart of Accounts"
  20.    @  6,11 SAY "3. Print Reports"
  21.    @  7,11 SAY "4. Edit Data"
  22.    @  8,11 SAY "5. Exit"
  23.    @ 10,10 SAY "Enter your choice (1-4) from above"
  24.    @ 10,45 GET CHOICE PICT "9"
  25.    READ
  26.  
  27.    ************** Branch Accordingly.
  28.    DO CASE
  29.  
  30.       CASE CHOICE = 1 
  31.          DO ADDTRANS
  32.  
  33.  
  34.       CASE CHOICE = 2
  35.          DO UPDATER
  36.  
  37.       CASE CHOICE = 3
  38.          DO BREPORTS
  39.  
  40.       CASE CHOICE = 4
  41.          DO BEDIT
  42.  
  43.    ENDCASE
  44.  
  45. ENDDO (while choice <> 4)
  46.