home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / database / ledgers.lbr / LRCMO.CZD / LRCMO.CMD
OS/2 REXX Batch file  |  1987-05-10  |  1KB  |  37 lines
  1.  
  2. NOTE * Program...: LRCMO.CMD
  3. NOTE * Version...: 2.0
  4. NOTE * Author....: Terry Hazen
  5. NOTE * Date......: 12/06/85
  6. NOTE * Notice....: Copyright (c) 1985,  n/SYSTEMS
  7. STORE "l:check,l:date,l:payee,$(l:memo,1,22),l:account,l:amount"TO rfields
  8. STORE 0 TO rctot
  9. ?
  10. ?
  11. ? rline1
  12. ?
  13. ? rline2
  14. ?
  15. ? '==========================================================================='
  16. ? 'CkNo Date    Payee                    Memo          Acct    Amount'
  17. ? '==========================================================================='
  18. GO TOP
  19. DO WHILE .NOT. EOF
  20. IF l:type = 'Ck' .AND. rmonth$l:date
  21. DISPLAY OFF FIELDS &rfields
  22. STORE rctot + l:amount to rctot
  23. ENDI
  24. SKIP
  25. ENDD
  26. ? '==========================================================================='
  27. ? $(STR(0,80),1,59) + 'Total: ' + STR(rctot,9,2)
  28. RETUe + ' contains the original code.'
  29. ? '   The file ' + newfile + ' now contains the stripped code.'
  30. ?
  31. ?
  32. USE
  33. DELETE FILE text.dbf
  34. ACCEPT '   Enter <RET> to continue' TO ok
  35. ENDD
  36. CLEAR
  37. RETU