*DECK DB$SRAB                                                            SRAB 
      PROC DB$SRAB;                                                      SRAB 
 #                                                                       SRAB 
  *   DB$SRAB - ABORT RUN SEMANTIC ROUTINES      PAGE  1                 SRAB 
  *   DB$SR01, DB$SR02, DB$SR03                                          SRAB 
  *   J. JAN JANIK                               DATE  11/17/75          SRAB 
  DC  PURPOSE                                                            SRAB 
                                                                         SRAB 
      TO ABORT THE RUN DUE TO UNRECOVERABLE ERRORS DETECTED DURING       SRAB 
      SYNTAX SCAN.                                                       SRAB 
                                                                         SRAB 
  DC  ENTRY CONDITIONS                                                   SRAB 
                                                                         SRAB 
      NONE                                                               SRAB 
                                                                         SRAB 
  DC  EXIT CONDITIONS                                                    SRAB 
                                                                         SRAB 
      DB$MABT IS CALLED WITH CODE TO INDICATE THE ABORT TYPE.            SRAB 
      DB$SR01 - EMPTY INPUT FILE.                                        SRAB 
      DB$SR02 - ERROR IN SYNGEN TABLES.                                  SRAB 
      DB$SR03 - ILLEGAL FIRST WORD ON INPUT FILE                         SRAB 
                                                                         SRAB 
  DC  CALLING ROUTINES                                                   SRAB 
                                                                         SRAB 
      DB$STD                                                             SRAB 
                                                                         SRAB 
  DC  CALLED ROUTINES                                                    SRAB 
                                                                         SRAB 
      DB$MABT                                                            SRAB 
 #                                                                       SRAB 
      CONTROL EJECT;                                                     SRAB 
      BEGIN                                                              SRAB 
*CALL MDABTDCLS                                                          SRAB 
                                                                         SRAB 
      XDEF                                                               SRAB 
        BEGIN                                                            SRAB 
        PROC DB$SR01;                                                    SRAB 
        PROC DB$SR02;                                                    SRAB 
        PROC DB$SR03;                                                    SRAB 
        END                                                              SRAB 
                                                                         SRAB 
      XREF                                                               SRAB 
        BEGIN                                                            SRAB 
        PROC DB$MABT;                                                    SRAB 
        CONTROL NOLIST;      # SUPPRESS LISTING OF SCANNER SETUP XREFS #
*CALL SCANXDCLS 
        CONTROL LIST; 
        END                                                              SRAB 
                                                                         SRAB 
                                                                         SRAB 
                                                                         SRAB 
      PROC DB$SR01;          # EMPTY INPUT FILE                        # SRAB 
        BEGIN                                                            SRAB 
        DB$MABT (DFMTINFL,0);                                            SRAB 
        END                                                              SRAB 
                                                                         SRAB 
                                                                         SRAB 
                                                                         SRAB 
      PROC DB$SR02;          # ERROR IN SYNGEN TABLES                  # SRAB 
        BEGIN                                                            SRAB 
        DB$MABT (DFRNGABT,"SYNGEN TBL");                                 SRAB 
        END                                                              SRAB 
                                                                         SRAB 
                                                                         SRAB 
                                                                         SRAB 
      PROC DB$SR03;          # FIRST WORD NOT SCHEMA, ADD,MODIFY,DELETE# SRAB 
        BEGIN                                                            SRAB 
        DB$MABT(DFBD1STW,NEXWRD[0]);
        END                                                              SRAB 
      END                                                                SRAB 
      TERM                                                               SRAB 
