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

Examples of System-Level NCL Procedures
Developing System-Level NCL Procedures
106160 Tandem Computers Incorporated 17–39
The following screen shows how to enable and disable logging; it executes the SHOW
USERS command, which is sent to your own personal log file:
(07:18) --------------------- OPERATOR CONTROL SERVICES ----------------------
PROFILE MSGPROC=ZEX1717N
NNM0393 MSGPROC PROCESSING ACTIVATED
NNM0357 PROFILE HAS CHANGED
MSGPROC starting
START AAAAA
Logging enabled
NNM1001 NCL PROCEDURE AAAAA DOES NOT EXIST IN LIBRARY $DATA2.ZNCLPGN.
SHOW USERS
NNM0656 USERID TERMINAL TYPE PHYSICAL NAME
NNM0657 -------- -------- ---- --------------------
NNM0659 NMTJN #5898095 6530 $ATP2.#TERM1
NNM0658 SYS1BLOG BG-LOG BLOG
NNM0658 SYS1BMON BG-MON BMON
NNM0658 SYS1BSYS BG-SYS BSYS
NNM0658 SYS1EMSP EMS-PROC EMSP
NNM0658 SYS1LOGP LOG-PROC LOGP
NNM0660 6 USERS LOGGED ON
START ZZZZZ
NNM1001 NCL PROCEDURE ZZZZZ DOES NOT EXIST IN LIBRARY $DATA2.ZNCLPGN.
Logging disabled
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>
You can use the following NCL procedure to read records logged in
$DATA2.JOHNNCLS.MSGLOG:
zex1718n: PROCEDURE
/* Reads records from mapped entry-sequenced UDB */
ON ERROR FLUSH
INTCLEAR
INTCMD "UDBCTL OPEN=$DATA2.JOHNNCLS.MSGLOG ID=MSGLOG"
INTREAD
INTCONT
FILE OPEN ID=MSGLOG FORMAT=MAPPED MAP=$MSG
ASSIGN MDO=&msglog. MAP=$MSG
FILE GET MDO=&msglog.
DO WHILE &SYS.FILE.RC = 0
SAY "Text is "&msglog.text
FILE GET MDO=&msglog.
END /*do*/
FILE CLOSE ID=MSGLOG
INTCLEAR
INTCMD "UDBCTL CLOSE=$DATA2.JOHNNCLS.MSGLOG"
INTREAD
INTCONT
END zex1718n