where a global user exit program or task-related user exit program is involved,
the options return information about the exit program.
INVOKING_ENVIRONMENT (EXEC|GLUE|PLT|SYSTEM|TRUE|URM)
returns the environment from which the current program was invoked; that is,
the environment corresponding to the program named in
INVOKING_PROGRAM_NAME. The values are as described for
CURRENT_ENVIRONMENT.
INVOKING_PROGRAM_NAME(name8)
returns the name of the most recent program to invoke the current program. If
IGNORE_EXITS(NO) is specified, this might be a global user exit program or
task-related user exit program, if one was involved. If IGNORE_EXITS(YES) is
specified, which is the default, this is the most recent program that was not a
global user exit program or task-related user exit program.
LIBRARY(name)
returns the 8-character name of the LIBRARY resource from which this program
was loaded. This is blank if the program has not been loaded, or if the
LPASTATUS is LPA (indicating that the program has been loaded from the
LPA). If the program was loaded from an installed LIBRARY, the LIBRARY and
LIBRARYDSN names are returned.
LIBRARYDSN(data-area)
returns the 44-character name of the data set from which the program was
loaded. This is blank if the program has not been loaded, or if the LPASTATUS
is LPA (indicating that the program has been loaded from the LPA). If the
program was loaded from an installed LIBRARY, the LIBRARY and
LIBRARYDSN names are returned.
RETURN_PROGRAM_NAME(name8)
returns the name of the program to which control will be returned. If
IGNORE_EXITS(NO) is specified, this might be a global user exit program or
task-related user exit program. If IGNORE_EXITS(YES) is specified, which is
the default, this is the program to which control will be returned after any
intermediate global user exit programs or task-related user exit programs have
completed.
RESPONSE and REASON values for
INQUIRE_CURRENT_PROGRAM:
RESPONSE REASON
OK None
EXCEPTION NO_CURRENT_PROGRAM
DISASTER LOCK_ERROR
ABEND
INVALID None
KERNERROR None
PURGED None
The SET_PROGRAM call
SET_PROGRAM allows you to set selected attributes in the definition of a specified
program.
Chapter 3. The user exit programming interface (XPI) 375
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|