COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-116
DELETESTARTUP
DELETESTARTUP
The DELETESTARTUP routine deletes an entire startup message. The general form of
the ENTER statement to use DELETESTARTUP is:
library-reference
is a mnemonic-name associated in the SPECIAL-NAMES paragraph with either
$SYSTEM.SYSTEM.COBOLLIB or some other object file containing an object
copy of DELETESTARTUP.
portion
is an alphanumeric data item that supplies the identifier for the particular part of the
message to be deleted. For DELETESTARTUP this must be the special portion
identifier *ALL*. The first unused character position of portion, if any, must be a
space. Example:
05 PORTION PIC X(30) VALUE "*ALL*".
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.
Note. DELETESTARTUP uses a protocol different from that used for normal TAL procedures.
The ENTER verb must not be followed by the keyword TAL.
USING
library-reference
portion
OF
resultGIVING
cplist
ENTER
" "
ns
DELETESTARTUP
ns
VST362.vsd