The assembler calls the exit with a request type of 5 (PROCESS) when the assembler is writing the associated data records, and it has a record for the exit to process. The address of the record read is in the buffer pointer field, and the length is in the buffer length field. The record length for variable-length records does not include the 4-byte length of the record descriptor word (RDW), and the buffer pointer field points at the associated data header, not the RDW.
The exit can set the return code in the Exit Parameter List to one of the following:
Although the user exit can insert or discard records, the assembler maintains the absolute record number and relative record number.
Table 20 summarizes the ADATA exit processing.
| Request
Value=Type |
Exit
Return Code |
Action |
|---|---|---|
| 1=OPEN | 0 | Assembler opens associated data data set.
If reason code=8, exit intends to discard both X'0002' and X'0090' record types. If reason code=16, REINIT call required. |
| 4 | Exit writes associated data records.
If reason code=4, exit supplies data set information. If reason code=8, exit intends to discard both X'0002' and X'0090' record types. If reason code=16, REINIT call required. |
|
| 16 | Assembler opens associated data data set,
and makes no further calls to the exit. |
|
| 2=CLOSE | n/a | Exit should close any data sets it opened, and release any storage it acquired. |
| 4=WRITE | 0 | Exit writes record.
If reason code=8, redrive requested. 1 |
| 5=PROCESS | 0 | Record accepted. Exit can modify record.
If reason code=4, the assembler, after processing the current record, provides an empty buffer for the exit to provide additional record. If reason code=8, redrive requested. 1 |
| 4 | Requests assembler to discard record.
If reason code=8, redrive requested. 1 |
|
| 16 | Assembler makes no further calls to the exit. | |
| 10=REINIT | 0 | Operation successful.
If reason code=8, redrive requested. 1 |
| 16 | Assembler makes no further calls to the exit. | |
|
Notes:
|
||
[ Top of Page | Previous Page | Next Page | Contents | Index ]