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

Debugging an NCL Process From Start to Finish
Debugging an NCL Process
9–68 106160 Tandem Computers Incorporated
Screen 4 of 4.
(06:49) --------------------- OPERATOR CONTROL SERVICES ----------------------
NNM1927 NCL 000670 64 56 0 0 END
NNM0999 *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
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>