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

The ASSIGN and DROP Verbs
Working With Mapping Services
10–40 106160 Tandem Computers Incorporated
The following NCL procedure transfers data from fields in the MDO variable &$MSG.
to ordinary variables:
zex1016n: PROCEDURE
/* Transfers data: MDO variables to ordinary variables */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
ASSIGN VARS=&color FROM MDO=&$MSG.MSGATTR.DISPLAY.COLOR
ASSIGN VARS=&hlite FROM MDO=&$MSG.MSGATTR.DISPLAY.HLITE
ASSIGN VARS=&intens FROM MDO=&$MSG.MSGATTR.DISPLAY.INTENS
ASSIGN VARS=&alarm FROM MDO=&$MSG.MSGATTR.ALARM
SAY "Color is "&color
SAY "Hlite is "&hlite
SAY "Intens is "&intens
SAY "Alarm is "&alarm
MSGCONT
END
ELSE
MSGCONT
END
END zex1016n
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:37) --------------------- OPERATOR CONTROL SERVICES ----------------------
PROFILE MSGPROC=ZEX1016N
NNM0393 MSGPROC PROCESSING ACTIVATED
NNM0357 PROFILE HAS CHANGED
START ZEX1002N
TEST An OPER NRD message
Color is WHITE
Hlite is NONE
Intens is NORMAL
Alarm is 0
NNM1005 START ZEX1002N PROCESSING COMPLETE. NCLID 001046
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>