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

Examples of System-Level NCL Procedures
Developing System-Level NCL Procedures
17–36 106160 Tandem Computers Incorporated
&arg3 = "ABORT" ) OR ,
( &arg5 = "START" OR ,
&arg5 = "STOP" OR ,
&arg5 = "ABORT" )) THEN DO
&user = &$log.source.user
&time = &$log.source.time
&text = AT &time USER &user ATTEMPTED &1 &2 &3 &4 &5 &6 &7,
&8 &9
FILE PUT ID=OLOG DATA=&text
END /*if*/
END /*do forever*/
END zex1714n
In addition, this NCL procedure logs all OPSYS commands used to start, stop, or abort
objects in a separate file—an OPSYS activity log file. It processes the text of each
OPSYS command to allow you to easily determine the user issuing the OPSYS
command, the time that the OPSYS command was issued, and the text of the OPSYS
command.
You can use the OPSYS SEND FUP COPY command from the OCS command input
line to display the contents of the OPSYS log file, as the following screen shows:
(14:48) --------------------- OPERATOR CONTROL SERVICES ----------------------
START OPSYS SEND FUP COPY $DATA2.JOHNNCLS.OPSLOG
NNM1456 AT 1992/05/23 14:36:36.474 USER NMTJN ATTEMPTED START OPSYS START
$SNA01
NNM1456 AT 1992/05/23 14:36:52.133 USER NMTJN ATTEMPTED START OPSYS ABORT
$SNA01
NNM1456 AT 1992/05/23 14:37:11.852 USER NMTJN ATTEMPTED START OPSYS STOP
$SNA01
NNM1456 AT 1992/05/23 14:37:21.897 USER NMTJN ATTEMPTED START OPSYS START
$SNA01
NNM1456 AT 1992/05/23 14:37:26.636 USER NMTJN ATTEMPTED START OPSYS ABORT
$SNA01
NNM1456 AT 1992/05/23 14:37:33.533 USER NMTJN ATTEMPTED START OPSYS STOP
$SNA01
NNM1456 AT 1992/05/23 14:37:49.626 USER NMTJN ATTEMPTED START OPSYS START
$SNA01
NNM1456 AT 1992/05/23 14:38:06.021 USER NMTJN ATTEMPTED START OPSYS SEND
CMI ABORT LI
NNM1456 AT 1992/05/23 14:38:25.963 USER NMTJN ATTEMPTED START OPSYS SEND
CMI ABORT LI
NNM1456 9 RECORDS TRANSFERRED
NNM0999 *END*
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>
MSGPROC NCL
Procedures
The following MSGPROC NCL procedure allows all messages arriving at an OCS
window to pass through for display:
zex1715n: PROCEDURE
/* Passes all messages unchanged */
SAY MSGPROC starting
DO FOREVER
MSGREAD
END /*do*/
END zex1715n