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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-24
Pathsend Requester Example
sbuf ':=' "TRANSACTION ENDED NORMALLY" -> @sp;
CALL WRITE (error^log^fnum, buf, @sp '-' @sbuf);
IF <
THEN ! print an error msg and abend
CALL IO^error (msg^log^fnum);
END; ! PROC end^the^tmf^transaction
?PAGE "RETURN AN ENTRY FROM THE ASSIGN TABLE"
! This procedure is passed a logical ASSIGN name and searchs the
! ASSIGN table for the ASSIGN name. If found it returns the address
! of the table entry, otherwise false.
INT PROC get^assign (logical^name, len);
STR .logical^name;
INT len;
BEGIN
INT i := 0;
INT .assign^ (ci^assign);
WHILE i < assign^count DO
BEGIN
@assign^ := @assign^table[i];
IF assign^.logicalunit.filename = logical^name FOR len
AND assign^.logicalunit.filenamelen = len
THEN ! found matching ASSIGN
RETURN @assign^;
i := i + 1;
END;
RETURN false;
END; ! INT PROC get^assign