home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / SRI.ZIP / TEST.CMD < prev    next >
Encoding:
Text File  |  1992-09-08  |  2.4 KB  |  103 lines
  1. /* MSGAPI test */
  2. address CMD 'rxsubcom drop msgapi'
  3. address CMD 'rxsubcom register MSGAPI rxmsgapi RXMSGAPI'
  4. say rc
  5. address CMD 'rxsubcom load MSGAPI RXMSGAPI'
  6. say rc
  7. address MSGAPI
  8. 'OPEN_API 3 0'
  9. say rc
  10. 'OPEN_AREA MSG E:\msgbase\netmail MSGAREA_NORMAL SQUISH'
  11. say rc
  12. 'LOCK MSG'
  13. say rc
  14. 'OPEN_MSG MSGH MSG MOPEN_READ 60'
  15. say rc
  16. 'READ_MSG MSGH XMSG. 0 17000 TEXT 1000 CONTROL'
  17. say rc
  18. if rc >= 0 then do
  19.   say 'Attributes:' d2x(xmsg.attr,8)
  20.   say 'From:' xmsg.from
  21.   say 'To:' XMSG.to
  22.   say 'Subject: ' XMSG.subj
  23.   say 'First 8 paragraphs:'
  24.   text = translate(text,'01'x,'0D'x)
  25.   parse var text para1 '' para2 '' para3 '' para4 '' para5 '' para6 '' para7 '' para8 '' junk
  26.   say para1
  27.   say para2
  28.   say para3
  29.   say para4
  30.   say para5
  31.   say para6
  32.   say para7
  33.   say para8
  34.   if length(junk) > 0 then say 'More text present!'
  35.   say 'First 5 Control Items:'
  36.   parse var control '' item1 '' item2 '' item3 '' item4 '' item5 ''
  37.   say item1
  38.   say item2
  39.   say item3
  40.   say item4
  41.   say item5
  42.   say 'Origin:' xmsg.orig
  43.   say 'Destination:' xmsg.dest
  44.   say 'Written on:' xmsg.date_written 'UTC'
  45.   say 'Arrived on:' xmsg.date_arrived 'UTC'
  46.   say 'Time Zone:' xmsg.utc_ofs 'minutes after UTC'
  47.   say 'This is a Reply to:' xmsg.replyto
  48.   do i = 1 to 10
  49.     say 'Message' xmsg.replies.i 'is a reply to this message'
  50.     end /* do */
  51.   end
  52.   say 'The FTSC date is' xmsg.ftsc_date
  53. 'CLOSE_MSG MSGH'
  54. say rc
  55.  
  56. 'OPEN_MSG MSGH MSG MOPEN_CREATE 0'
  57. say rc
  58. cr = '0d'x
  59. text = 'Hello Mike.' cr 'This is a test message' cr cr
  60. controla = '01'x
  61. control = controla || 'PID RXMSGAPI'
  62. xmsg.attr = 0
  63. xmsg.from = 'Colin Adams'
  64. xmsg.to = 'Mike Gove'
  65. xmsg.subj = 'Testing RXMSGAPI'
  66. xmsg.orig = '2:250/121.0'
  67. xmsg.dest = '2:252/10.0'
  68. xmsg.date_written = '1992/09/04:09:42:07'
  69. xmsg.date_arrived = '1992/09/04:09:42:07'
  70. xmsg.utc_ofs = 60
  71. xmsg.replyto = 0
  72. xmsg.replies.1 = 0
  73. xmsg.replies.2 = 0
  74. xmsg.replies.3 = 0
  75. xmsg.replies.4 = 0
  76. xmsg.replies.5 = 0
  77. xmsg.replies.6 = 0
  78. xmsg.replies.7 = 0
  79. xmsg.replies.8 = 0
  80. xmsg.replies.9 = 0
  81. xmsg.replies.10 = 0
  82. xmsg.ftsc_date = '04 Sep 92 09:42:07'
  83. 'WRITE_MSG MSGH 0 XMSG. TEXT' length(text) length(text) length(control) 'CONTROL'
  84. say rc
  85. 'CLOSE_MSG MSGH'
  86. say rc
  87.  
  88. 'UNLOCK MSG'
  89. say rc
  90. 'CLOSE_AREA MSG'
  91. say rc
  92. 'OPEN_AREA MSG E:\MSGBASE\PUBLIC MSGAREA_NORMAL SQUISH'
  93. say rc
  94. 'KILL_MSG MSG 1'
  95. say rc
  96. 'CLOSE_AREA MSG'
  97. say rc
  98. 'CLOSE_API'
  99. say rc
  100. address CMD 'rxsubcom drop msgapi'
  101. say rc
  102. call syssleep 3
  103.