COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-120
GETASSIGNVALUE
GETASSIGNTEXT returns an integer value that indicates the outcome of this
operation. The integer values and their meanings are:
GETASSIGNVALUE
The GETASSIGNVALUE routine retrieves a specified part of an ASSIGN message as
an integer and assigns it to a numeric variable. The general form of the ENTER
statement to use GETASSIGNVALUE 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 GETASSIGNVALUE.
Value Meaning
0 or greater A string of value characters, before truncation or padding, is assigned to
text. If the file-system file name is all spaces and the TANDEMNAME is
requested, a 0 is returned.
-1 Failure due to a logic error; nothing is assigned to text. These are possible
logic errors:
•
The message number is not a positive integer.
•
The specified message does not exist.
•
The portion identifier is not correct, does not identify the defined text part
of an ASSIGN message, or identifies a part that does not exist in the
specified message.
Note. GETASSIGNVALUE 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
val message-number
ENTER
" "
ns
GETASSIGNVALUE
ns
VST364.vsd