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

PROC assign^proc (rucb, passthru, assign^msg, msg^len, match) VARIABLE;
INT .rucb,
.passthru,
.assign^msg,
msg^len,
match;
EXTERNAL;
?PAGE "RETURN AN ENTRY FROM THE ASSIGN TABLE"
INT PROC get^assign (logical^name, len);
STR .logical^name;
INT len;
EXTERNAL;
?PAGE "READ THE STARTUP AND ASSIGN MSGS, AND OPEN THE LOG FILE"
PROC initialize;
EXTERNAL;
?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"
140 Examples