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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-47
Pathsend Requester Example
FOR $OCCURS (input^rec.server^request.pathmon^assign^name);
RSCAN logical^name[30] WHILE " " -> @sp;
IF NOT (@assign^ := get^assign (logical^name, @sp[1] '-' @logical^name))
THEN ! the ASSIGN isn't in our ASSIGN table
BEGIN
sbuf ':=' "ASSIGN '" -> @sp;
sp ':=' logical^name FOR 31 -> @sp;
RSCAN sp[-1] WHILE " " -> @sp;
sp[1] ':=' "' NOT FOUND" -> @sp;
CALL output^msg;
RETURN false;
END;
! Found the ASSIGN, save the PATHMON name
CALL FNAMECOLLAPSE (assign^.tandemfilename.volume,
input^rec.server^request[i].pathmon^system^and^process^name);
END; ! look up the ASSIGN
END; ! for loop
RETURN true;
END; ! INT PROC validate^breq^input