COBOL Manual for TNS and TNS/R Programs

Migrating TNS Programs to Native Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
33-16
Possible Changes Required
•
CONSULT
For the NMCOBOL compiler, each object-name in a CONSULT directive must
designate a TNS/R native object file (otherwise the compiler reports an error).
For the ECOBOL compiler, each object-name in a CONSULT directive must
designate a TNS/E native object file (otherwise the compiler reports an error).
If a native HP COBOL program references the object in a CALL or ENTER
statement, the object must have been compiled with symbols.
For a complete description of this directive, see CONSULT and NOCONSULT.
•
LARGEDATA
For the COBOL85 compiler, the LARGEDATA directive determines whether
individual data items are located in the user data space or the user extended
space. The default value for the LARGEDATA directive’s parameter is 256.
For the NMCOBOL compiler, the LARGEDATA directive determines whether
individual data items are located in the small data area or the large data area. The
default value for the LARGEDATA directive’s parameter is 64.
The ECOBOL compiler ignores the LARGEDATA directive and issues a warning.
For a complete description of this directive, see LARGEDATA.
•
LIBRARY
The NMCOBOL and ECOBOL compilers ignore the LIBRARY directive and issue a
warning.
Instead of the LIBRARY directive, specify the name of your user library as
explained in Specifying a User Library.
For a complete description of this directive, see LIBRARY.
•
OPTIMIZE
The NMCOBOL compiler handles OPTIMIZE 2 as if it were OPTIMIZE 1, because
native COBOL does not support global optimization. The ECOBOL compiler
handles OPTIMIZE 2 as the COBOL85 compiler does.
OPTIMIZE 0 (no optimization) is recommended when you are debugging a
program using the NMCOBOL or ECOBOL compiler. OPTIMIZE 1 (most
optimizations) is recommended for production.
For a complete description of this directive, see OPTIMIZE
.
•
RUNNAMED
The RUNNAMED directive works in the NMCOBOL and ECOBOL compilers only if
you specify the new RUNNABLE directive (see RUNNABLE directive
).
For a complete description of this directive, see RUNNAMED.