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

The Dependent Request and Response Queues
Environments and Command Processing
16–36 106160 Tandem Computers Incorporated
zex1610n: PROCEDURE
/* Uses INTCMD to execute SHOW OCS */
INTCMD SHOW OCS
DELAY 5
DO &i = 1 TO &SYS.INT.RSP#
INTREAD VARS=&msgno TYPE=RESP
IF &msgno = "NNM0398" THEN
INTCONT COLOR=BLUE HLITE=BLINK
ELSE
INTCONT
END /*do*/
END zex1610n
The following screen shows the result of executing the first NCL procedure. The first
NCL procedure then executes the second NCL procedure using INTCMD START. The
second NCL procedure then executes a command, SHOW OCS, using INTCMD
SHOW OCS.
(12:13) --------------------- OPERATOR CONTROL SERVICES ----------------------
START zex1609n
&$INT.MSGATTR.DISPLAY.COLOR is BLUE
&$INT.MSGATTR.DISPLAY.BKGCOLOR is NONE
&$INT.MSGATTR.DISPLAY.HLITE is BLINK
NNM0398 -USERID- TERMINAL --------NAME-------- ------LOCATION------ STATUS
NNM0399 NMTMG #5648197 Mike PUBLICATIONS ACTIVE
NNM0399 NMTMG #5648197 Mike PUBLICATIONS ACTIVE
NNM0399 NMTJN #5648202 John New PUBLICATIONS ACTIVE
NNM0399 NMTKF #5648196 KEN FINLAYSON ACTIVE
NNM0999 *END*
NNM1005 START ZEX1610N PROCESSING COMPLETE. NCLID 000569
NNM1005 START ZEX1609N PROCESSING COMPLETE. NCLID 000568
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
=>
The results of the SHOW OCS command are passed from NCL process to NCL process
using the INTREAD and INTCONT verbs. The INTCONT verb in ZEX1610N modifies
attributes of message NNM0398. The ZEX1609N NCL procedure displays the value of
the fields in &$INT. that are changed.
When a group of messages arrives in a request or response queue, the system variable
&SYS.INT.RSP# or &SYS.INT.REQ#, respectively, contains the number of messages.
The NCL procedures use the variable &SYS.INT.RSP# as the terminating value in the
DO loops that read messages. ZEX1610N uses the DELAY verb to ensure that all
messages in the group arrive in the queue before &SYS.INT.RSP# is updated; the
delay ensures the correct number of iterations of the DO loop.