COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-130
PUTASSIGNTEXT
PUTASSIGNTEXT returns an integer value that indicates the outcome of this
operation. If the specified ASSIGN message does not exist, the PUTASSIGNTEXT
routine attempts to create one containing the supplied text portion and default values
for all other message parts. If this operation fails, a -1, -2, or -3 value is returned. The
integer values and their meanings are:
The ASSIGN message creation is successful if both message space and cplist
space are available, the requested portion is the logical name, and the requested
logical file name does not conflict with that of another saved ASSIGN message. All
other parts are marked “not present in this message.
Value Meaning
0 or greater A string of that many characters is assigned as the new message part value.
A 0 is returned for TANDEMNAME if the file name supplied is all spaces.
-1 Failure due to a logic error. The message is unchanged. These are possible
logic errors:
•
The portion identifier is not correct or does not identify a defined text part
of the ASSIGN message.
•
The text string is not acceptable because either the logical file name or
the file system name of the file is incorrect.
•
The message number is not a positive integer.
•
The requested logical file name conflicts with the logical file name of
another saved ASSIGN message.
•
The contents of the checkpoint list parameter are inconsistent.
•
The specified ASSIGN message does not exist, and the portion identifier
is not LOGICALNAME
-2 Insufficient checkpoint list space is available to complete the operation. The
message is unchanged.
-3 Insufficient stack space to create or replace message. The message is
unchanged. Moving large data items from the Working-Storage Section to the
Extended-Storage Section, either manually or with the LARGEDATA directive,
might solve the problem.