The auto-delete installation exit parameter list contains a user
field (ADUUFLD). This field is binary zero on the first call to the
installation exit. It is not changed by the system on any subsequent
calls; therefore, the auto-delete installation exit can use it to
save pertinent information. For example: the reentrant requirement
makes it necessary to obtain (GETMAIN) virtual storage for save areas
and temporary values. If your exit needs a dynamic work area, you
can use GETMAIN once and store the address of the work area in ADUUFLD.
This allows the exit to use the same storage area on subsequent calls
in the cycle. Function code 2 (ADUDONE) is placed in ADUFUNC on the
last call in the cycle. Your exit should check ADUFUNC and at end-of-cycle
free up the dynamic work area space and any other resources it used.
Register 1 contains the address of the input parameter list for
the auto-delete installation exit. The CBRADUP macro maps the parameter
list, which contains the fields in Table 1.
Table 1. Auto-delete
parameter list, CBRADUP Offset
|
Type
|
Length or
bit pattern
|
Name
|
Description
|
---|
00 (X'00')
|
CHARACTER
|
160
|
CBRADUP
|
Class selection parm list |
00 (X'00')
|
CHARACTER
|
16
|
ADUHDR
|
Header section |
00 (X'00')
|
CHARACTER
|
4
|
ADUID
|
Block ID ‘ADU’ |
|
CHARACTER ADU
|
|
ADUIDV
|
Control block ID |
04 (X'04')
|
FIXED
|
4
|
ADULEN
|
Length of parameter list |
08 (X'08')
|
FIXED
|
1
|
ADUVER
|
Version number |
|
DECIMAL 1
|
|
ADUVERV
|
Version number |
09 (X'09')
|
FIXED
|
1
|
ADUREV
|
Revision number |
|
DECIMAL 0
|
|
ADUREVV
|
Revision number |
10 (X'0A')
|
FIXED
|
1
|
ADUSP
|
Subpool number |
|
DECIMAL 0
|
|
ADUSPV
|
Subpool number |
11 (X'0B')
|
FIXED
|
1
|
*
|
Reserved |
12 (X'0C')
|
FIXED
|
4
|
*
|
Reserved |
16 (X'10')
|
CHARACTER
|
8
|
ADULINK
|
Queue linkage section |
16 (X'10')
|
ADDRESS
|
4
|
*
|
Reserved for coexistence Must contain
zero |
20 (X'14')
|
ADDRESS
|
4
|
*
|
Reserved for coexistence. Must contain
zero |
24 (X'18')
|
FIXED
|
1
|
ADUFUNC
|
Function code |
|
DECIMAL 1
|
|
ADUNOTFY
|
Notify delete call |
|
DECIMAL 2
|
|
ADUDONE
|
End of auto delete cycle call |
25 (X'19')
|
BITSTRING
|
3
|
*
|
Reserved |
28 (X'1C')
|
CHARACTER
|
44
|
ADUONAME
|
The object name |
72 (X'48')
|
CHARACTER
|
1
|
ADUBLANK
|
Separator blank |
73 (X'49')
|
CHARACTER
|
44
|
ADUCLNAM
|
Collection name |
117 (X'75')
|
CHARACTER
|
8
|
ADUCDAT
|
Object creation date |
125 (X'7D')
|
CHARACTER
|
1
|
*
|
Reserved |
126 (X'7E')
|
DECIMAL
|
2
|
ADUSCLEN
|
Length of storage class name |
128 (X'80')
|
CHARACTER
|
30
|
ADUSCNAM
|
Name of the storage class to which
object belongs |
158 (X'9E')
|
DECIMAL
|
2
|
ADUMCLEN
|
Length of management class name |
160 (X'A0')
|
CHARACTER
|
30
|
ADUMCNAM
|
Name of the management class to which
object belongs |
190 (X'BE')
|
DECIMAL
|
4
|
ADUSGLEN
|
Length of storage group name |
194 (X'C2')
|
CHARACTER
|
8
|
ADUSGNAM
|
Name of the storage group to which
object belongs |
202 (X'CA')
|
CHARACTER
|
8
|
ADUSGDB2
|
DB2 storage group name |
210 (X'D2')
|
CHARACTER
|
4
|
ADUDSSID
|
Name of the DB2 SSID |
214 (X'D6')
|
CHARACTER
|
32
|
ADUUFLD
|
User field |
246 (X'F6')
|
CHARACTER
|
16
|
*
|
Reserved |