SVTM     TITLE 'ISTAUCAT - CSC AUTHORIZATION EXIT DUMMY ROUTINE        *00001000
                        '                                               00002000
ISTAUCAT CSECT ,                                                   0001 00003000
@MAINENT DS    0H                                                  0001 00004000
         USING *,@15                                               0001 00005000
         B     @PROLOG                                             0001 00006000
         DC    AL1(16)                                             0001 00007000
         DC    C'ISTAUCAT  75.125'                                 0001 00008000
         DROP  @15                                                      00009000
@PROLOG  ST    @14,12(,@13)                                        0001 00010000
         STM   @00,@12,20(@13)                                     0001 00011000
         BALR  @12,0                                               0001 00012000
@PSTART  DS    0H                                                  0001 00013000
         USING @PSTART,@12                                         0001 00014000
*   RETURN CODE(CATRTVAL);          /* SET RTRN CODE AND           0003 00015000
*                                      RETURN TO CALLER              */ 00016000
*                                                                  0003 00017000
         SLR   @15,@15                                             0003 00018000
@EL00001 DS    0H                                                  0003 00019000
@EF00001 DS    0H                                                  0003 00020000
@ER00001 L     @14,12(,@13)                                        0003 00021000
         LM    @00,@12,20(@13)                                     0003 00022000
         BR    @14                                                 0003 00023000
*   END ISTAUCAT;                                                  0004 00024000
@DATA    DS    0H                                                       00025000
@DATD    DSECT                                                          00026000
         DS    0F                                                       00027000
ISTAUCAT CSECT                                                          00028000
         DS    0F                                                       00029000
@DATD    DSECT                                                          00030000
         DS    0D                                                       00031000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                00032000
@ENDDATD EQU   *                                                        00033000
ISTAUCAT CSECT                                                          00034000
         DS    0F                                                       00035000
@SIZDATD DC    AL1(0)                                                   00036000
         DC    AL3(@ENDDATD-@DATD)                                      00037000
         DS    0D                                                       00038000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00039000
@01      EQU   01                                                       00040000
@02      EQU   02                                                       00041000
@03      EQU   03                                                       00042000
@04      EQU   04                                                       00043000
@05      EQU   05                                                       00044000
@06      EQU   06                                                       00045000
@07      EQU   07                                                       00046000
@08      EQU   08                                                       00047000
@09      EQU   09                                                       00048000
@10      EQU   10                                                       00049000
@11      EQU   11                                                       00050000
@12      EQU   12                                                       00051000
@13      EQU   13                                                       00052000
@14      EQU   14                                                       00053000
@15      EQU   15                                                       00054000
CATBASER EQU   @12                                                      00055000
CATRTREG EQU   @15                                                      00056000
@ENDDATA EQU   *                                                        00057000
         END   ISTAUCAT,(C'PLS1131',0603,75125)                         00058000