This command is threadsafe.
Note: The options not described in the following list are identical to the equivalent
options of the INQUIRE_PROGRAM call.
CURRENT_AMODE(24|31)
returns the addressing mode which the running program is currently using.
CURRENT_CEDF_STATUS(CEDF|NOCEDF)
returns the EDF status of the current instance of the program. The value
returned is the same as for CEDF_STATUS, which is the EDF status specified
on the program definition. See the CEDF_STATUS option of
INQUIRE_PROGRAM.
CURRENT_ENTRY_POINT(name4)
returns the entry point address of the current program.
CURRENT_ENVIRONMENT(EXEC|GLUE|PLT|SYSTEM|TRUE|URM)
returns the environment in which the current program is running—that is, the
type of program it is.
EXEC User application program
GLUE Global user exit program
PLT Program list table program
SYSTEM
CICS system code
TRUE Task-related user exit program
URM User-replaceable program
CURRENT_EXECUTION_SET(DPLSUBSET|FULLAPI)
returns the API execution set used by the current instance of the program. The
value returned is the same as for EXECUTION_SET (which is the API
execution set specified on the program definition) unless this is the first program
in a transaction, when the value may be different. This is because the
DPLSUBSET attribute applies only to linked-to programs. It is ignored for the
first program in a transaction, because this cannot be the target of a DPL call.
Therefore, for the first program in a transaction, if EXECUTION_SET returns
DPLSUBSET, CURRENT_EXECUTION_SET nevertheless returns FULLAPI.
See the EXECUTION_SET option of INQUIRE_PROGRAM.
CURRENT_LOAD_POINT(name4)
returns the load point address of the current program.
CURRENT_PROGRAM_LENGTH(name4)
returns the length of the current program, in bytes, expressed in binary.
CURRENT_PROGRAM_NAME(name8)
returns the name of the program that is currently running.
IGNORE_EXITS(YES|NO)
specifies whether global user exit programs and task-related user exit programs
are ignored when returning information about the program which invoked the
current program and to which control will be returned. Your setting for this
option affects the values returned by the INVOKING_ENVIRONMENT,
INVOKING_PROGRAM_NAME, and RETURN_PROGRAM_NAME options. If
YES is specified, which is the default, global user exit programs and
task-related user exit programs are ignored for these options. If NO is specified,
374 Customization Guide
|
|
|
|
|
|
|
|