home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / REG2.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  1KB  |  54 lines
  1. ******************************* REGISTER.CMD
  2. ********** Print a listing of checks that have
  3. ********** been written from the TRANS file.
  4.  
  5. ********** First, get written, unregistered checks from TRANS
  6. USE TRANS INDEX ACCT
  7. COPY TO TEMP FOR WRITTEN .AND. .NOT. REGISTERD .AND. TYPE=1
  8. USE REGISTER
  9. APPEND FROM TEMP 
  10.  
  11. ********** Ask about range.
  12. ERASE
  13. STORE 0 TO START
  14. STORE 9999 TO FINISH
  15.  
  16. @ 5,2 SAY "Starting at what check number? ";
  17.       GET START PICT "9999"
  18. @ 7,2 SAY "Ending at what check number (9999 for all) ";
  19.       GET FINISH PICT "9999"
  20. READ
  21.  
  22. *********** Handle printer.
  23. STORE " " TO YN
  24. @ 12,2 SAY "Send check register to printer? " GET YN
  25. READ
  26. IF !(YN)="Y"
  27.    STORE "TO PRINT" TO COND
  28. ELSE
  29.    STORE " " TO COND
  30. ENDIF (yn=y)
  31.  
  32. *********** Make little file of checks written in
  33. *********** desired range, then sort it.
  34. USE TRANS
  35. COPY TO TEMP FOR WRITTEN .AND. CHECK:NO >= START .AND. CHECK:NO  <=FINISH
  36. USE TEMP
  37. INDEX ON CHECK:NO TO CHECKS
  38.  
  39.  
  40. REPO FORM REGISTER &COND
  41.  
  42. ************ Pause if not going to printer.
  43. IF !(YN)<>"Y"
  44.    ?
  45.    ?
  46.    ? "Press any key to return to menu..."
  47.    SET CONS OFF
  48.    WAIT
  49.    SET CONS ON
  50. ENDIF (yn=y)
  51.  
  52. RELEASE START,FINISH,YN,COND
  53. RETURN
  54.