* DECLARITIVE EXIT ROUTINE                              HEADER  C:DEXT  0001.000
*                                                                       0002.000
*              C:DEXT --- DECLARITIVE EXIT ROUTINE                      0003.000
*                                                                       0004.000
         M.PGM     C:DEXT,MPX-32,3.6.1,00                               0005.000
         DEF C:DEXT,CR.JMPER                                            0006.000
         EXT CR.GOSG                                                    0007.000
         M.REQS                                                         0008.000
         COBOLDAT                                                       0009.000
IORET RES          1W                                                   0010.000
*                                                                       0011.000
* SAVE RETURN ADDRESS                                                   0012.000
*                                                                       0013.000
CR.JMPER EQU       $                                                    0014.000
         STW       0,IORET                                              0015.000
         BU        CR.GOSG                                              0016.000
*                                                                       0017.000
* RETURN FROM I/O ERROR ROUTINE                                         0018.000
*                                                                       0019.000
C:DEXT   EQU       $                                                    0020.000
         BU        *IORET                                               0021.000
         END                                                            0022.000
