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

The Dependent Request and Response Queues
Environments and Command Processing
106160 Tandem Computers Incorporated 16–33
When the INTREAD verb reads a message, it has the option of placing the text (but not
the attributes of the text) into ordinary variables, using keywords such as ARGS,
VARS, RANGE, SEGMENT, and PARSE. Refer to the discussion on verb syntax and
variable access methods in the NonStop NET/MASTER NCL Reference Manual for more
information about these keywords.
You can specify the type of queue from which the INTREAD verb reads a message by
using the TYPE keyword. The following table summarizes the meaning of the
qualifiers that can follow the TYPE keyword:
TYPE Qualifier Description
TYPE=ANY Allows the INTREAD verb to read messages from either the request or response
queue.
TYPE=REQ Allows the INTREAD verb to read messages from only the request queue.
TYPE=RESP Default. Allows the INTREAD verb to read messages from only the response
queue.
Note The system variable &SYS.LOOPCTL is set to 1000 each time the INTREAD verb is executed (unless it is
explicitly set to 0 or to a number greater than 1000 by the NCL process).
The following two NCL procedures show how INTCMD passes a command to a
dependent processing environment and how INTREAD and INTCONT pass messages
up the environmental hierarchy. The INTREAD verb in each NCL procedure
explicitly specifies the response queue.
zex1607n: PROCEDURE
/* Procedure to analyze INTREAD messages */
INTCMD START ZEX1608N
DO UNTIL &msgno1 = NNM0999
INTREAD VARS=&msgno* TYPE=RESP
IF &msgno1 = "NNM0999" THEN DO
SAY "&$INT.TEXT is "&$int.text
SAY "&$INT.MSGATTR.ALARM is "&$int.msgattr.alarm
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
SAY "&$INT.MSGATTR.DISPLAY.INTENS is "&$int.msgattr.display.intens
SAY "&$INT.SOURCE.TIME is "&$int.source.time
SAY "&$INT.SOURCE.USER is "&$int.source.user
DO &i = 1 TO &SYS.VARCNT
SAY "Word "&i" of text is "&msgno&i
END
INTCONT
END /*do*/
ELSE
INTCONT
END /*do*/
END zex1607n