COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines

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

13-127

PUTASSIGNTEXT

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

ASSIGN message with text obtained from a string variable. The general form of the

ENTER statement to use PUTASSIGNTEXT 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 PUTASSIGNTEXT.

portion

is an alphanumeric data item that supplies the identifier for the particular text 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:

03 PORTION PIC X(30) "TANDEMNAME".

text

is an alphanumeric data item containing the new value of the specified message

part. Any trailing spaces are ignored. Example:

07 TEXT-VALUE PIC X(120).

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

text

message-number

GIVING

cplist

result

ENTER

" "

PUTASSIGNTEXT

VST368.vsd