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