COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-133
PUTPARAMTEXT
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 PUTASSIGNVALUE routine inherits
the changed ASSIGN message.
PUTASSIGNVALUE returns an integer value that indicates the outcome of this
operation. The integer values and their meanings are:
PUTPARAMTEXT
The PUTPARAMTEXT routine either creates or replaces a specified part of the PARAM
message with text obtained from a string variable. The general form of the ENTER
statement to use PUTPARAMTEXT is:
Value Meaning
0 Value of val is assigned as the new value of the requested message part.
-1 Failure due to a logic error. Nothing is changed. These are possible logic errors:
•
The portion identifier is not correct or does not identify a defined text part of
the ASSIGN message.
•
The integer value supplied is not acceptable for the specified part of the
ASSIGN message.
•
The message number is not a positive integer.
•
The specified message does not exist. A nonexistent ASSIGN message must
be created by the PUTASSIGNTEXT routine with the specified part of the
logical name.
-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.
USING
library-reference
portion
OF
text
resultGIVING
cplist
ENTER
" "
ns
PUTPARAMTEXT
ns
VST370.vsd