*DECK DB$BSTF 
USETEXT BRGENTX 
USETEXT SCANTXT 
      PROC DB$BSTF; 
      BEGIN 
 #
* *   DB$BSTF - TEST FLAGS AND FIELDS            PAGE  1
* *   P. A. MURRAY                               DATE  11/01/80 
* 
* DC  PURPOSE 
* 
*     TO CONTAIN THE SEMANTIC ROUTINES WHICH TEST FLAGS AND FIELDS. 
*     THIS PROC IS ONLY FOR USE AS A PACKAGING MODULE.  ITS ENTRY POINT 
*     WILL NOT BE REFERENCED. 
* 
* DC  CONTAINED ROUTINES
# 
      XDEF PROC DB$BS30;     # TEST IF CURRENT WORD IS -SCHEMA-        #
      XDEF PROC DB$BS31;     # TEST FOR ALLOCATE OPTIONS               #
# 
 #
      CONTROL EJECT;
      PROC DB$BS30; 
      BEGIN 
 #
* *   DB$BSTF                                    PAGE  1
* *   DB$BS30 - TEST IF CURRENT WORD IS -SCHEMA-
* *   P. A. MURRAY                               DATE  11/01/80 
* 
* DC  PURPOSE 
* 
*     TO TEST IF THE CURRENT WORD IS -SCHEMA-.
* 
* DC  ENTRY CONDITIONS
* 
* D   ASSUMPTIONS 
* 
*     ONE OF THE FOLLOWING KEYWORDS HAS BEEN DETECTED: SCHEMA, DUMP,
*     OR ALLOCATE.
* 
* DC  EXIT CONDITIONS 
* 
*     RETURN IS TO DB$YES IF THE CURRENT WORD IS -SCHEMA-.  OTHERWISE,
*     RETURN IS TO DB$NO. 
* 
* DC  CALLING ROUTINES
* 
*     DB$BSTX - BASIC RECOVERY SYNTAX CRACKER.
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$NO;       # SYNTAX TABLE DRIVER -NO- RETURN         #
      XREF PROC DB$YES;      # SYNTAX TABLE DRIVER -YES- RETURN        #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     IF DB$CP1 EQUALS 1, THE CURRENT WORD IS -SCHEMA-.  RETURN TO
*     DB$YES.  OTHERWISE, RETURN TO DB$NO.
* 
 #
  
  
# S T A R T   O F   D B $ B S 3 0   E X E C U T A B L E   C O D E      #
  
  
      IF DB$CP1 EQ 1
      THEN
        BEGIN 
        DB$YES; 
        END 
      ELSE
        BEGIN 
        DB$NO;
        END 
  
      END 
      CONTROL EJECT;
      PROC DB$BS31; 
      BEGIN 
 #
* *   DB$BSTF                                    PAGE  1
* *   DB$BS31 - TEST FOR ALLOCATE OPTIONS 
* *   P. A. MURRAY                               DATE  11/01/80 
* 
* DC  PURPOSE 
* 
*     TO TEST WHETHER AT LEAST ONE ALLOCATE OPTION WAS SPECIFIED IN THE 
*     ALLOCATE ENTRY. 
* 
* DC  ENTRY CONDITIONS
* 
* D   ASSUMPTIONS 
* 
*     THE ALLOCATE CLAUSE HAS BEEN COMPLETELY CRACKED.
*     ENTRYCOUNT EQUALS THE NUMBER OF ENTRIES IN THE EXTABLE BLOCK. 
* 
* DC  EXIT CONDITIONS 
* 
*     RETURN IS TO DB$NO IF NO ALLOCATE OPTIONS WERE SPECIFIED. 
*     OTHERWISE, RETURN TO DB$YES.
* 
* DC  CALLING ROUTINES
* 
*     DB$BSTX - BASIC RECOVERY SYNTAX CRACKER 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$NO;       # SYNTAX TABLE DRIVER -NO- RETURN         #
      XREF PROC DB$YES;      # SYNTAX TABLE DRIVER -YES- RETURN        #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     IF EXFLAGS EQUALS 0, RETURN TO DB$NO.  OTHERWISE, RETURN TO 
*     DB$YES. 
* 
 #
  
  
# S T A R T   O F   D B $ B S 3 1   E X E C U T A B L E   C O D E      #
  
  
      IF EXFLAGS[ENTRYCOUNT] EQ 0 
      THEN
        BEGIN 
        DB$NO;
        END 
      ELSE
        BEGIN 
        DB$YES; 
        END 
  
      END 
  
      END    #DB$BSTF#
      TERM
