home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / mtseek.zip / USERTHRD.CMD < prev   
OS/2 REXX Batch file  |  1995-10-02  |  810b  |  36 lines
  1. /* Userthrd.cmd: User thread: gets data and stuffs queue */
  2.  
  3. /* Constants */
  4. UserExit = 'EXIT'
  5. UserCommand = 'USER'
  6.  
  7. /* Get queue name */
  8. parse arg qname
  9.  
  10. UserThread:
  11.   /* setting to the queue */
  12.   rc = rxqueue("set", qname) 
  13.  
  14.   /* say greeting */
  15.   say "************** Text Search by Multitasking ***********"
  16.   say "Information displayed in original window."
  17.   say "Enter input in this window."
  18.   say 
  19.  
  20.   /* start sending commands */
  21.   do while string <> UserExit
  22.  
  23.     Say "To edit file, select by filenumber ('exit' to quit): "
  24.     string = LineIn() /* dont use pull */
  25.     parse upper var string string
  26.  
  27.     if string <> UserExit then do
  28.       msg = UserCommand string
  29.       queue msg
  30.       end
  31.     end /* do until exit */
  32.  
  33.   queue "ENDQUEUE" /* destroy queue */
  34.   exit
  35.  
  36.