Manualshelf

H-Series Application Migration Guide (H06.03+)

ManualsBrandsHP ManualsServerHP Integrity NonStop H-Series
71727374757677787980
Native COBOL Migration Tasks
H-Series Application Migration Guide—429855-006
6-4
Symbol Dictionary Requires More Space
error is not diagnosed and, in fact, the program executes normally. The TNS/E COBOL
compiler does detect this error. Therefore, if a TNS/R COBOL program uses a
RENAMES clause to rename a level-01 data item, you must change the source code
as follows before recompiling it with the TNS/E COBOL compiler.
If the level-01 data item is elementary, change the RENAMES clause to a REDEFINES
clause. For example, change:
01 CARD-COUNTER PIC 9(6).
66 ITEM-COUNT RENAMES CARD-COUNTER.
To:
01 CARD-COUNTER PIC 9(6).
66 ITEM-COUNT PIC 9(6) REDEFINES CARD-COUNTER.
If the level-01 data item is a structure, rename the first subordinate data item through
the last subordinate data item. For example, change:
01 CARD-REC.
05 REFERENCE-NUMBER PIC 9(6).
05 CARD-CODES.
10 STORE-CODE PIC 9.
10 STATE-CODE PIC 9(4).
05 ACCOUNT-NUMBER PIC 9(6).
05 CHECK-DIGIT PIC 9.
66 CARD-DATA RENAMES CARD-REC.
To:
01 CARD-REC.
05 REFERENCE-NUMBER PIC 9(6).
05 CARD-CODES.
10 STORE-CODE PIC 9.
10 STATE-CODE PIC 9(4).
05 ACCOUNT-NUMBER PIC 9(6).
05 CHECK-DIGIT PIC 9.
66 CARD-DATA RENAMES REFERENCE-NUMBER THRU CHECK-DIGIT.
Symbol Dictionary Requires More Space
The TNS/E COBOL compiler requires more space to describe a symbol that does the
TNS/R COBOL compiler; thus, the symbol dictionary requires more space on a TNS/E
system. If you use a PARAM SYMBOL-BLOCKS command to specify the amount of
space to allocate for the symbol dictionary in a TNS/R compilation, you might need to
increase the amount specified when compiling with the TNS/E compiler.
The default value for PARAM SYMBOL-BLOCKS has been increased for the TNS/E
COBOL compiler, so if you are not specifying it for a TNS/R compilation, you probably
will not need to specify it for a TNS/E compilation. See the COBOL Manual for TNS
and TNS/R Programs and the COBOL Manual for TNS/E Programs for details on the
amount of space allocated by the PARAM SYMBOL-BLOCKS command.