COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-129
PUTASSIGNTEXT
Because each saved ASSIGN message is identified by a positive integer,
message-number refers to the integer value of the specific message. The set of
numbers associated with the ASSIGN messages are integers from 1 to N, where N
is normally the number of ASSIGN messages saved during the initial process
creation.
result
is a DISPLAY or COMPUTATIONAL numeric data item assigned the result
returned by PUTASSIGNTEXT. Example:
04 RESULT PIC S9999 COMPUTATIONAL.
PUTASSIGNTEXT operates on the saved ASSIGN messages. The program must have
included a SAVE directive to save the message.
Changing a saved ASSIGN message has no effect on the current process. Any file
assignments (except for dynamic assignments, as explained under COBOLASSIGN)
are permanently established for a given process by the initialization code that the
process executes before the first statement of the COBOL program. Any process
initiated by the current process after execution of the PUTASSIGNTEXT routine
inherits the changed ASSIGN message.