home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / MAILSET.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  59 lines
  1. * MAILSET.PRG SETS THE DEFAULT DRIVES FOR MAILMEN.PRG COPYRIGHT APRIL 20,
  2. * 1984 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. erase
  5. restore from mailset
  6. store t to go
  7. do while go
  8. store ' ' to change
  9. @ 10,5 SAY "The Current Default Drive for the Program Files is " get drv2
  10. @ 12,5 Say "The Current Default Drive for the Database Files is " get drv1
  11. ?
  12. ?
  13. ?
  14. ? "Press 'E' If You Wish To Change These Defaults"
  15. ?
  16. ? "Press Any Other Key To Leave Unchanged"
  17. Set console off
  18. wait to change
  19. set console on
  20. store !(change) to change
  21. if change = 'E'
  22. read
  23. CLEAR GETS
  24. Store drv1-':'-'MAIL' to DBF1
  25. Store drv1-':'-'LAST' to NDX1
  26. Store drv1-':'-'COMP' to NDX2
  27. Store drv1-':'-'PROF1' to NDX3
  28. Store drv1-':'-'PROF2' to NDX4
  29. Store drv1-':'-'PROF3' to NDX5
  30. Store drv2-':'-'BIRTHDAY' to BIRTH
  31. Store drv2-':'-'GETMAIL' to GETMAIL
  32. Store drv2-':'-'MAILED' to MAILED
  33. Store drv2-':'-'MAILINP' to MAILINP
  34. Store drv2-':'-'PRINTCAT' to PRINTCAT
  35. Store drv2-':'-'PRINTIND' to PRINTIND
  36. Store drv2-':'-'PRINTLAB' to PRINTLAB
  37. Store drv2-':'-'PRINTMEN' to PRINTMEN
  38. Store drv2-':'-'PRINTROL' to PRINTROL
  39. Store drv2-':'-'XMASLAB' to XMASLAB
  40. Store drv2-':'-'MAILMEN' to MAILMEN
  41. STORE drv2-':'-'MAILSET' to MAILSET
  42. STORE drv2-':'-'MAILDEL' TO MAILDEL
  43. SAVE TO MAILSET
  44. STORE F TO GO
  45. ELSE
  46. STORE F TO GO
  47. ENDIF
  48. ENDDO
  49. RETURN
  50.  
  51. ULY
  52.           ENDIF
  53.           IF #>0
  54.              STORE T TO SEARCH
  55.              DO WHILE SEARCH
  56.                 IF FIRST = NAME1
  57.                      STORE 1 TO REC
  58.                      STORE F TO SEARCH
  59.