home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxusmp.zip / npserve.cmd < prev    next >
OS/2 REXX Batch file  |  1993-11-19  |  762b  |  40 lines
  1. /* rexx */
  2.  
  3. /* named-pipe server */
  4.  
  5. pipename = '\pipe\mypipe'
  6. openmode = 'WIN'
  7. pipemode = 'WTR'
  8. instance_count = 1
  9. outbuf = 4096
  10. inbuf = 4096
  11. timeout = -1
  12.  
  13. dosrc = rxcreatenpipe('hpipe',pipename,openmode,pipemode,instance_count,
  14.                      ,outbuf,inbuf,timeout)
  15. if dosrc <> 0 then
  16.   do
  17.   say 'RxCreateNPipe failed with rc =' dosrc
  18.   exit
  19.   end
  20.  
  21. say;say 'Waiting for data to read ...';say
  22.  
  23. dosrc = rxconnectnpipe(hpipe)
  24. if dosrc <> 0 then
  25.   do
  26.   say 'RxConnectNPipe failed with rc =' dosrc
  27.   exit
  28.   end
  29.  
  30. readbufsize = 100
  31. dosrc = rxread('data',hpipe,readbufsize)
  32. do while word(dosrc,1) = 0 & word(dosrc,2) > 0
  33.   say 'Data read >'data'<'
  34.   dosrc = rxread('data',hpipe,readbufsize)
  35. end
  36.  
  37. call rxcloseh hpipe
  38.  
  39. exit
  40.