home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / fwd-1.0.zip / sockrcv.cmd < prev   
OS/2 REXX Batch file  |  2000-10-29  |  184b  |  12 lines
  1. /* called from process.cmd. Do not use it alone */
  2.  
  3. sock=arg(1)
  4. queue=arg(2)
  5. sem=arg(3)
  6.  
  7. rc = SockRecv(sock,"data",256)
  8.  
  9. call SemEventPost sem
  10. return right(rc,5,'0')||data
  11.  
  12.