NET/MASTER Management Services (MS) Command Reference Manual

DEBUG SOURCE
NonStop NET/MASTER MS Commands
115412 Tandem Computers Incorporated 2–59
2. The following example displays a specific statement in a nested function. The
following screen displays the results.
DEBUG SOURCE LOC=WORDS.TOP_TITLE.1
(14:57) --------------------- OPERATOR CONTROL SERVICES ----------------------
START WORDS THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
NNM1060 PROCEDURE WORDS NCLID 1076 PAUSED
DEBUG START ID=1076
NNM1901 NCL 001076 DEBUG SESSION INITIATED
NNM1902 NCL 001076 SUSPENDED AT WORDS.8 LINE 22
GO ID=1076 Y
DEBUG SOURCE LOC=WORDS.TOP_TITLE.1
NNM1926 NCL 001076 LINE# SMT EV ON STMT-TEXT FROM WORDS.TOP_TITLE
NNM1927 NCL 001076 47 1 0 0 TOP_TITLE: FUNCTION
NNM0999 *END*
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
PM=>
3. The following example displays all statements, including statements at all lower
nesting levels. The following screen displays the results.
DEBUG SOURCE NESTED=YES LOC=WORDS
(15:05) --------------------- OPERATOR CONTROL SERVICES ----------------------
START WORDS THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
NNM1060 PROCEDURE WORDS NCLID 1083 PAUSED
DEBUG START ID=1083
NNM1901 NCL 001083 DEBUG SESSION INITIATED
NNM1902 NCL 001083 SUSPENDED AT WORDS.8 LINE 22
GO ID=1083 Y
DEBUG SOURCE NESTED=YES LOC=WORDS
NNM1926 NCL 001083 LINE# SMT EV ON STMT-TEXT FROM WORDS
NNM1934 NCL 001083 PROCEDURE WORDS
NNM1927 NCL 001083 1 1 0 0 WORDS: PROCEDURE EXTPARSE SIMPLE
NNM1927 NCL 001083 15 2 0 0 IF &SYS.PARMCNT=0
NNM1927 NCL 001083 15 3 1 0 THEN DO
NNM1927 NCL 001083 16 4 2 0 SAY "You must enter at least one word"
NNM1927 NCL 001083 17 5 2 0 EXIT
NNM1927 NCL 001083 18 6 2 0 END
NNM1927 NCL 001083 21 7 0 0 CMDLINE "GO ID="||&SYS.NCLID||" _Y"
NNM1927 NCL 001083 22 8 0 0 PAUSE VARS=( &PAUSE )
NNM1927 NCL 001083 23 9 0 0 IF SUBSTR( UPPER( &PAUSE ), 1, 1 )\=="Y"
NNM1927 NCL 001083 24 10 3 0 THEN EXIT
NNM1927 NCL 001083 26 11 0 0 &CHARS. = "0"
NNM1927 NCL 001083 28 12 0 0 DO &I = 1 TO &SYS.PARMCNT BY 1
AUTO HOLD ------------------ NonStop NET/MASTER D30 ---------------- --------
PM=>