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

Debugging an NCL Process From Start to Finish
Debugging an NCL Process
9–66 106160 Tandem Computers Incorporated
Step 3
Display the source code by using the DEBUG SOURCE command, as shown in the
following four screens.
It is useful to display and examine all the source code for errors, if the source code
does not span many screens. Notice that each statement is preceded by both a line
number and a statement number and that line numbers and statement numbers do not
usually correspond.
Screen 1 of 4
(06:48) --------------------- OPERATOR CONTROL SERVICES ----------------------
DEBUG SOURCE LOC=1 FW=60
NNM1926 NCL 000670 LINE# SMT EV ON STMT-TEXT FROM ZEX0904N
NNM1927 NCL 000670 1 1 0 0 ZEX0904N: PROCEDURE EXTPARSE SIMPLE
NNM1927 NCL 000670 8 2 0 0 &MONTH = &1
NNM1927 NCL 000670 9 3 0 0 &YEAR = &2
NNM1927 NCL 000670 11 4 0 0 IF &MONTH="" OR &YEAR="" OR &MONTH<1 OR
&YEAR<1583 OR &MONTH>12 OR &YEAR>2999 OR LENGTH( &MONTH )\=2 OR LENGTH( &YEAR
)\=4
NNM1927 NCL 000670 15 5 1 0 THEN DO
NNM1927 NCL 000670 16 6 2 0 SAY "Reenter number(s): month 01-12;
year 1583-2999"
NNM1927 NCL 000670 17 7 2 0 FLUSH
NNM1927 NCL 000670 18 8 2 0 END
NNM1927 NCL 000670 20 9 0 0 &DAYS.01 = "31"
NNM1927 NCL 000670 20 10 0 0 &DAYS.02 = "28"
NNM1927 NCL 000670 20 11 0 0 &DAYS.03 = "31"
NNM1927 NCL 000670 21 12 0 0 &DAYS.04 = "30"
NNM1927 NCL 000670 21 13 0 0 &DAYS.05 = "31"
NNM1927 NCL 000670 21 14 0 0 &DAYS.06 = "30"
NNM1927 NCL 000670 22 15 0 0 &DAYS.07 = "31"
NNM1927 NCL 000670 22 16 0 0 &DAYS.08 = "31"
MSG QUEUED ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>