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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-14
Pathsend Requester Example
?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"
PROC store^control^block^info (cb, data^buf, cb^type, record^number);
INT .EXT cb (control^block^template);
STR .data^buf (pathsrv^request^template);
INT cb^type;
INT record^number;
EXTERNAL;
?PAGE "BE SURE AN INCOMING REQUEST IS VALID"
INT PROC validate^breq^request (input^rec);
INT .input^rec (breq^input^rec^template);
EXTERNAL;
?PAGE "GET MY NAME OR PROCESS ID"
PROC who^am^i;
EXTERNAL;
?PAGE "WRITE TO THE TRACE FILE"
PROC write^trace^file (function, record^number) VARIABLE;
INT function;
INT record^number;
EXTERNAL;
?LIST
?NOLIST,SOURCE $SYSTEM.SYSTEM.EXTDECS0 (ABEND, ABORTTRANSACTION,
? AWAITIOX, BEGINTRANSACTION,
? CANCELREQ, CLOSE, DEBUG,
? DEVICEINFO, DNUMOUT, EDITREAD,
? EDITREADINIT, ENDTRANSACTION,
? FILEINFO, FNAMECOLLAPSE,
? FNAMEEXPAND, GETCRTPID,
? GETTRANSID, INITIALIZER,
? MYPID, NEWPROCESS, NUMIN,
? NUMOUT, OPEN, PROCESSORSTATUS,
? READ, READUPDATE, REPLY,
? SETMODE, STOP, WRITE,
? WRITEREAD, WRITEX,
? DEFINEPOOL, GETPOOL, PUTPOOL,
? MYTERM,
? SERVERCLASS_SEND_ ,
? SERVERCLASS_SEND_INFO_ )
?LIST