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

Libraries and Utility Routines
HP COBOL Manual for TNS/E Programs—520347-003
13-50
COBOL_SETMODE_
function
is a numeric data item or arithmetic expression that is the function parameter of
the Guardian environment routine SETMODE. For more information, see the
Guardian Procedure Calls Reference Manual.
param-1
param-2
are numeric data items or arithmetic expressions that are the param1 and
param2 parameters of the Guardian environment routine SETMODE. For more
information, see the Guardian Procedure Calls Reference Manual.
lastparams
is a data item at least four characters long that corresponds to the last-params
parameter of the Guardian environment routine SETMODE. For best results, define
it as a group with two NATIVE-2 data items immediately subordinate to it; for
example:
01 LASTPARAMS
02 PARAM1 NATIVE-2
02 PARAM2 NATIVE-2
cpinfo
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.
The maximum number of elements that cpinfo can contain is the initial value of
MAX-COUNT divided by 2.5. The cpinfo in the preceding example can contain
40 elements.
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:
03 CP-LIST-1 PIC 9(9) COMP VALUE IS 0.