NET/MASTER Network Control Language (NCL) Programmer's Guide

Working With Server Classes
Working With Pathway Server Classes
15–24 106160 Tandem Computers Incorporated
send_and_receive_message: PROCEDURE
/* Sends a request message and receives a reply message */
ON PSEND_ERROR RESUME
ASSIGN MDO=&req. MAP=ENTRY_MSG
DO FOREVER
PANEL ZEX1501P
&reply = ""
&req.pw_header.function_code = &fc
&req.pw_header.reply_code = &r
&req.message_number = &m
PSEND SEND ID=ID1 MDO=&req. TO MDO=&rep.
SELECT &SYS.PSEND.RC
WHEN 0 THEN DO
&status = "Message sent and received successfully"
&reply = &rep.server_record
END /*do*/
WHEN 4 THEN &status = "PATHSEND error"
WHEN 8 THEN &status = "File system error"
WHEN 16 THEN &status = "PATHSEND, file system,",
"or other error" &SYSMSG
OTHERWISE
&status = "Unexpected error"
END /*select*/
END /*do*/
END send_and_receive_message
/* ============== MAKE SERVER UNAVAILABLE ============== */
make_server_unavailable: PROCEDURE
/* Make server unavailable for NonStop NET/MASTER and NCL */
PSEND CLOSE ID=ID1
SELECT &SYS.PSEND.RC
WHEN 16 THEN &status = "Server unavailable"
OTHERWISE
&status = "Unexpected error"
END /*select*/
INTCLEAR TYPE=ANY
INTCMD "-PSNDCTL CLOSE=\SYS1.$TRPM.SERVER-1"
INTREAD
END make_server_unavailable
END zex1501n
The NCL PATHSEND requester makes the dynamic server process
$TRPM.SERVER-1 available for use by NonStop NET/MASTER MS and NCL.
Then, the requester displays a panel that is used as the interface between a user
and the server process. Finally, the requester makes the server process unavailable
for use by NonStop NET/MASTER MS and NCL.
The NCL PATHSEND requester shows how to use the PSNDCTL commands, the
PSEND verbs, the &SYS.PSEND system variables, and the PSEND_ERROR
handler.