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

! requesters has been exceeded.
FEScLinkMonConnect = 947, ! Error with LINKMON connection
! (eg. Open, I/O, etc. ).
FEScLastError = 950; ! Last avail. PATHSEND error.
! This is for checking ranges
! not currently returned.
! Miscellaneous file system errors
LIT FEok = 0;
LIT FEInvalidOp = 2;
LIT FEBoundsErr = 22;
LIT FEMissparam = 29;
LIT FESCError = 233;
! Various file numbers used globally
INT term^fnum := -1;
INT in^fnum := -1;
INT out^fnum := -1;
INT error^log^fnum := -1;
INT msg^log^fnum := -1;
INT trace^fnum := -1;
INT .my^processid[0:3]; ! used to preface error msgs with my pid
! Define a global array to hold error msgs that aren't PATHSEND send
! errors. For example, reference parameter errors, AWAITIOX timeout
! errors, and validation errors.
STR .global^non^pathsend^error^msg [0:77] := [78 * [" "]];
LIT max^assigns = 56;
STRUCT .assign^table (ci^assign) [0:max^assigns - 1];
INT assign^count := 0; ! count of assigns in table
INT max^retries := -1; ! #times to retry Pathsend failures
INT .edit^control^block[0: (40 + (1024 / 2)) - 1];
! We use GETPOOL and PUTPOOL to manage memory in the upper 32K.
! Here are some vars used by these procedures.
!
LIT HeadSize = 38D; ! 19 words
LIT PoolAddr = %200000D; ! upper 32K
INT .EXT PoolHead := PoolAddr; ! room for the header
INT .EXT pool := PoolAddr + HeadSize; ! start of pool
LIT PoolSize = 32D*1024D; ! 32K bytes
?LIST,PAGE
?PAGE "BREQ PROGRAM EXTDECS"
?PAGE "PROCESS THE ASSIGN MSGS"
Pathsend Requester Example 139