*DECK DB$BSES 
      PROC DB$BSES; 
      BEGIN 
 #
* *   DB$BSES - END SCAN ROUTINES                PAGE  1
* *   P. A. MURRAY                               DATE  09/18/80 
* 
* DC  PURPOSE 
* 
*     TO CONTAIN THE ROUTINES WHICH END SYNTAX SCANNING DUE TO
*     UNRECOVERABLE ERRORS DETECTED DURING SYNTAX SCAN. 
* 
* DC  CONTAINED ROUTINES
# 
      XDEF PROC DB$BS01;     # END SCAN - EMPTY INPUT FILE             #
      XDEF PROC DB$BS02;     # END SCAN - ILLEGAL FIRST WORD ON INPUT  #
# 
 #
      CONTROL EJECT;
      PROC DB$BS01; 
      BEGIN 
 #
* *   DB$BSES                                    PAGE  1
* *   DB$BS01 - END SCAN -- EMPTY INPUT FILE
* *   P. A. MURRAY                               DATE  09/18/80 
* 
* DC  PURPOSE 
* 
*     TO END SYNTAX SCANNING DUE TO EMPTY INPUT FILE. 
* 
* DC  ENTRY CONDITIONS
* 
* D   ASSUMPTIONS 
* 
*     AN EOT IS DETECTED IMMEDIATELY WHEN TRYING TO READ THE INPUT FILE.
* 
* DC  EXIT CONDITIONS 
* 
*     ISSUE DIAGNOSTIC 319. 
*     RETURN IS TO THE CALLER OF DB$STD.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - BASIX RECOVERY SYNTAX CRACKER 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$DIAG;     # ISSUE DIAGNOSTIC MESSAGE                #
      XREF PROC DB$STDR;     # RETURN TO CALLER OF DB$STD              #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     CALL DB$DIAG TO ISSUE DIAGNOSTIC 319.  CALL DB$STDR TO RETURN TO
*     THE CALLER OF DB$STD. 
* 
 #
  
      DB$DIAG(319); 
      DB$STDR;               # CONTROL WILL NOT COME BACK FROM DB$STDR #
  
      END 
      CONTROL EJECT;
      PROC DB$BS02; 
      BEGIN 
 #
* *   DB$BSES                                    PAGE  1
* *   DB$BS02 - END SCAN -- ILLEGAL FIRST WORD ON INPUT 
* *   P. A. MURRAY                               DATE  09/18/80 
* 
* DC  PURPOSE 
* 
*     TO END SYNTAX SCANNING DUE TO ILLEGAL FIRST WORD ON INPUT.
* 
* DC  ENTRY CONDITIONS
* 
* D   ASSUMPTIONS 
* 
*     THE FIRST WORD ON THE INPUT FILE IS NOT -SCHEMA-. 
* 
* DC  EXIT CONDITIONS 
* 
*     ISSUE DIAGNOSTIC 320. 
*     RETURN IS TO THE CALLER OF DB$STD.
* 
* DC  CALLING ROUTINES
* 
*     DB$BSTX - BASIC RECOVERY SYNTAX CRACKER 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$DIAG;     # ISSUE DIAGNOSTIC MESSAGE                #
      XREF PROC DB$STDR;     # RETURN TO CALLER OF DB$STD              #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     CALL DB$DIAG TO ISSUE DIAGNOSTIC 320.  CALL DB$STDR TO RETURN TO
*     THE CALLER OF DB$STD. 
* 
 #
  
      DB$DIAG(320); 
      DB$STDR;               # CONTROL WILL NOT COME BACK FROM DB$STDR #
  
      END 
  
      END  #DB$BSES#
      TERM
