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

The ASSIGN and DROP Verbs
Working With Mapping Services
106160 Tandem Computers Incorporated 10–43
The following MSGPROC NCL procedure reads a message and uses the ASSIGN verb
to obtain the name of the map used to interpret the MDO variable into which the
message is placed:
zex1018n: PROCEDURE
/* MSGPROC procedure to trap a message and display */
/* its map name */
DO FOREVER
MSGREAD VARS=&word*
IF &word1 = "TEST" THEN DO
ASSIGN OPT=MAPNAME VARS=&mapname FROM MDO=&$MSG.
SAY "Map name is "&mapname
MSGCONT
END
ELSE
MSGCONT
END
END zex1018n
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:48) --------------------- OPERATOR CONTROL SERVICES ----------------------
PROFILE MSGPROC=ZEX1018N
NNM0393 MSGPROC PROCESSING ACTIVATED
NNM0357 PROFILE HAS CHANGED
START ZEX1002N
TEST An OPER NRD message
Map name is $MSG
NNM1005 START ZEX1002N PROCESSING COMPLETE. NCLID 001052
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>