COBOL Manual for TNS/E Programs (H06.03+)

Program Compilation
HP COBOL Manual for TNS/E Programs—520347-003
11-65
PERFORM-TRACE
PERFORM-TRACE
PERFORM-TRACE gives additional information if run-time error 148, “PERFORM
nesting too deep,” occurs.
If the program was compiled with the PERFORM-TRACE directive and run-time error
148 occurs, this additional information is given:
Line numbers of PERFORMs from latest to earliest
Line Number File Number
llllll.lll nnn
...
The file number nnn is the number of the source file. The source-file specified in
the compilation command has file number 001. A file number is shown for each file
referenced by the directive SOURCE or a COPY Statement. To see the file numbers,
compile the program with SHOWFILE directive (see SHOWFILE and NOSHOWFILE).
PORT and NOPORT
PORT and NOPORT determine:
•
How BINARY/COMPUTATIONAL data items are aligned
•
Whether the CALL statement in a program behaves as defined in X/Open and
XPG4 specification.
Default: The compiler does not provide additional information if run-time error
148 occurs.
Placement: Anywhere
Scope: Applies to the compilation unit
Dependencies: None
PERFORM-TRACE
VST800.vsd
PORT
NOPORT
1
2
3
VST600.vsd