BRAD JACKSON had something deep to write about Rexx QUEUES


BJ> I created a little test - two small .CMD files called HOST.CMD and
BJ> CLIENT.CMD.  CLIENT was run first, and basically created a named
BJ> queue and entered a loop until something got QUEUED(), then PULLed
BJ> the something and used SAY to display it.

I've got a pair that do work under 2.1:

 /* REXX queue reciever called QUEUE.CMD */
 call RxFuncAdd "SysLoadFuncs", "REXXUtil",
"SysLoadFuncs"
 call SysLoadFuncs
 parse arg fn gbg
 qname='PUBLICQ'
 nq=RXQueue("create",qname)
 say 'qName='nq
 if nq\=qname then do
     call RXQueue 'delete', nq
     'exit'
     exit
 end
 if nq\=qname then rc=RXQueue('delete',nq);
 oq=RXQueue('set',qname)
 do forever
     do while queued()>0;
         pull cmd
         select
             when cmd="QUIT" | cmd="CANCEL"
                 then do;
                     call RXQueue 'set' ,oq
                     call RXQueue 'delete' ,qname
                     exit 0;
                     end
             otherwise
                 call RXQueue 'set', oq
                 say '"'||cmd||'"'
                 if fn>'' then call lineout fn,cmd
                 call RXQueue 'set', nq
         end
     end
     call SysSleep 1
 end

 /* REXX queue sender, called Q.CMD */
 call RxFuncAdd "SysLoadFuncs", "REXXUtil",
"SysLoadFuncs"
 call SysLoadFuncs
 signal on syntax name hfail
 qname='PUBLICQ'
 oq=RXQueue("set",qname)
 push arg(1)
 call RXQueue "set", oq
 exit 0
 hfail:
 call RXQueue "set", oq
 say qname 'is not open'

I tried just now: 
 start QUEUE  
 q hello        
 q quit        

Give these a try.  Queues in REXX are harder to use than they
initially look.  I had lots of system service failures before I got
the hang of it.  Win or lose, I'd like to hear how this works out.

 * KWQ/2 1.2g * Live Long and Perspire.


--- QScan v1.131b / 01-0093