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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-13
Pathsend Requester Example
?PAGE "START ONE I/O IN THE TRANSACTION"
INT PROC initiate^IO (cb);
INT .EXT cb (control^block^template);
EXTERNAL;
?PAGE "START A WRITE OF THE INPUT REQUEST RECORD TO THE MSG LOG"
INT PROC initiate^write^to^message^log (cb);
INT .EXT cb (control^block^template);
EXTERNAL;
?PAGE "REPORT AN IO ERROR"
PROC IO^error (fnum);
INT fnum;
EXTERNAL;
?PAGE "SEARCH THE CONTROL BLOCKS FOR OUTSTANDING I/O"
INT PROC io^outstanding (cb);
INT .EXT cb (control^block^template);
EXTERNAL;
?PAGE "PRINT A MESSAGE TO THE TERMINAL AND ABEND"
PROC abend^with^my^abend^msg;
EXTERNAL;
?PAGE "PROCESS THE PARAM MSGS"
PROC param^proc (rucb, buf, param^msg, msg^len, match) VARIABLE;
INT .rucb,
.buf,
.param^msg (ci^param),
msg^len,
match;
EXTERNAL;
?PAGE "READ FROM AN EDIT FILE"
INT PROC read^ (fnum, buf, read^count, error);
INT fnum;
STR .buf;
INT read^count;
INT .error;
EXTERNAL;
?PAGE "LOOK AT WHY SERVERCLASS_SEND_INFO_ FAILED"
PROC ServerClass^Send^Info^error (error);
INT error;
EXTERNAL;
?PAGE "SET UP THE CONTROL BLOCKS FOR ONE TRANSACTION"
DBL PROC setup^control^blocks (input^buf, record^number);
INT .input^buf (breq^input^rec^template);
INT record^number;
EXTERNAL;
?PAGE "START A TMF TRANSACTION"
PROC start^the^tmf^transaction;
EXTERNAL;