TS/MP Pathsend and Server Programming Manual (G06.24+, H06.03+)

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-52
Pathsend Requester Example
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