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

Migrating TNS/R Programs to TNS/E Programs
HP COBOL Manual for TNS/E Programs—520347-003
33-6
Removal Optional
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.
For a complete description of the RENAMES clause, see Descriptions That Rename
Items (Level 66). For a complete description of the REDEFINES clause, see
REDEFINES Clause.
Removal Optional
The ECOBOL compiler ignores these items, so you can (but need not) remove them
from your source program.
•
LARGEDATA
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.
•
LESS-CODE
For the NMCOBOL compiler, the LESS-CODE directive determines whether the
program generates code that initializes the Working-Storage Section or Extended-
Storage Section or uses a system call to initialize the Extended-Storage Section.
The ECOBOL compiler ignores the LESS-CODE directive and issues no warning.
•
NON-SHARED Directive
For the NMCOBOL compiler, the NON-SHARED directive generates nonshared
code (non-PIC). The ECOBOL compiler, which always generates PIC, ignores the
NON-SHARED directive and issues a warning.