home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rxmsgapi / test2.cmd < prev   
Encoding:
Text File  |  1993-02-20  |  1.6 KB  |  69 lines
  1. /**/
  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. 'VALIDATE SQUISH D:\APP\TEST_MSGBASE\OS2PROG'
  11. say rc
  12. 'OPEN_AREA MSG D:\APP\TEST_MSGBASE\OS2PROG MSGAREA_NORMAL SQUISH'
  13. say rc
  14. 'VALID_AREA_HANDLE MSG'
  15. say rc
  16. number = 10
  17. 'MSGN_TO_UID MSG NUMBER'
  18. if rc = 0 then say 'UID' number
  19. else say 'RC' rc
  20. 'UID_TO_MSGN MSG NUMBER EXACT'
  21. if rc = 0 then say 'MSG' number
  22. else say 'RC' rc
  23. 'OPEN_MSG MSGH MSG MOPEN_READ 10'
  24. say rc
  25. 'GET_HIGH_WATER MSG NUMBER'
  26. if rc = 0 then say 'HW' number
  27. else say 'RC' rc
  28. nnumber = 123
  29. 'SET_HIGH_WATER MSG NNUMBER'
  30. if rc = 0 then say 'HW' nnumber
  31. else say 'RC' rc
  32. 'GET_HIGH_WATER MSG NNUMBER'
  33. if rc = 0 then say 'HW' nnumber
  34. 'SET_HIGH_WATER MSG NUMBER'
  35. if rc = 0 then say 'HW' number
  36. else say 'RC' rc
  37. 'GET_HIGH_WATER MSG NUMBER'
  38. if rc = 0 then say 'HW' number
  39. else say 'RC' rc
  40. 'GET_HIGH_MSG MSG NNUMBER'
  41. if rc = 0 then say 'HMSG' nnumber
  42. else say 'RC' rc
  43. 'GET_NUMBER_MSGS MSG NUMBER'
  44. if rc = 0 then say 'Number' number
  45. else say 'RC' rc
  46. 'GET_CURRENT_MSG MSG NUMBER'
  47. if rc = 0 then say 'Current' number
  48. else say 'RC' rc
  49. 'VALID_MESSAGE_HANDLE MSGH'
  50. say rc
  51. 'GET_TEXT_LENGTH MSGH LEN'
  52. if rc = 0 then say 'Len' len
  53. else say 'RC' rc
  54. 'GET_CONTROL_LENGTH MSGH LEN'
  55. if rc = 0 then say 'Len' len
  56. else say 'RC' rc
  57. 'GET_CURRENT_POSITION MSGH POSITION'
  58. say rc
  59. say position
  60. 'CLOSE_MSG MSGH'
  61. say rc
  62. 'CLOSE_AREA MSG'
  63. say rc
  64. 'CLOSE_API'
  65. say rc
  66. address CMD 'rxsubcom drop msgapi'
  67. say rc
  68. call syssleep 3
  69.