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.
Offset |
Type |
Length or |
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 |