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

Displaying Decompiled Source Code
Debugging an NCL Process
9–38 106160 Tandem Computers Incorporated
The complete listing of the decompiled source code for the ZEX0902N NCL process is
shown next:
NNM1926 NCL 000211 LINE# SMT EV ON STMT-TEXT FROM ZEX0902N
NNM1934 NCL 000211 PROCEDURE ZEX0902N
NNM1927 NCL 000211 1 1 0 0 ZEX0902N: PROCEDURE EXTPARSE SIMPLE
NNM1927 NCL 000211 15 2 0 0 IF &SYS.PARMCNT=0
NNM1927 NCL 000211 15 3 1 0 THEN DO
NNM1927 NCL 000211 16 4 2 0 SAY "You must enter at least one word"
NNM1927 NCL 000211 17 5 2 0 EXIT
NNM1927 NCL 000211 18 6 2 0 END
NNM1927 NCL 000211 21 7 0 0 CMDLINE "GO ID="||&SYS.NCLID||" _Y"
NNM1927 NCL 000211 22 8 0 0 PAUSE VARS=( &PAUSE )
NNM1927 NCL 000211 23 9 0 0 IF SUBSTR( UPPER( &PAUSE ), 1, 1 )\=="Y"
NNM1927 NCL 000211 24 10 3 0 THEN EXIT
NNM1927 NCL 000211 26 11 0 0 &CHARS. = "0"
NNM1927 NCL 000211 28 12 0 0 DO &I = 1 TO &SYS.PARMCNT BY 1
NNM1927 NCL 000211 29 13 4 0 &LEN = MIN( LENGTH( &&I ), 8 )
NNM1927 NCL 000211 30 14 4 0 &CHARS.&LEN = 1+&CHARS.&LEN
NNM1927 NCL 000211 31 15 4 0 END
NNM1927 NCL 000211 34 16 0 0 SAY TOP_TITLE()
NNM1927 NCL 000211 35 17 0 0 DO &I = 1 TO 8 BY 1
NNM1927 NCL 000211 36 18 5 0 SAY LEFT_TITLE( &I ) ":" BAR( &CHARS.&I
)
NNM1927 NCL 000211 37 19 5 0 END
NNM1927 NCL 000211 38 20 0 0 SAY TOP_TITLE()
NNM1927 NCL 000211 39 21 0 0 EXIT
NNM1934 NCL 000211 FUNCTION TOP_TITLE
NNM1927 NCL 000211 47 1 0 0 TOP_TITLE: FUNCTION
NNM1927 NCL 000211 48 2 0 0 DO &I = 1 TO 10 BY 1
NNM1927 NCL 000211 50 3 1 0 IF &I=10
NNM1927 NCL 000211 51 4 2 0 THEN &PLUS = "+"
NNM1927 NCL 000211 53 5 3 0 ELSE &PLUS = " "
NNM1927 NCL 000211 55 6 1 0 &LINE = &LINE||OVERLAY( &I||&PLUS, "
|", 2, 3, " ", "R" )
NNM1927 NCL 000211 56 7 1 0 END
NNM1927 NCL 000211 58 8 0 0 RETURN (COPIES( "-", 2+LENGTH( "8" ) )
||"| "||&LINE)
NNM1927 NCL 000211 59 9 0 0 END
NNM1935 NCL 000211 END OF FUNCTION TOP_TITLE
NNM1934 NCL 000211 FUNCTION LEFT_TITLE
NNM1927 NCL 000211 68 1 0 0 LEFT_TITLE: FUNCTION
NNM1927 NCL 000211 70 2 0 0 IF &1=8
NNM1927 NCL 000211 71 3 1 0 THEN &PLUS = "+"
NNM1927 NCL 000211 73 4 2 0 ELSE &PLUS = " "
NNM1927 NCL 000211 75 5 0 0 RETURN (OVERLAY( &1||&PLUS, "", 1,
1+LENGTH( "8" ), " ", "R" ))
NNM1927 NCL 000211 76 6 0 0 END
NNM1935 NCL 000211 END OF FUNCTION LEFT_TITLE
NNM1934 NCL 000211 FUNCTION BAR
NNM1927 NCL 000211 85 1 0 0 BAR: FUNCTION
NNM1927 NCL 000211 86 2 0 0 IF &1=0
NNM1927 NCL 000211 87 3 1 0 THEN RETURN ("")
NNM1927 NCL 000211 89 4 0 0 RETURN (COPIES( "*****", MIN( &1, 10 ) )
)
NNM1927 NCL 000211 90 5 0 0 END
NNM1935 NCL 000211 END OF FUNCTION BAR
NNM1927 NCL 000211 91 22 0 0 END
NNM1935 NCL 000211 END OF PROCEDURE ZEX0902N
NNM0999 *END*