COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-111
DELETEASSIGN
result
is either a DISPLAY or COMPUTATIONAL numeric data item assigned the result
returned by CHECKMESSAGE. Example:
08 RESULT PIC S9999 COMPUTATIONAL.
Under these conditions, result has these values:
DELETEASSIGN
The DELETEASSIGN routine deletes either specific parts of a saved ASSIGN
message or an entire saved ASSIGN message. The general form of the ENTER
statement to use DELETEASSIGN 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 DELETEASSIGN.
Condition Value of result
Value of message-number is not 0
and requested message exists
Value of message-number
Value of message-number is not 0
and requested message does not exist
0
Value of message-number is 0 and
no saved ASSIGN messages exist.
0
All others Nonzero integer value associated with the
highest numbered saved ASSIGN message
Note. DELETEASSIGN 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
message-numbercplist
ENTER
" "
ns
DELETEASSIGN
ns
VST360.vsd