z/OS ISPF Services Guide
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


VREPLACE—replace a variable

z/OS ISPF Services Guide
SC19-3626-00

The VREPLACE service is used only with CALL ISPLINK or CALL ISPLNK calls.

The VREPLACE service allows a program module to update the contents of a variable in the function pool.

The variable names can be specified as single 8-character values, a list enclosed in parentheses, or a name-list structure. An array of lengths must be supplied on input to map the area that contains the data for each of the variables.

The variable to be updated can be the function's own defined variable, if it exists, or an implicit variable associated with the function. If the named variable does not exist, it is created as an implicit function variable.

Command invocation format

ISPEXEC  *This service does not apply to
          APL2 or command procedures*

Call invocation format

CALL  ISPEXEC  *This service cannot be used with this interface*

or

Read syntax diagramSkip visual syntax diagram
>>-CALL--ISPLINK--('VREPLACE'--,--name-list,--lengths,---------->

>--values);----------------------------------------------------><

Parameters

name-list
Specifies the names of the dialog variables whose values are to be updated. The standard name-list format is used.
lengths
Specifies an array of values giving, for each corresponding variable in the name-list, the number of bytes of the data to be used in the updating. Each field in the array must be a fullword binary integer.
values
Specifies, in the buffer mapped by the length array, the update data to be used in the updating.

Return codes

These return codes are possible:
 0
Normal completion.
16
Truncation has occurred during data movement.
20
Severe error.

Example

Copy the value of a field named QROWSD from this PL/I program module to the function variable named QROWS. Before the copy operation, if no variable with this name is found in the function pool, create one, giving it the name QROWS. Program variable L8 contains a value of 8.
CALL ISPLINK ('VREPLACE','QROWS ',L8,QROWSD);

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014