*DECK DB$BS99 
USETEXT BRGENTX 
      PROC DB$BS99; 
      BEGIN 
 #
* *   DB$BS99 - END SYNTAX SCAN                  PAGE  1
* *   P. A. MURRAY                               DATE  11/03/80 
* 
* DC  PURPOSE 
* 
*     TO END SYNTAX SCANNING AND RETURN TO THE (1,0) OVERLAY. 
* 
* DC  ENTRY CONDITIONS
* 
* D   ASSUMPTIONS 
* 
*     THE END OF THE INPUT FILE HAS BEEN REACHED. 
*     ENTRYCOUNT EQUALS THE NUMBER OF ENTRIES IN TH EXTABLE BLOCK.
* 
* DC  EXIT CONDITIONS 
* 
*     RETURN IS TO THE INITIATOR OF DB$STD. 
* 
* DC  CALLING ROUTINES
* 
*     DB$BSTX - BASIC RECOVERY SYNTAX DRIVER
* 
* 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
* 
*     EXNUMENT               NUMBER OF ENTRIES IN EXTABLE BLOCK 
* 
* DC  DESCRIPTION 
* 
*     STORE THE NUMBER OF ENTRIES IN THE EXTABLE BLOCK IN EXNUMENT.  IF 
*     NO DIRECTIVES WERE PROCESSED FOR THE LAST SCHEMA, ISSUE DIAGNOSTIC
*     321.  CALL DB$STDR TO RETURN TO THE CALLER OF DB$STD. 
* 
 #
  
# S T A R T   O F   D B $ B S 9 9   E X E C U T A B L E   C O D E      #
  
  
  
      EXNUMENT[0] = ENTRYCOUNT; 
  
      IF DIRCNT EQ 0
      THEN
        BEGIN 
        DB$DIAG(321,SCHNAME); 
        END 
  
      DB$STDR;
  
      END 
  
      TERM
