home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / ledgers.lbr / LSEARCH.CZD / LSEARCH.CMD
OS/2 REXX Batch file  |  1987-05-10  |  2KB  |  89 lines
  1.  
  2. NOTE * Program...: LSEARCH.CMD
  3. NOTE * Version...: 2.0
  4. NOTE * Author....: Terry Hazen
  5. NOTE * Date......: 10/22/85
  6. NOTE * Notice....: Copyright (c) 1985,  n/SYSTEMS
  7. @ 18,00 SAY &setoend
  8. STORE ' ' TO lkey
  9. DO WHILE .NOT. lkey$'CP'
  10. STORE ' ' TO lkey
  11. @ 19,08 SAY 'Search for Check Number (C) or Payee (P)?...'
  12. @ 19,$+1 GET lkey PICTURE '!'
  13. READ
  14. CLEAR GETS
  15. ENDD
  16. @ 18,0 SAY &setoend
  17. DO CASE
  18. CASE lkey = 'C'
  19. STORE '    ' TO lcheck
  20. @ 19,08 SAY 'Enter Check Number...' GET lcheck
  21. READ
  22. LOCATE FOR VAL(l:check) = VAL(lcheck)
  23. IF .NOT. EOF
  24. STORE # TO xrecord
  25. GO BOTTOM
  26. IF xrecord + 9 > #
  27. SKIP -9
  28. STORE # TO xrecord
  29. ELSE
  30. GOTO xrecord
  31. ENDI
  32. @ 5,0 SAY '='
  33. DISPLAY OFF FIELDS &lfields
  34. SKIP
  35. DISPLAY WHILE # <= xrecord + 9 OFF FIELDS &lfields
  36. ELSE
  37. STORE ' ' TO lok
  38. @ 18,00 SAY &setoend
  39. @ 21,08 SAY '+++ No other Ledger Entry matches these '
  40. @ $,$+1 SAY 'specifications +++ '
  41. @ 23,08 SAY 'Hit any key to continue...' GET lok
  42. READ
  43. RETU
  44. ENDI
  45. CASE lkey = 'P'
  46. STORE $(STR(0,25),1,24) TO lpayee
  47. STORE 'F' TO lok
  48. DO WHILE lok = 'F'
  49. @ 19,08 SAY "Enter Name of Payee..."
  50. @ 19,$+1 GET lpayee PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!'
  51. READ
  52. CLEAR GETS
  53. STORE TRIM(lpayee) TO lpayee
  54. IF lpayee = ' '
  55. LOOP
  56. ELSE
  57. STORE 'C' TO lok
  58. ENDI
  59. ENDD
  60. LOCATE FOR lpayee$!(l:payee)
  61. STORE # TO xrecord
  62. STORE 1 TO l
  63. @ 5,0 SAY '='
  64. DO WHILE lok = 'C'
  65. DO WHILE l < 11
  66. IF EOF
  67. STORE l + 5 TO ln
  68. @ ln,0
  69. ELSE
  70. DISPLAY OFF FIELDS &lfields
  71. CONTINUE
  72. ENDI
  73. STORE l + 1 TO l
  74. ENDD
  75. IF .NOT. EOF
  76. STORE ' ' TO lok
  77. @ 19,08  SAY "Enter 'C' to continue or <RET> to "
  78. @ 19,$+1 SAY 'return to Menu...' GET lok PICTURE '!'
  79. READ
  80. IF lok = 'C'
  81. STORE 1 TO l
  82. @ 5,0 SAY '='
  83. ENDI
  84. ELSE
  85. STORE ' ' TO lok
  86. ENDI
  87. ENDD
  88. ENDC
  89. RETU