H-Series Application Migration Guide (H06.03+)
Native COBOL Migration Tasks:
H-Series Application Migration Guide—429855-006
6-3
RENAMES Clause Has Different Behavior
and CALL-SHARED or SHARED in the same compilation unit causes an error. In
TNS/E native COBOL, specifying both UL and RUNNABLE directs the compiler to
link the object file into a DLL.
•
SEARCH and CONSULT
In TNS/E native COBOL, these directives must specify TNS/E object files. They
must not specify TNS/R object files.
•
OPTIMIZE
Both TNS/R native and TNS/E native COBOL accept the same values for the
OPTIMIZE directive: 0, 1, and 2. For both compilers, 0 results in no optimization. In
TNS/R native COBOL, 1 and 2 produce the same level of optimization. In TNS/E
native COBOL, 1 produces optimization for use with debugging, and 2 produces
full optimization. (Note that at optimization 2, compilation time will be slightly
longer.) Thus, in TNS/E native COBOL, you can compile at optimization 1 to
produce code that shows some improvement in performance and is still suitable for
symbolic debugging.
•
INSPECT and NOINSPECT
Different debugging tools are available on H-series systems. Following is a
comparison of the debuggers selected by the INSPECT and NOINSPECT
directives in the G-series and H-series RVUs:
INSPECT selects, in order of precedence and depending on availability:
NOINSPECT selects:
RENAMES Clause Has Different Behavior
As documented in both the COBOL Manual for TNS and TNS/R Programs and COBOL
Manual for TNS/E Programs, the RENAMES clause must not rename a level-01 data
item. However, if a TNS/R COBOL program uses a RENAMES clause in this way, the
G-Series Non-PIC G-Series PIC H-Series
1. Visual Inspect* 1. Visual Inspect* Visual Inspect*
2. Inspect 2. DEBUG
3. DEBUG
*Visual Inspect requires the existence of a matching client connection.
G-Series (PIC and
Non-PIC) H-Series
Debug Visual Inspect*
*Visual Inspect requires the existence of a matching client
connection.
Note. Native Inspect cannot currently be used to debug H-series COBOL programs. Visual
Inspect is the recommended debugger for H-series COBOL programs.