*DECK COBDBT
USETEXT CCTTEXT 
          PRGM COBDBT;
  
 #        COBDBT - SETS UP DATABASE TRANSLATOR INFO                  #
  
          BEGIN 
*CALL LDSET 
*CALL TABLETYP
          XREF
              BEGIN 
              PROC DBTRANS; 
              PROC TMFIXSZ;   #FIXES SIZE OF TABLE# 
              PROC TMRTNTB;   #RETURNS TABLE# 
              PROC TMSTATS;   #PRINTS TABLE MANAGER STATS#
              PROC DISPLAY;   #DISPLAYS MESSAGE#
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              FUNC VIRTUAL; 
              END 
  
          ITEM SECTIONMSG C(10) = "*COBDBT...*";
          ITEM TABINDEX   U;
  
  
 #     START OF EXECUTION                                              #
  
          $BEGIN
              DISPLAY (2, SECTIONMSG, 0, 10);   #PRINT SECTION MESSAGE# 
          $END
          CCTLDSETLEN = CCTLDSETLEN + 1;  #NEW LDSET ENTRY# 
          TABINDEX = VIRTUAL (TABLETYPE"LDSET$", CCTLDSETLEN);
          LDSETTYPE [TABINDEX] = S"LIBRARY";
          LDSETNAME [TABINDEX] =
            "DMSLIB"; 
          DBTRANS;     #EXECUTE DATABASE TRANSLATOR#
          $BEGIN
              TMSTATS;   #PRINT MEM MGR TABLE STATS#
          $END
          OVERRTN;
          END 
          TERM
