home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / BREPORTS.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  896b  |  38 lines
  1. ********************************* BREPORTS.CMD
  2. ********************** Ask user which report
  3. ********************** to use, and branch accordingly.
  4. STORE 0 TO REPCHOICE
  5. DO WHILE REPCHOICE <> 5
  6.    ERASE
  7.    TEXT
  8.                  Bookkeeping Report Options
  9.  
  10.                    1. Current Transactions
  11.                    2. Chart of Accounts
  12.                    3. Write checks
  13.                    4. Check Register
  14.  
  15.                    5. Return to Main Menu
  16.  
  17.    ENDTEXT
  18.    @ 12,10 SAY "Enter choice (1-5) from above ";
  19.      GET REPCHOICE PICTURE "9"
  20.    READ
  21.  
  22.    DO CASE
  23.       CASE REPCHOICE=1
  24.          DO CURREPT
  25.  
  26.       CASE REPCHOICE=2
  27.          DO COAREPT
  28.  
  29.       CASE REPCHOICE=3
  30.          DO CHECKS
  31.  
  32.       CASE REPCHOICE=4
  33.          DO REGISTER
  34.  
  35.    ENDCASE
  36. ENDDO (while repchoice <> 5)
  37. RETURN
  38.