Filter
Top Products
PRIVATE
The program is in the DFHRPL or dynamic LIBRARY concatenation. A
PRIVATE program need not be reentrant, and is given only limited
protection from unauthorized overwriting. The degree of protection
depends on the type of dynamic storage area (DSA) into which the
program is loaded (see the EXECUTION_KEY option):
DSA Protection from unauthorized overwriting
CDSA Cannot be overwritten by USER tasks
ECDSA
Cannot be overwritten by USER tasks
ERDSA
Complete—cannot be overwritten by USER tasks or CICS tasks
EUDSA
None
RDSA Complete—cannot be overwritten by USER tasks or CICS tasks
UDSA None.
SHARED
The program is located in the link pack area (LPA), is reentrant, and is
protected.
TYPE_ANY
Either the copy in DFHRPL or dynamic LIBRARY concatenation, or the
LPA copy of the program may be used, though preference is given to
the LPA copy.
REQUIRED_AMODE(24|31|AMODE_ANY)
specifies the addressing mode of the program. If, during subsequent
ACQUIRE_PROGRAM processing, no copy of the program that meets the
defined addressing requirement can be found, the ACQUIRE_PROGRAM call
receives an ‘EXCEPTION’ response and the REASON value
‘PROGRAM_NOT_FOUND’.
Note:
1. AMODE_ANY and AMODE 31 have identical meanings for this
function.
2. You cannot use this option to override the link-edited addressing
mode of the program.
REQUIRED_RMODE(24|RMODE_ANY)
specifies the residency mode of the program. If, during subsequent
ACQUIRE_PROGRAM processing, no copy of the program that meets the
defined addressing requirement can be found, the ACQUIRE_PROGRAM call
receives an ‘EXCEPTION’ response and the REASON value
‘PROGRAM_NOT_FOUND’.
Note: You cannot use this option to override the link-edited residence mode of
the program.
RESPONSE and REASON values for DEFINE_PROGRAM:
RESPONSE REASON
OK None
EXCEPTION CATALOG_ERROR
Chapter 3. The user exit programming interface (XPI) 355