home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / MAILINP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  75 lines
  1. * THIS PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
  2. * MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. SET TALK OFF
  6. poke 1047,10
  7. STORE T TO CONTINUE
  8. DO WHILE CONTINUE
  9. STORE 0 TO MAINMEN
  10. STORE 0 TO MREC1
  11. USE &DBF1 INDEX &NDX1, &NDX2, &NDX3, &NDX4, &NDX5
  12. APPEND BLANK
  13. STORE # TO MREC1
  14. STORE T TO FMT
  15. DO WHILE FMT
  16. SET FORMAT TO &GETMAIL
  17. READ
  18. CLEAR GETS
  19. STORE T TO REVIEW
  20. DO WHILE REVIEW
  21. erase
  22. @ 10,5 SAY "Are all you entries correct ?"
  23. @ 12,5 SAY "Press 'R' to review and correct your entries"
  24. @ 14,5 SAY "Press 'Y' to write your entries into the record"
  25. @ 16,5 SAY "Press 'N' to abort entries and return to the menu"
  26. ?
  27. ?
  28. ?
  29. WAIT TO ANS
  30. IF !(ANS) <> 'R' .AND. !(ANS) <> 'Y' .AND. !(ANS) <> 'N'
  31. ERASE
  32. LOOP
  33. ELSE
  34. STORE F TO REVIEW
  35. ENDIF
  36. ENDDO
  37. IF !(ANS) = 'R'
  38. CLEAR GETS
  39. ERASE
  40. LOOP
  41. ELSE
  42. IF !(ANS) = 'Y'
  43. STORE F TO FMT
  44. ERASE
  45. ELSE
  46. STORE F TO FMT
  47. ERASE
  48. SET FORMAT TO SCREEN
  49.      USE
  50.      USE &DBF1 INDEX &NDX1, &NDX2, &NDX3, &NDX4, &NDX5
  51.      GOTO MREC1
  52.      DELE
  53.      RELEASE FMT, REVIEW, ANS, FORMAT,
  54.      RETURN
  55. ENDIF
  56. ENDIF
  57. ENDDO
  58. ERASE
  59. @ 10,5 SAY 'Do you want to add more records ?'
  60. @ 12,5 SAY "Press 'N' to return to the menu"
  61. @ 14,5 SAY 'Press any other key to continue'
  62. ?
  63. ?
  64. ?
  65. ?
  66. WAIT TO ANSWER
  67. IF !(ANSWER) = 'N'
  68.    ERASE
  69.   @ 10,5 SAY "...PROCESSING ENTRIES..."
  70.   USE
  71.    STORE F TO CONTINUE
  72.    RETURN
  73. ENDIF
  74. ENDDOete Records                             |"
  75. @ 11,9   SAY "|  3> View / Print Names, Addresses, T