*COMDECK MDBCMDCLS                                                       COMMOND
                                                                         COMMOND
        COMMON DB$MDBC;                                                  JJJ1022
# THE FOLLOWING COMMON IS USED TO HOLD ITEMS USED TO COMMUNICATE       # COMMOND
# BETWEEN THE OVERLAYS MAKING UP DBMSTRD AND TO HOLD COPIES OF THE MD  # CORTOPL
# CONTROL WORDS                                                        # CORTOPL
                                                                         CORTOPL
          BEGIN                                                          COMMOND
          ITEM AREACNT;      # NUMBER OF ENTRIES IN AREA DIRECTORY     # CORTOPL
          ITEM CSTDCNT;      # NUM OF ENTRIES IN CST/SUBSCHEMA DIR     # CORTOPL
          ITEM DIRATHED;     # SCHEMA SUBDIRECTORIES AT HEAD OF NEW MD # CORTOPL
          ITEM ERRCNT I;     # TOTAL NUMBER OF ERRORS ENCOUNTERED      # COMMOND
          ITEM FINFLAG;      # START TERMINATION PROCESS IN (2,0)      # COMMOND
          ITEM NEWSCH;       # SCHEMA IN CORE IS A WHOLE NEW SCHEMA    # COMMOND
          ITEM NUMRECAR;     # NUMBER OF RECOVERABLE AREAS             #
          ITEM OLMDLFN U;    # LFN OF OLD MASTER DIRECTORY             # COMMOND
          ITEM OVACTID;      # ID RETURNED BY CMM FOR OVERFLOW ACTION    CORTOPL
                               SUBROUTINE PUSHED ON STACK.             # CORTOPL
          ITEM PFUNCNT;      # NUMBER OF ENTRIES IN PFN/UN COMBO TABLE # CORTOPL
          ITEM PROCCNT;      # NUMBER OF ENTRIES IN DB PROC TABLE      # CORTOPL
          ITEM PUTWA;        # CONTAINS THE WORD ADDRESS OF THE        #
                             # FIRST AVAILABLE WORD IN THE NEW MD      #
          ITEM PWCOUNT;      # PASSWORD COUNT                          #
          ITEM RSTSCAN;      # RESTART SYNTAX SCAN                     # COMMOND
          ITEM RUNTYPE I;    # 0 FOR CREATION RUN, NON-ZERO FOR MOD RUN# CORTOPL
          ITEM SCHDIRP;      # POINTER USED TO INDEX THE SCHEMA DIR    #
          ITEM SCDRCNT;      # NUMBER OF ENTRIES IN SCHEMA DIRECTORY   # CORTOPL
          ITEM SCHDRSZ;      # THE SIZE IN WORDS OF ALL THE SCHEMA DIRS#
           ITEM MODFLG;      #FLAG SIGNIFYING THAT THERE IS AN INPUT OM#
                             #OMD ON PARAMETER CARDS                   #
          ITEM SCFATAL;      # INDICATES ERROR IN THE CURRENT SCHEMA   #
          ITEM SCHINCR;      # SCHEMA IN CORE FROM (1,0) SCAN          # COMMOND
          ITEM SCINPRG;      # ID OF THE SCHEMA IN PROGRESS            # CORTOPL
          ITEM VERSCNT;      # NUMBER OF ENTRIES IN VERSION DIRECTORY  #
          ITEM WRNMSGCTR;    # NUMBER OF WARNING MESSAGES ISSUED       #
                                                                         CORTOPL
                                                                         CORTOPL
      ARRAY MDCONWD [0:DFMDNUMCWM1] S(1);  # MD CONTROL WORDS          #
        BEGIN 
*CALL MDDCWDCLS                                                          CORTOPL
        END 
                                                                         CORTOPL
                                                                         CORTOPL
      ARRAY MDSCINFO [0:DFMDSCINSZ] S(1);  # SCHEMA INFORMATION TABLE  #
        BEGIN 
*CALL MDSCIDCLS                                                          CORTOPL
        END 
                                                                         CORTOPL
          BASED ARRAY MDSCCKSUM S(DFCKSMSZ);
            BEGIN 
            ITEM MDHDRNUMREL U(0,36,12);  # HDR WRD - NUM RELTNS #
            ITEM MDHDRNUMAR U(0,48,12);   # HDR WRD - NUM AREAS # 
            ITEM MDELEMNM  C(0,00,30);    # ENTRY - AREA OR REL NAME# 
            ITEM MDCKSUM   U(3,00,60);    # ENTRY - AREA OR REL CKSM# 
            END 
                                                                         CORTOPL
          END                                                            COMMOND
                                                                         COMMOND
