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

The ASSIGN and DROP Verbs
Working With Mapping Services
106160 Tandem Computers Incorporated 10–37
The following MSGPROC NCL procedure reads a message using the MSGREAD verb
into the MDO variable, &$MSG.:
zex1014n: PROCEDURE
/* MSGPROC procedure that transfers data from */
/* one MDO variable to another */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
ASSIGN MDO=&abc. MAP=$MSG
ASSIGN MDO=&abc. FROM MDO=&$MSG.
SAY "&ABC.TEXT is "&abc.text
SAY "&ABC.MSGATTR.DISPLAY.COLOR is "&abc.msgattr.display.color
SAY "&ABC.MSGATTR.DISPLAY.HLITE is "&abc.msgattr.display.hlite
SAY "&ABC.MSGATTR.DISPLAY.INTENS is "&abc.msgattr.display.intens
SAY "&$MSG.MSGATTR.ALARM is "&$msg.msgattr.alarm
MSGCONT
END
ELSE
MSGCONT
END
END zex1014n
The example uses the ASSIGN verb to create an MDO variable, &ABC., and to transfer
the data from &$MSG. to &ABC..
After following the steps outlined earlier in this section to type this NCL procedure
and install it as your active MSGPROC procedure, execute the ZEX1002N NCL
procedure to send a message to your OCS window. The following screen shows the
results of executing ZEX1002N with MSGPROC active:
(07:33) --------------------- OPERATOR CONTROL SERVICES ----------------------
PROFILE MSGPROC=ZEX1014N
NNM0393 MSGPROC PROCESSING ACTIVATED
NNM0357 PROFILE HAS CHANGED
START ZEX1002N
TEST An OPER NRD message
&ABC.TEXT is TEST An OPER NRD message
&ABC.MSGATTR.DISPLAY.COLOR is WHITE
&ABC.MSGATTR.DISPLAY.HLITE is NONE
&ABC.MSGATTR.DISPLAY.INTENS is NORMAL
&$MSG.MSGATTR.ALARM is 0
NNM1005 START ZEX1002N PROCESSING COMPLETE. NCLID 001041
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>