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

The Structure of Mapped Data Object (MDO) Variables
Working With Mapping Services
10–26 106160 Tandem Computers Incorporated
To obtain a symbolic name, specify an MDO variable name without a number
sign, for example:
&$MSG.MSGATTR.DISPLAY.COLOR
The following MSGPROC NCL procedure reads a message, assigns different colors to
the &$MSG.MSGATTR.DISPLAY.COLOR MDO variable, and displays both
unenumerated and enumerated MDO variables:
zex1010n: PROCEDURE
/* MSGPROC procedure to display external and internal values */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
SAY "&$MSG.TEXT is "&$msg.text
SAY "&$MSG.MSGATTR.DISPLAY.COLOR is "&$msg.msgattr.display.color
SAY "&$MSG.MSGATTR.DISPLAY.COLOR# is "&$msg.msgattr.display.color#
SAY "Changing colors"
&$msg.msgattr.display.color = "BLUE"
SAY &$MSG.MSGATTR.DISPLAY.COLOR" = "&$msg.msgattr.display.color#
&$msg.msgattr.display.color = "RED"
SAY &$MSG.MSGATTR.DISPLAY.COLOR" = "&$msg.msgattr.display.color#
&$msg.msgattr.display.color = "GREEN"
SAY &$MSG.MSGATTR.DISPLAY.COLOR" = "&$msg.msgattr.display.color#
&$msg.msgattr.display.color = "TURQUOISE"
SAY &$MSG.MSGATTR.DISPLAY.COLOR" = "&$msg.msgattr.display.color#
MSGCONT
END
ELSE
MSGCONT
END
END zex1010n