FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-47
PUTASSIGNVALUE Routine
Example
?GUARDIAN PUTASSIGNTEXT
INTEGER error
CHARACTER* 20 new name
READ (*,*) new name
error = PUTASSIGNTEXT ('TANDEMNAME', new name, 0, 10)
PUTASSIGNVALUE Routine
The PUTASSIGNVALUE routine creates or replaces a specified numeric part of an
ASSIGN message with the value obtained from an integer variable.
result
is an integer variable in which PUTASSIGNVALUE returns the result of the
operation. See Considerations on page 15-48.
portion
is a character expression that identifies the particular part of the message to
replace. The string value must be the name of an ASSIGN message portion that
has an integer value. The first unused character position of portion, if any, must
be a blank. Any characters including and following a blank are ignored.
'LOGICALNAME' and 'TANDEMNAME' are not acceptable portion values for
PUTASSIGNVALUE.
value
is an integer expression whose value PUTASSIGNVALUE stores in the ASSIGN
message.
cplist
is a checkpoint list in which PUTASSIGNVALUE records the changes to the
message storage data space. PUTASSIGNVALUE uses a maximum of six
elements in cplist.For additional detail, see the Checkpoint Considerations for
Saved Message Utility Routines on page 15-28.
messagenumber
is an integer expression that identifies a specific ASSIGN message into which the
new value is placed. messagenumber must be a positive integer.
result = PUTASSIGNVALUE( portion, value, cplist,
messagenumber )