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

The ASSIGN and DROP Verbs
Working With Mapping Services
10–46 106160 Tandem Computers Incorporated
The following MSGPROC NCL procedure reads a message and uses the ASSIGN verb
to obtain field names in a map:
zex1020n: PROCEDURE
/* MSGPROC procedure to trap a message and display */
/* field names in a map */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
ASSIGN OPT=MAPFIELDS VARS=&mapfields*,
FROM MDO=&$MSG.MSGATTR.DISPLAY
SAY "Fields in map $MSG.MSGATTR.DISPLAY are"
DO &i = 1 TO &SYS.VARCNT
SAY &mapfields&i
END
MSGCONT
END
ELSE
MSGCONT
END
END zex1020n
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:51) --------------------- OPERATOR CONTROL SERVICES ----------------------
PROFILE MSGPROC=ZEX1020N
NNM0393 MSGPROC PROCESSING ACTIVATED
NNM0357 PROFILE HAS CHANGED
START ZEX1002N
TEST An OPER NRD message
Fields in map $MSG.MSGATTR.DISPLAY are
BKGCOLOR
BKGCOLOR#
COLOR
COLOR#
HLITE
HLITE#
INTENS
INTENS#
NNM1005 START ZEX1002N PROCESSING COMPLETE. NCLID 001058
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>