home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxapfd.zip / tp2.cmd < prev   
OS/2 REXX Batch file  |  1993-10-16  |  600b  |  24 lines
  1. /* rexx */
  2.  
  3. if rxfuncquery('rxappc') then
  4.   call rxfuncadd 'rxappc','rxappcfd','rxappcfd'
  5.  
  6. appcrc = rxappc('receive_allocate','TP2','inf.')
  7. tpid   = inf.1
  8. convid = inf.2
  9.  
  10. appcrc = rxappc('receive_and_wait','m',tpid,convid,'y',500,'inf.')
  11. do while appcrc = 0 & inf.1 <> 'S'
  12.   if inf.2 = 'D' | inf.2 = 'DC' then
  13.     say '>'inf.5'<'
  14.   if inf.1 = 'S' then
  15.     leave
  16.   appcrc = rxappc('receive_and_wait','m',tpid,convid,'y',500,'inf.')
  17. end
  18.  
  19. appcrc = rxappc('send_data','m',tpid,convid,'n','Some response data','inf.')
  20.  
  21. appcrc = rxappc('deallocate','m',tpid,convid,'f','inf')
  22.  
  23. exit
  24.