COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-137
PUTSTARTUPTEXT
Appropriate text values for startup message parts are:
cplist
is a checkpoint list in which the routine records the changes to the message
storage data space. Example:
01 CP-LIST-1.
05 MAX-COUNT PIC 9999 COMP VALUE IS 100.
05 CURRENT-COUNT PIC 9999 COMP VALUE IS 0.
05 ELEMENT PIC 9(9) COMP OCCURS 100 TIMES.
The initial value of MAX-COUNT must be the same as the number of occurrences
of ELEMENT.
In the non-CRE environment, the initial value of MAX-COUNT is the maximum
number of elements that cplist can contain. In the CRE, the maximum number
of elements that cplist can contain is the initial value of MAX-COUNT divided
by 2.5. The cplist in the preceding example can contain 100 elements in the
non-CRE environment, but only 40 in the CRE.
The required number of table elements depends on the number of operations the
list must record. The worst-case situation uses six elements.
A complete checkpoint list is required only when a program has a backup that must
be kept current. When a record of changes is not required, a null checkpoint list
can be used. This is an example description:
08 CP-LIST-1 PIC 9(9) COMP VALUE IS 0.
result
is a DISPLAY or COMPUTATIONAL numeric data item assigned the result
returned by PUTSTARTUPTEXT. Example:
04 RESULT PIC S9999 COMPUTATIONAL.
VOLUME The text is the new default system, volume, and subvolume
names, formatted like this, with a maximum of 26 characters:
\system.$volume.subvol
If the new volume part does not include the system name
component, the text is just this, with no system qualifier.
$volume.subvol
IN The text is the file system name of the new input file and can have
a maximum of 35 characters. The file name can be all spaces.
OUT The text is the file system name of the new output file and can
have a maximum of 35 characters. The file name can be all
spaces.
STRING The text is the new message parameter string, not including trailing
null characters, and can have a maximum of 526 characters.