COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-115
DELETEPARAM
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:
06 CP-LIST-1 PIC 9(9) COMP VALUE IS 0.
result
is a DISPLAY or COMPUTATIONAL numeric data item assigned the result
returned by DELETEPARAM. Example:
03 RESULT PIC S9999 COMPUTATIONAL.
DELETEPARAM operates on the saved PARAM message. The program must have
included a SAVE directive to save the message.
Deleting all or part of the saved PARAM message has no effect on the current process.
Any DEBUG, SWITCH-nn, NONSTOP, or other named parameters are permanently
established for a given process by the initialization code that the process executes
before the first statement of the COBOL program. Any process initiated by the current
process after the execution of the DELETEPARAM routine lacks all or part of the
PARAM message.
DELETEPARAM returns an integer value that indicates the outcome of this operation.
The integer values and their meanings are:
Value Meaning
0 The specified message or message portion is deleted.
-1 Failure due to a logic error; nothing is deleted. These are possible logic errors:
•
The portion identifier is not correct.
•
The contents of the checkpoint list parameter are inconsistent.
-2 Insufficient checkpoint list space is available to complete the deletion. The
message is unchanged.