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

Debugging an NCL Process From Start to Finish
Debugging an NCL Process
106160 Tandem Computers Incorporated 9–67
Screen 2 of 4
(06:48) --------------------- OPERATOR CONTROL SERVICES ----------------------
NNM1927 NCL 000670 22 17 0 0 &DAYS.09 = "30"
NNM1927 NCL 000670 23 18 0 0 &DAYS.10 = "31"
NNM1927 NCL 000670 23 19 0 0 &DAYS.11 = "30"
NNM1927 NCL 000670 23 20 0 0 &DAYS.12 = "31"
NNM1927 NCL 000670 25 21 0 0 IF DATECONV( "11", &YEAR||"/02/28",
"11", 1 )==&YEAR||"/02/29"
NNM1927 NCL 000670 26 22 3 0 THEN &DAYS.02 = "29"
NNM1927 NCL 000670 28 23 0 0 &START = &YEAR||"/"||&MONTH||"/01"
NNM1927 NCL 000670 29 24 0 0 SELECT DATECONV( "11", &START, "W" )
NNM1927 NCL 000670 30 25 4 0 WHEN "Sunday"
NNM1927 NCL 000670 30 26 5 0 THEN &FIRST = "1"
NNM1927 NCL 000670 31 27 4 0 WHEN "Monday"
NNM1927 NCL 000670 31 28 6 0 THEN &FIRST = "2"
NNM1927 NCL 000670 32 29 4 0 WHEN "Tuesday"
NNM1927 NCL 000670 32 30 7 0 THEN &FIRST = "3"
NNM1927 NCL 000670 33 31 4 0 WHEN "Wednesday"
NNM1927 NCL 000670 33 32 8 0 THEN &FIRST = "4"
NNM1927 NCL 000670 34 33 4 0 WHEN "Thursday"
NNM1927 NCL 000670 34 34 9 0 THEN &FIRST = "5"
NNM1927 NCL 000670 35 35 4 0 WHEN "Friday"
NNM1927 NCL 000670 35 36 10 0 THEN &FIRST = "6"
AUTO HOLD ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>
Screen 3 of 4
(06:49) --------------------- OPERATOR CONTROL SERVICES ----------------------
NNM1927 NCL 000670 36 37 4 0 WHEN "Saturday"
NNM1927 NCL 000670 36 38 11 0 THEN &FIRST = "7"
NNM1927 NCL 000670 37 39 4 0 END
NNM1927 NCL 000670 40 40 0 0 SAY "Calendar for: "||SUBSTR( DATECONV(
"11", &START, "N" ), 4 )
NNM1927 NCL 000670 41 41 0 0 SAY "Sun Mon Tue Wed Thu Fri Sat"
NNM1927 NCL 000670 43 42 0 0 &LINE = COPIES( " ", &FIRST-1 )
NNM1927 NCL 000670 45 43 0 0 &DAYS = &DAYS.&MONTH
NNM1927 NCL 000670 47 44 0 0 DO &DAY = 1 TO &DAYS BY 1
NNM1927 NCL 000670 50 45 12 0 &LINE = &LINE||OVERLAY( &DAY, "", , 3, ,
"R" )||" "
NNM1927 NCL 000670 52 46 12 0 &LINELENGTH = &DAYS+&FIRST-1
NNM1927 NCL 000670 55 47 12 0 IF &LINELENGTH%7=0
NNM1927 NCL 000670 55 48 13 0 THEN DO
NNM1927 NCL 000670 56 49 14 0 SAY &LINE
NNM1927 NCL 000670 57 50 14 0 &LINE = ""
NNM1927 NCL 000670 58 51 14 0 &LINELENGTH = ""
NNM1927 NCL 000670 59 52 14 0 END
NNM1927 NCL 000670 60 53 12 0 END
NNM1927 NCL 000670 62 54 0 0 IF &LINE\==""
NNM1927 NCL 000670 63 55 15 0 THEN SAY &LINE
AUTO HOLD ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>