TITLE 'IEFDB401 - DYNAMIC ALLOCATION INSTALLATION EXIT        *00001000
                       '                                                00002000
IEFDB401 CSECT ,                                                   0001 00003000
@MAINENT DS    0H                                                  0001 00004000
         USING *,@15                                               0001 00005000
         B     @PROLOG                                             0001 00006000
         DC    AL1(16)                                             0001 00007000
         DC    C'IEFDB401  73.229'                                 0001 00008000
         DROP  @15                                                      00009000
@PROLOG  DS    0H                                                  0002 00010000
         SR  15,15                                                      00011000
* END IEFDB401;                                                    0003 00012000
@EL00001 DS    0H                                                  0003 00013000
@EF00001 DS    0H                                                  0003 00014000
@ER00001 BR    @14                                                 0003 00015000
@DATA    DS    0H                                                       00016000
         DS    0F                                                       00017000
         DS    0F                                                       00018000
         DS    0D                                                       00019000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00020000
@01      EQU   01                                                       00021000
@02      EQU   02                                                       00022000
@03      EQU   03                                                       00023000
@04      EQU   04                                                       00024000
@05      EQU   05                                                       00025000
@06      EQU   06                                                       00026000
@07      EQU   07                                                       00027000
@08      EQU   08                                                       00028000
@09      EQU   09                                                       00029000
@10      EQU   10                                                       00030000
@11      EQU   11                                                       00031000
@12      EQU   12                                                       00032000
@13      EQU   13                                                       00033000
@14      EQU   14                                                       00034000
@15      EQU   15                                                       00035000
@ENDDATA EQU   *                                                        00036000
         END   IEFDB401                                                 00037000