NetIPC 3000/XL Programmer's Reference Manual (5958-8600)

228 AppendixD
Migration From PTOP to NetIPC and RPM
Example: Client-Server Application
IPCSEND( vcdesc, name, namelength, , , result );
if result 0 then
ERROR( 'Send to server failed.', result );
RECV( vcdesc, buf, 1, result );
if result <> 0 then
ERROR( 'Receive from server failed.', result );
if ord(buf[1]) = indaccept then
begin
RECV( vcdesc, buf, infolength, result );
if result <> 0 then
ERROR( 'Receive from server failed.', result );
for i := 1 to infolength do
info[i] := buf[i];
writeln('Client data is: ', info);
end
else{indicator = indreject}
writeln('Client data could not be found.');
end;
until name = 'EOT';
{-------------------------------------------------------------}
{ All names have been processed. Terminate RSERVER and delete}
{ this end of the vc connection. (RSERVER will automatically }
{ delete its end of the connection.) }
{-------------------------------------------------------------}
RPMKILL( progdesc, , , result );
if result <> 0 then
ERROR( 'Couldn't kill server.', result );
IPCSHUTDOWN( vcdesc, , , result );
if result <> 0 then
ERROR( 'Couldn't shut down local vc.', result );
1:{error exit}
end.