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

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 (page 499). To see the file numbers, compile the program with
SHOWFILE directive (see SHOWFILE and NOSHOWFILE).
The compiler does not provide additional information if run-time error 148 occurs.Default:
AnywherePlacement:
Applies to the compilation unitScope:
NoneDependencies:
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.
PORT
aligns BINARY/COMPUTATIONAL data items on byte boundaries (unless they are described
with the SYNCHRONIZED clause, which aligns them on 2-byte boundaries).
PORT also allows the CALL statement in a program to behave as it does in X/Open and XPG4;
that is, to call non-COBOL routines, pass parameters by value, and return the values of functions.
1
• Allows CALL to call programs other than COBOL programs
• Prevents the compiler from issuing a warning when the Linkage Section does not having
a matching item in the PROCEDURE DIVISION header
• Causes the external variable RETURN-CODE to be automatically defined
2
prevents binary items from being aligned on word boundaries.
3
does what both PORT 1 and PORT 2 do. PORT 3 is equivalent to PORT.
560 Program Compilation