home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / chang09m.zip / rxademo.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-08  |  925b  |  36 lines
  1. /* RxActive Demo */
  2.  
  3. group = 'test.test.test'
  4.  
  5. call RxFuncAdd 'CriActiveRegister', 'RXACTIVE', 'CriActiveRegister'
  6. call CriActiveRegister
  7.  
  8. ret = CriActiveAdd(group, 'm')
  9. Select
  10.     When ret = 0 then Say 'Nothing changed with group' group
  11.     When ret = 1 then Say 'New group' group 'added'
  12.     When ret = 2 then Say 'Changed posting mode of' group
  13.     otherwise Say 'Failed to update' group
  14. end
  15.  
  16. ret = CriActiveFind(group)
  17. Say group ret
  18.  
  19. ret = CriActiveInc(group)
  20. if ret = 0 then Say 'Failed to add new article to' group
  21. else Say 'Added new article' ret 'in' group
  22.  
  23. ret = CriActiveFind(group)
  24. Say group ret
  25.  
  26. if CriActiveSet(group, 10, 100, 'y') = 1 then Say 'Successfully updated' group
  27. else Say 'Failed to update' group
  28.  
  29. ret = CriActiveFind(group)
  30. Say group ret
  31.  
  32. if CriActiveDel(group) = 1 then Say 'Successfully removed' group
  33. else Say 'Removing' group 'failed'
  34.  
  35. Call CriActiveDeregister
  36.