COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines

HP COBOL Manual for TNS and TNS/R Programs—522555-006

13-131

PUTASSIGNVALUE

The PUTASSIGNVALUE routine either creates or replaces a specified part of an

ASSIGN message with the value obtained from an integer variable. The general form

of the ENTER statement to use PUTASSIGNVALUE is:

library-reference

is a mnemonic-name associated in the SPECIAL-NAMES paragraph with either

$SYSTEM.SYSTEM.COBOLLIB or some other loadfile containing an object copy

of PUTASSIGNVALUE.

portion

is an alphanumeric data item that supplies the identifier for the particular integer

part of the message to be changed. The identifier must be one defined for the

ASSIGN message (see Table 13-13

). The first unused character position of

portion, if any, must be a space. Example:

06 PORTION PIC X(30) VALUE "BLKSIZE".

val

is the new value of the message part. val can be a DISPLAY or

COMPUTATIONAL numeric data item, a numeric literal, or an expression enclosed

in parentheses. The value must evaluate to an integer consistent with the message

part to be created or replaced. Example:

07 VAL PIC S9999 COMPUTATIONAL.

Note. PUTASSIGNVALUE 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

val

message-number

cplist

resultGIVING

ENTER

" "

PUTASSIGNVALUE

VST369.vsd