The assembler calls the exit with a request type of 5 (PROCESS) when the assembler is writing the object records, and it has a record for the exit to process. The address of the record is in the buffer pointer field, and the length is in the buffer length field.
The record length is always 80 bytes when you specify the NOXOBJECT assembler option. If you specify the XOBJECT assembler option, the record length is 80 bytes for fixed-length output or up to 8212 bytes for variable-length output. 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 object data, not the RDW.
The record length is always 80 bytes.
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 19 summarizes the OBJECT and PUNCH exit processing.
| Request
Value=Type |
Exit
Return Code |
Action |
|---|---|---|
| 1=OPEN | 0 | Assembler opens object data set.
If reason code=16, REINIT call required. |
| 4 | Exit writes object records.
If reason code=4, exit supplies data set information. If reason code=16, REINIT call required. |
|
| 16 | Assembler opens object 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 ]