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

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;
?PAGE "PROCESS THE STARTUP MSG"
PROC startup^proc (rucb, buf, msg, msg^len, match) VARIABLE;
INT .rucb,
.buf,
.msg (ci^startup),
msg^len,
match;
EXTERNAL;
?PAGE "STORE DATA IN THE CONTROL BLOCK"
Pathsend Requester Example 141