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

The Dependent Request and Response Queues
Environments and Command Processing
106160 Tandem Computers Incorporated 16–35
Passing on a Message From a Dependent Queue
After reading a message using the INTREAD verb, you can use the INTCONT verb to
pass the message to the next-higher-level environment.
You can use the INTCONT verb to change some attributes of the message before the
verb passes the message on. Using the INTCONT verb to change attributes updates
fields in the MDO variable, &$INT., that contains the message. The following table
summarizes the operands of the INTCONT verb that change attributes and the fields
that are updated in &$INT.:
INTCONT Operand &$INT. Field Updated
COLOR &$INT.MSGATTR.DISPLAY.COLOR
BKGCOLOR &$INT.MSGATTR.DISPLAY.BKGCOLOR
HLITE &$INT.MSGATTR.DISPLAY.HLITE
INTENS &$INT.MSGATTR.DISPLAY.INTENS
ALARM &$INT.MSGATTR.ALARM
NRD &$INT.NRD.TYPE
&$INT.DOMID
DATA &$INT.TEXT
Note If an INTCONT verb does not change message attributes, you cannot improve the performance of an
NCL process by omitting it. The next INTREAD verb does not perform an implicit INTCONT. You must
explicitly use INTCONT to pass on a message to the next higher-level environment; otherwise, the
message is lost.
The following two NCL procedures show the flow of messages to and from a
dependent processing environment. They illustrate how INTCMD passes a command
to a dependent processing environment and how INTREAD and INTCONT pass
message up the environmental hierarchy. The INTREAD verb in each NCL procedure
explicitly specifies the response queue.
zex1609n: PROCEDURE
/* Procedure to analyze INTREAD messages */
INTCMD START ZEX1610N
DELAY 10
DO &i = 1 TO &SYS.INT.RSP#
INTREAD VARS=&msgno* TYPE=RESP
IF &msgno1 = "NNM0398" THEN DO
SAY "&$INT.MSGATTR.DISPLAY.COLOR is "&$int.msgattr.display.color
SAY "&$INT.MSGATTR.DISPLAY.BKGCOLOR is "&$int.msgattr.display.bkgcolor
SAY "&$INT.MSGATTR.DISPLAY.HLITE is "&$int.msgattr.display.hlite
INTCONT
END /*do*/
ELSE
INTCONT
END /*do*/
END zex1609n