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

Data Division
HP COBOL Manual for TNS/E Programs—520347-003
7-35
Size Limits
•
Every time the program is called, if the program is an initial program (see Initial
Programs). The NOCANCEL directive does not affect initial programs.
Once initialized, an internal data item retains the last value assigned to it throughout
the current execution of the run unit, unless an event that causes internal data items to
be reinitialized occurs. In that case, the data item is reassigned its initial value if it has
a VALUE clause or if a BLANK directive is active; if not, its contents are unpredictable.
Size Limits
In Section 20, HP COBOL Limits, see Data in a run unit.
Checkpointing
You do not have to put level-01 items (records) and level-77 items in any special order
in the Working-Storage Section; however, when you plan working storage for a
program to be run as a process pair, this approach simplifies checkpointing:
•
Group all independent data items into a record, and code the record in the same
part of the Working-Storage Section as other level-01 items.
•
Reserve level-77 items for constants, and code them last.
Extended-Storage Section
01-data-description
77-data-description
describe data items for the process to use. You can specify initial values for most
of these data items. See Data Description Entries and Initializing Data Items.
Note. TNS/E HP COBOL does not need an Extended-Storage Section. The ECOBOL
compiler handles any data items that are described in the Extended-Storage Section as if they
were described in the Working-Storage Section, without issuing a warning.
EXTENDED-STORAGE
.
SECTION
01-data-description
77-data-description
66-or-88
VST095.vsd