CBL_PUT_SHMEM_PTR

Restriction: This routine is not supported when CHARSET"EBCDIC" is in effect.

Creates or updates a named value.

Syntax:

call "CBL_PUT_SHMEM_PTR" using by value     node-value
                               by reference node-name
                         returning          status-code

Parameters

node-value

Call prototype (see Key): cblt-pointer

Picture: usage pointer.

node-name

Group predefined as cblt-node-name containing:

01  cblt-node-name          typedef.
  03 cblte-nname-name-len   cblt-x1-comp5. *> pic x comp-5 value n.
  03 cblte-nname-name-text  cblt-x1.       *> occurs depending cblte-nname-name-len. 
                                           *> pic x(n) value "name".

status-code

See Library Routines - Key.

On Entry:

`node-value`	The value to assign to the created/updated named value.
`cblte-nname-name-len`	The length of name.
`cblte-nname-name-text`	The name of the named value.

On Exit:

None

Comments:

Named values provide a way of passing pointers between different run-units using a name agreed at run-time. Named values can be read simultaneously by all units in the coru because the run-time system protects and serializes any updates. The maximum number of named values depends on how much memory your machine has.