home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / CHECKOFF.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  51 lines
  1. *CHECKOFF.PRG
  2. *TO CHECK OFF CHEQUES AS PRESENTED
  3. ERASE
  4. STORE 0 TO CHEQUE
  5. USE GENLED INDEX CHQNUM
  6. DO WHILE T
  7. ERASE
  8. @ 5,0 SAY 'WHAT IS CHEQUE NUMBER TO CHECK OFF (ZERO) 0 TO QUIT';
  9. GET CHEQUE PICT '!!!!!!'
  10. READ
  11. IF CHEQUE=0
  12. RETURN
  13. ENDIF
  14. STORE STR(CHEQUE,10) TO CHEQ
  15. FIND &CHEQ
  16. IF #=0
  17. ? chr(7)
  18. @ 7,0 SAY 'CHEQUE NOT FOUND PROBABLY NOT ENTERED YET TRY AGAIN , PRESS ANY ;
  19. KEY '
  20. STORE 0 TO CHEQUE
  21. WAIT
  22. LOOP
  23. ENDIF
  24. STORE PRESENTED TO PRES
  25. @ 7,0
  26. @ 8,0 SAY 'CATGRY'
  27. @ 8,10 SAY 'PAYEE'
  28. @ 8,50 SAY 'DATE'
  29. @ 8,60 SAY'AMOUNT'
  30. @ 9,0 SAY TYPE
  31. @ 9,10 SAY PAYEE
  32. @ 9,50 SAY DATECHQ
  33. @ 9,60 SAY AMTCHQ
  34. @ 10,0 SAY 'IF THIS CHEQUE HAS BEEN PRESENTED SET FLAG TO TRUE "T" ' GET ;
  35.  PRES
  36. READ
  37. REPLACE PRESENTED WITH PRES
  38. STORE 0 TO CHEQUE
  39. ENDDO
  40. erase
  41. return
  42. CASE DEC='3'
  43. erase
  44. STORE ' ' TO DEC2
  45. @ 1,0 SAY ' FOR A FULL REPORT PRESS F , FOR MONTHLY PRESS M'GET DEC2
  46. @ 2,0 SAY ' FOR A SUMMARY FULL PERIOD REPORT PRESS S'
  47. READ
  48. STORE !(DEC2) TO DEC2
  49. IF DEC2='F'
  50. USE GENLED INDEX GENTYPE
  51. REPORT FORM GENLE