Persistent Global Variables Interface › $CAGLBL OPT=SHGLBL

$CAGLBL OPT=SHGLBL

Creates SH NCLGLBL output for a persistent global variable.

&CALL PROC=$CAGLBL PARMS=( OPT=SHGLBL
                        [ ,NAME={ pattern | * } ]
                        [ ,DEBUG={ N | Y } ] )

Operands:

OPT=SHGLBL

Specifies the SHGLBL function. The output from the SH NCLGLBL command is processed and the following actions are taken prior to repeating it to the output, depending on the specification of the NAME parameter:

If NAME= is not specified

Lists the names of global variables (as with SH NCLGLBL). The names will be sorted, names of global variables having persistence will be marked with '#' before them.

If NAME=*

Lists the names, value lengths and values of all global variables in sorted order (as with SH NCLGLBL=). Names of global variables with persistence are prefixed with # , and an additional line is added that lists the length and value of the persistent variable. If the first 230 characters of global variable value differ from the persistent value, the global variable value appears in blue.

If NAME=pattern

Lists the names, value lengths and values of global variables with the name starting with pattern in sorted order (as with SH NCLGLBL=pattern). Names of global variables with persistence are prefixed with #, and an additional line is added that lists the length and value of persistent variable. If the first 230 characters of global variable value differ from the persistent value, the global variable appears in blue.

Note: You can use the EQUATE command to simplify your process, for example:

equate showglbl+ start $caglbl
opt=shglbl +

You can define the EQUATE in the $NM EQUATES parameter group (enter /PARMS at the prompt to list parameter groups).

NAME=pattern

Specifies a full name or starting characters of the global variables names.

DEBUG={ N | Y }

When set to Y, initiates internal debugging of the $CAGLBL procedure and should only be used with assistance from Technical Support.

Return Codes

RETCODE

0—Successful execution

8—Unsuccessful execution

Examples:

&CALL PROC=$CAGLBL PARMS=(OPT=SHGLBL)