home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxusmp.zip / npclient.cmd < prev    next >
OS/2 REXX Batch file  |  1993-11-19  |  230b  |  16 lines
  1. /* rexx */
  2.  
  3. /* named-pipe client */
  4.  
  5. pipename = '\pipe\mypipe'
  6. fn = 'c:\config.sys'
  7.  
  8. do while lines(fn) > 0
  9.   call lineout pipename,linein(fn)
  10. end
  11.  
  12. call stream fn,'c','close'
  13. call stream pipename,'c','close'
  14.  
  15. exit
  16.