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

222 AppendixD
Migration From PTOP to NetIPC and RPM
Example: Client-Server Application
begin
{----------------------------------------------------}
{ ACCEPT the name from the PWRITE. This name will }
{ be used in the case for the following PREAD. }
{----------------------------------------------------}
ACCEPT( , name );
if ccode <> cce then
ERROR( 'ACCEPT for PWRITE failed', PCHECK(0) );
end;
end;
until false;
1:{error exit}
end.