Example of the ADRUPSWD Exit

This exit sets the return code to zero, which results in all data set authorization checks 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 ADRUPSWD

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