CBL_GET_SHMEM_PTR

Restriction:

This routine is not supported when CHARSET"EBCDIC" is in effect.
This function is not supported in JVM COBOL.

Reads a named value.

Syntax:

call "CBL_GET_SHMEM_PTR" using     node-value
                                   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:

cblte-nname-name-len: The length of name.
cblte-nname-name-text: The value assigned to node-name.

On Exit:

node-value: The value of the named value.

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.