Example of the ADRREBLK Exit

This exit sets the return code to eight, which results in reblock processing being bypassed.

Note: Use Figure 1 as a learning aid. It is not guaranteed to run on a particular system without some modification.

Figure 1. Sample Listing of ADRREBLK

******************************************************
* ADRREBLK USER EXIT.                                *
*   SETS RETURN CODE TO 8 INDICATING THAT REBLOCKING *
*   SHOULD NOT BE PERFORMED.                         *
******************************************************
ADRREBLK CSECT
ADRREBLK AMODE 31
ADRREBLK RMODE 24
          STM   14,12,12(13)           SAVE REGS IN PREVIOUS SAVEAREA
          LR    12,15                  ESTABLISH BASE REGISTER
          USING ADRREBLK,12            SET ADDRESSABILITY TO THE EXIT
          LM    14,12,12(13)           RESTORE OTHER REGISTERS
          LA    15,8                   SET RETURN CODE TO 8
          BR    14                     RETURN
          END