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 / CPM / DATABASE / HANDYP10.LBR / ACTPLANS.CZD / ACTPLANS.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  98 lines
  1. STOR 'T' to actplans
  2. USE actplans index actplans
  3. @ 18,0
  4. @ 16,0
  5. SET intensity off
  6. @ 3,54 say chr(27)+chr(66)+chr(50)
  7. @ 3,54 say 'ACTION PLANNING SUBSYSTEM'
  8. @ 3,77 say chr(27)+chr(67)+chr(50)
  9. SET intensity on
  10. @ 5,50 say 'A - Display action plan topics'
  11. @ 6,50 say 'B - Make planning item entries'
  12. @ 7,50 say 'C - Scan the planning database'
  13. @ 8,50 say 'D - Display/edit a action plan'
  14. @ 9,50 say 'E - Go to general action plans'
  15. @ 14,50 say 'R - Return to main system menu'
  16. SET intensity off
  17. @ 16,54 say "Option (0-9; A-D or R)? "
  18. SET console off
  19. WAIT to option
  20. SET console on
  21. IF val(option)>0 .or. option='0'
  22. DO changeop
  23. RETU
  24. ENDI
  25. DO CASE
  26. CASE !(option)='A'
  27. ERAS
  28. SET intensity on
  29. @ 1,0 say 'ACTION PLANNING TOPICS ON FILE'
  30. SET intensity off
  31. GOTO top
  32. STOR 3 to row
  33. STOR 0 to col
  34. DO WHIL .not. eof
  35. @ row,col say note:subj
  36. STOR note:subj to hold
  37. SKIP
  38. DO WHIL note:subj=hold .and. .not. eof
  39. SKIP
  40. ENDD
  41. STOR row+1 to row
  42. IF row=18
  43. STOR 3 to row
  44. STOR col+40 to col
  45. ENDI
  46. IF col>40 .and. .not. eof
  47. STOR ' ' to option
  48. @ 20,0 say 'More... Continue or Exit (C/E)';
  49. get option
  50. READ
  51. IF !(option)='E'
  52. RETU
  53. ELSE
  54. ERAS
  55. STOR 3 to row
  56. STOR 0 to col
  57. @ 1,0 say 'ACTION PLANNING TOPICS ON FILE'
  58. ENDI
  59. ENDI
  60. ENDD
  61. @ 20,0 say 'Press RETURN to return to menu...'
  62. ?
  63. WAIT to return
  64. CASE !(option)='B'
  65. ERAS
  66. GOTO bottom
  67. @ 2,5 say 'Enter action plan notes below - press RETURN to skip unused lines...'
  68. DO notecard
  69. CASE !(option)='C'
  70. SET intensity on
  71. GOTO top
  72. BROW
  73. PACK
  74. CASE !(option)='D'
  75. ERAS
  76. GOTO top
  77. STOR '                              ' to subj
  78. @ 22,0 say 'Please enter topic of action plan';
  79. get subj
  80. READ
  81. STOR 'T' to actplans
  82. DO WHIL actplans='T' .and. .not. eof
  83. FIND &subj
  84. DO notecard
  85. @ 22,8 say 'Continue to search topic (Y/N)';
  86. get cont
  87. READ
  88. IF !(cont)#'Y'
  89. STOR 'F' to actplans
  90. PACK
  91. ENDI
  92. ENDD
  93. CASE !(option)='E'
  94. ERAS
  95. QUIT to 'textedit b:actplans.txt','dbase wstation'
  96. ENDC
  97. RETU
  98.