*DECK DB$BUNS 
USETEXT BRGENTX 
      PROC DB$BUNS((EXTINDX));
      BEGIN 
 #
* *   DB$BUNS - USE NEW SCHEMA                   PAGE  1
* *   P. A. MURRAY                               DATE  01/22/81 
* 
* DC  PURPOSE 
* 
*     TO LOCATE THE MASTER DIRECTORY TABLES FOR THE NEXT SCHEMA TO BE 
*     USED IN THE (2,0) OVERLAY.
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
# 
      ITEM EXTINDX U;        # INDEX INTO CURRENT EXTABLE ENTRY        #
# 
* D   ASSUMPTIONS 
* 
*     A SCHEMA ENTRY IN THE EXECUTION TABLE HAS BEEN DETECTED.
* 
* DC  EXIT CONDITIONS 
* 
*     SDTINDX IS THE INDEX TO THE SDT ENTRY OF THE NEW SCHEMA.
*     THE SIT FOR THE NEW SCHEMA IS READ INTO CORE. 
* 
* DC  CALLING ROUTINES
* 
*     DB$B20B - MAIN ROUTINE OF (2,0) OVERLAY OF DBREC
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$BURP;     # USER REPORT GENERATOR                   #
      XREF PROC DB$MDER;     # MD ERROR PROCESSOR                      #
      XREF PROC DB$WGET;     # READ WA FILE                            #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     THE FOLLOWING COMMON ITEMS: 
* 
*     SDTINDX                INDEX INTO THE SCHEMA DIRECTORY TABLE. 
*     SITSZ                  SIZE OF THE CURRENT SCHEMA INFO TABLE. 
*     SITWA                  WORD ADDRESS OF THE CURRENT SCHEMA INFO
*                            TABLE. 
* 
* DC  DESCRIPTION 
* 
*     LOCATE THE SCHEMA DIRECTORY TABLE (SDT) ENTRY FOR THE NEW SCHEMA. 
* 
*     READ IN THE NEW SCHEMA INFO TABLE.
* 
*     PRINT A BEGIN PROCESSING DIRECTIVES FOR SCHEMA MESSAGE ON THE 
*     DBREC OUTPUT FILE.
* 
*     RETURN TO THE CALLING ROUTINE.
* 
 #
  
# LOCAL VARAIBLES AND ARRAYS.                                          #
  
*CALL FITMDDCLS 
      CONTROL EJECT;
  
  
# S T A R T   O F   D B $ B U N S   E X E C U T A B L E   C O D E      #
  
  
# LOCATE THE SCHEMA DIRECTORY TABLE (SDT) ENTRY FOR THE NEW SCHEMA.    #
  
      SDTINDX = EXSDTX[EXTINDX];
  
# READ IN THE NEW SCHEMA INFO TABLE                                    #
  
      SITSZ = MDSCSISZ[SDTINDX];
      SITWA = MDSCWASC[SDTINDX];
      DB$WGET(DB$FTMD,MDSCINFO,SITSZ,SITWA,DB$MDER);
  
# PRINT A BEGIN PROCESSING DIRECTIVES FOR SCHEMA MESSAGE ON THE DBREC  #
# OUTPUT FILE.                                                         #
  
      DB$BURP(DFURP06); 
  
# RETURN TO THE CALLING ROUTINE.                                       #
  
      RETURN; 
  
      END 
  
      TERM
