*DECK DB$SR48 
USETEXT MD10CTX 
USETEXT MDBCMTX 
USETEXT UTMPTTX 
      PROC DB$SR48; 
      BEGIN 
 #
* *   DB$SR48 - STORE "MASTER" INTO THE VDT      PAGE  1
* *   J. G. SERPA                                DATE  10/02/80 
* 
* DC  PURPOSE 
* 
*     STORE THE NAME "MASTER" AS THE FIRST ENTRY INTO THE VERSION 
*     DIRECTORY TABLE.
* 
* DC  ENTRY CONDITIONS
* 
*     THE SCHEMA ENTRY HAS BEEN ANALYZED, AND THE FIRST AREA FOR MASTER 
*     VERSION HAS BEEN FOUND. 
* 
* DC  EXIT CONDITIONS 
* 
*     THE NAME "MASTER" HAS BEEN ENTERED AS THE FIRST ENTRY IN THE
*     VERSION DIRECTORY TABLE, AND VERSCNT HAS BEEN SET TO ONE. 
* 
* DC  CALLING ROUTINES
* 
*     SCHNTRY - ANALYZE SCHEMA ENTRY (WITHIN DB$SNTX -SYNGEN-)
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$UAWS;           # ADJUST SIZE OF CMM BLOCK          #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     VERSCNT IS SET TO 1.
* 
* DC  DESCRIPTION 
* 
*     DB$UAWS IS CALLED TO ADD ONE ENTRY TO THE VERSION DIRECTORY TABLE.
*     THEN "MASTER" IS ENTERED AS THE FIRST ENTRY IN THE VDT, AND 
*     VERSCNT IS SET TO 1. EXIT IS TO DB$NO.
* 
 #
  
      BASED ARRAY VERSDIR [0:0] S(DFMDVDEN);  # VERSION DIRECTORY TABLE#
        BEGIN 
*CALL MDVDTDCLS              VERSION DIRECTORY TABLE
        END 
      CONTROL EJECT;
  
      DB$UAWS(LOC(VERDIRBP),DFMDVDEN); # ADJUST WORK SPACE             #
      P<VERSDIR> = VERDIRBP + 1;       # POSITION BASED ARRAY          #
       MDVDTNAME[0] = "MASTER";        # ENTER MASTER INTO THE VDT     #
      VERSCNT = 1;                     # SET VERSION COUNT             #
      DB$NO;                           # RETURN TO STD                 #
  
      END 
      TERM
