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

The Structure of Mapped Data Object (MDO) Variables
Working With Mapping Services
106160 Tandem Computers Incorporated 10–21
The following MSGPROC NCL procedure reads a message, assigns values to fields in
an element that can be repeated, and displays the modified message on an OCS
window:
zex1008n: PROCEDURE
/* MSGPROC procedure to create a repeated element */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
&$msg.msgattr.fld{1}.offset = 8
&$msg.msgattr.fld{1}.length = 8
&$msg.msgattr.fld{1}.color = "TURQUOISE"
&$msg.msgattr.fld{1}.hlite = "BLINK"
&$msg.msgattr.fld{1}.intens = "HIGH"
SAY "&$MSG.TEXT is "&$msg.text
SAY "&$MSG.MSGATTR.DISPLAY.COLOR is "&$msg.msgattr.display.color
SAY "&$MSG.MSGATTR.DISPLAY.HLITE is "&$msg.msgattr.display.hlite
SAY "&$MSG.MSGATTR.DISPLAY.INTENS is "&$msg.msgattr.display.intens
SAY "&$MSG.MSGATTR.FLD{1}.OFFSET is "&$msg.msgattr.fld{1}.offset
SAY "&$MSG.MSGATTR.FLD{1}.LENGTH is "&$msg.msgattr.fld{1}.length
SAY "&$MSG.MSGATTR.FLD{1}.COLOR is "&$msg.msgattr.fld{1}.color
SAY "&$MSG.MSGATTR.FLD{1}.HLITE is "&$msg.msgattr.fld{1}.hlite
SAY "&$MSG.MSGATTR.FLD{1}.INTENS is "&$msg.msgattr.fld{1}.intens
SAY "&$MSG.MSGATTR.ALARM is "&$msg.msgattr.alarm
SAY "&$MSG.SOURCE.TIME is "&$msg.source.time
SAY "&$MSG.SOURCE.USER is "&$msg.source.user
MSGCONT
END
ELSE
MSGCONT
END
END zex1008n