home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / REGISTER.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  1KB  |  62 lines
  1. ********************************* REGISTER.CMD
  2. ********* Update check register file and print.
  3. ERASE
  4. ? "Updating register file..."
  5.  
  6. USE TRANS
  7. COPY TO TEMP FOR WRITTEN .AND. .NOT.;
  8.  REGISTERED .AND. TYPE=1
  9. REPL ALL REGISTERED WITH T FOR WRITTEN .AND. .NOT.;
  10.  REGISTERED .AND. TYPE=1
  11.  
  12. *********************** Update register.
  13. USE REGISTER
  14. APPE FROM TEMP
  15.  
  16. *********************** Ask about printer.
  17. ERAS
  18. STORE "        " TO START,FINISH
  19. STORE " " TO YN,COND
  20.  
  21. @ 3,2 SAY "Enter starting date " GET START
  22. @ 4,2 SAY "Enter ending date " GET FINISH
  23. @ 6,2 SAY "Send to print (Y/N) " GET YN
  24. READ
  25.  
  26. IF !(YN)="Y"
  27.    STORE "TO PRINT" TO COND
  28. ENDIF
  29. SET EJECT OFF
  30.  
  31. SUM AMOUNT FOR .NOT. DEPOSIT TO EXPENSE
  32. SUM AMOUNT FOR DEPOSIT TO INCOME
  33.  
  34. REPO FORM REGISTER FOR DATE >= START .AND.;
  35.   DATE <=FINISH &COND
  36. ?
  37. ?
  38. ? "   Balance        ",INCOME-EXPENSE
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59. ERASE
  60.       @ 5,2 SAY "Enter Date " GET DATE
  61.       @ 7,2 SAY "Enter Amount " GET AMOUNT;
  62.           PICT "99999