TS/MP Pathsend and Server Programming Manual (H06.05+, J06.03+)

CALL return^control^block^memory (cb^list^head);
@cb^list^head := nil^addr;
END; ! if read^
END; ! while not error
IF error <> e^eof
THEN ! print an error msg and abend
CALL IO^error (in^fnum);
! end of file input file
CALL CLOSE (in^fnum);
CALL CLOSE (out^fnum);
CALL CLOSE (msg^log^fnum);
CALL CLOSE (error^log^fnum);
IF trace^fnum > 0 THEN
CALL CLOSE (trace^fnum);
CALL STOP;
END; ! PROC breq^program
?NOMAP
Nested Server Example
Example 4 (page 182), PATHSRV, is a context-free nested server coded in COBOL85. PATHSRV
uses Pathsend calls within a server to access another server.
Nested Server Example 181