home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / net.zip / net_mail / main / form.1 < prev    next >
Text File  |  1994-02-04  |  1KB  |  39 lines
  1. Arg window 
  2.  
  3. CALL VpWindow window,'DISABLESTDIO'
  4.  
  5. /* create the queue and set it for use */
  6. id= RxQueue('Create')
  7. call RxQueue 'SET', id
  8.  
  9. /* the output of the net who command will be placed in the queue */
  10. address cmd 'net who | RXQUEUE' id
  11.  
  12. /* pull the domain name out of the queue */
  13. parse pull nul nul nul domain
  14.  
  15. /* Set item value DOMAIN Text */
  16. CALL VpSetItemValue window,'DOMAIN',domain
  17.  
  18. /* the next 3 items in the queue won't be needed */
  19. do i = 1 to 3 by 1
  20.   parse pull nul
  21. end
  22.  
  23. /* pull the user names out of the queue until the queue is empty */
  24. do queued()
  25.   parse pull data userid null
  26.   if data <> 'The' then 
  27.     /* Add item to end  Combo Box */
  28.     index=VpAddItem(window, 1006, 'END', strip(userid))
  29. end
  30.  
  31. /* the asterisk argument will send the message to all users on the lan */
  32. /* Add an item at beginning  Combo Box */
  33. index=VpAddItem(window, 1006, 'BEGIN', '*')
  34.  
  35. /* load the lan resource icon */
  36. value = VpLoadPicture('RESICON',1000)
  37. /* Set item value #1 Graphic */
  38. CALL VpSetItemValue window,1009,value
  39.