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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-64
Nested Server Example
STRING "$"
WS-PROCESS-ID OF WS-PROCESS-ID-NETWORK OF WS-MOM-PROCESS
DELIMITED BY " "
INTO WS-PROCESS-NAME OF WS-MOM-PROCESS
END-IF
ENTER TAL "GETSYSTEMNAME" USING WS-SYSTEM-NUMBER OF WS-MOM-PROCESS
WS-SYSTEM-NAME OF WS-MOM-PROCESS
STRING WS-SYSTEM-NAME OF WS-MOM-PROCESS DELIMITED BY " "
"." DELIMITED BY SIZE
WS-PROCESS-NAME OF WS-MOM-PROCESS DELIMITED BY " "
INTO WS-SYSTEM-AND-PROCESS OF WS-MOM-PROCESS
END-IF.
0440-VALIDATE-PATHSRV-REQUEST.
IF PATHMON-ASSIGN-NAME OF PATHSRV-REQUEST NOT = SPACES AND
PATHMON-SYSTEM-AND-PROCESS OF PATHSRV-REQUEST NOT = SPACES
MOVE "BOTH ASSIGN NAME AND PROCESS NAME SHOULD NOT BE NON-BLANK"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
MOVE "N" TO WS-VALID-PATHSRV-REQUEST
END-IF.