Example of the ADRUENQ Exit

This exit sets the return code to four, which results in the volume only being enqueued for the duration of the VTOC access during dump and copy operations.

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 ADRUENQ

******************************************************
* ADRUENQ USER EXIT.                                 *
*   SETS RETURN CODE TO 4 INDICATING THAT THE VOLUME *
*   WILL ONLY BE ENQUEUED FOR THE DURATION OF THE    *
*   VTOC ACCESS FOR DUMP AND COPY OPERATIONS.        *
******************************************************
ADRUENQ  CSECT
ADRUENQ  AMODE 31
ADRUENQ  RMODE 24
          STM   14,12,12(13)           SAVE REGS IN PREVIOUS SAVEAREA
          USING ADRUENQ,15             SET ADDRESSABILITY TO THE EXIT
          LM    14,12,12(13)           RESTORE OTHER REGISTERS
          LA    15,4                   SET RETURN CODE TO 4
          BR    14                     RETURN
          END