*COMDECK MD10CDCLS                                                       MD10COM
  
      STATUS FILETYPE 
          AREA      ,        # 0 - AREA DATA FILE                      #
          BRF       ,        # 1 - BASIC RECOVERY FILE                 #
          INDEX     ,        # 2 - AREA INDEX FILE                     #
          JLF       ,        # 3 - JOURNAL LOG FILE                    #
          PROC      ,        # 4 - DATABASE PROCEDURE LIBRARY          #
          QRF       ,        # 5 - QUICK RECOVERY FILE                 #
          RIF       ,        # 6 - RESTART IDENTIFIER FILE             #
          TRF       ,        # 7 - TRANSACTION RECOVERY FILE           #
          LASTFILE  ;        # DUMMY FOR ERROR CHECKING ONLY           #
  
  
                                                                         MD10COM
# THE FOLLOWING COMMON IS USED TO STORE VARIABLES NEEDED BY THE        # MD10COM
# SEMANTIC ROUTINES WHICH MAKE UP OVERLAY 1,0 OF DBMSTRD             #   MD10COM
                                                                         MD10COM
      COMMON DB$M10C;                                                    MD10COM
                                                                         MD10COM
                                                                         MD10COM
        BEGIN                                                            MD10COM
                                                                         MD10COM
        ITEM JOBFAM C(7);    # FAMILY NAME SPECIFIED IN JOB CONTROL    #
        ITEM JOBPW  C(7);    # PASSWORD SPECIFIED IN JOB CONTROL       #
        ITEM JOBUN  C(7);    # USER NAME SPECIFIED IN JOB CONTROL      #
        ITEM AREANAM C(30);  # AREA NAME                               # MD10COM
        ITEM AREACHGF B;     # AREA CHANGED FLAG                       #
        ITEM AREAORD;        # ORDINAL OF CURRENT AREA IN THE AREA     #
                             # DIRECTORY TABLE                         #
        ITEM ARNMLEN I;      # AREA NAME LENGTH IN CHAR.               # MD10COM
        ITEM ARNMLNW I;      # AREA NAME LENGTH IN WORDS.              #
        ITEM CCLPROCNAME C(7); # CCLPROC FILE NAME IN CHAR.            #
        ITEM CHARGE C(70);   # CHARGE SPECIFIED IN JOB CONTROL         #
        ITEM CHARGELEN I;    # LENGTH IN CHARACTERS OF CHARGE          #
          ITEM DBPRFLG B;    # A DB PROC LIB WAS FOUND IN THE OLD MD   #
        ITEM DENSITY U;      # TAPE DENSITY                            #
        ITEM EOTFLAG B;      # END-OF-RECORD/TRANSMISSION FLAG         #
          ITEM FILENAM;      # LFN FOR FILE CLAUSE                     #
          ITEM MODERR;       # ERROR IN MODIFY SET IF NON-ZERO         #
        ITEM NBRAFTIMG I;    # NUMBER OF AFTER IMAGE RECORDS           #
        ITEM PCUTNDX;        # INDEX INTO THE PRE-CONSTRAINT USE TABLE #
          ITEM SBNMLEN;      # SUB-SCHEMA NAME LENGTH IN CHARACTERS    #
          ITEM SCFILE B;     # A SCHEMA FILE WAS SPECIFIED IN A MOD RUN#
  
  
        ITEM SCHNAME C(30);  # SCHEMA NAME                             # MD10COM
        ITEM SCNMLEN I;      # SCHEMA NAME LENGTH IN CHAR              # MD10COM
        ITEM SUBNAME C(30);  # SUBSCHEMA NAME                          # MD10COM
        ITEM TRACKTYPE B;    # TAPE TRACK TYPE                         #
        ITEM VERSNAM C(7);   # VERSION NAME                            #
        ITEM VERSORD;        # CURRENT VERSION ORDINAL IN THE VDT      #
        ITEM UNITLIM;        # TRANSACTION UNIT LIMIT                  #
        ITEM UPDLIM;         # UPDATE LIMIT                            #
                                                                         MD10COM
                                                                         MD10COM
        ARRAY [0] S(1);                                                  MD10COM
          BEGIN                                                          MD10COM
          ITEM AREAFLAGS  U(0,00,06);  # AREA LEVEL FLAGS              #
            ITEM ARINDEX  B(0,00,01);  # T - INDEX FILE PRESENT        #
            ITEM ARLOGBIR B(0,01,01);  # T - LOG BEFORE IMAGE RECORD   #
            ITEM ARLOGAIR B(0,02,01);  # T - LOG AFTER IMAGE RECORD    #
            ITEM ARLOGBIB B(0,03,01);  # T - LOG BEFORE IMAGE BLOCK    #
            ITEM ARINTREC B(0,04,01);  # T - INITIATE AREA AUTO-RECVRY #
                                       # BIT 5 IS UNUSED               #
          ITEM CHANGFLAGS U(0,06,06);  # CHANGED AREA LEVEL FLAGS      #
            ITEM ARLOGBIRN B(0,06,01); # T - LOG BEFORE REC UNCHANGED  #
            ITEM ARLOGAIRN B(0,07,01); # T - LOG AFTER REC UNCHANGED   #
            ITEM ARLOGBIBN B(0,08,01); # T - LOG BEFORE BLOCK UNCHANGED#
            ITEM ARINTRECN B(0,09,01); # T - RECOVER OPTION UNCHANGED  #
                                       # BITS 10-11 ARE UNUSED         #
          END                                                            MD10COM
                                                                         MD10COM
      ARRAY [0] S(1); 
        BEGIN 
        ITEM TAPEFLAGS  U(00,00,12);  # TAPE FLAGS                     #
          ITEM MTFLAG   B(00,00,01);  # TRUE = TAPE TYPE IS 7 TRACK    #
          ITEM NTFLAG   B(00,01,01);  # TRUE = TAPE TYPE IS 9 TRACK    #
          ITEM HDFLAG   B(00,02,01);  # TRUE = TAPE IS NT 800 BPI      #
          ITEM PEFLAG   B(00,03,01);  # TRUE = TAPE IS NT 1600 BPI     #
          ITEM GEFLAG   B(00,04,01);  # TRUE = TAPE IS NT 6250 BPI     #
          ITEM LOFLAG   B(00,05,01);  # TRUE = TAPE IS MT 200 BPI      #
          ITEM HIFLAG   B(00,06,01);  # TRUE = TAPE IS MT 556 BPI      #
          ITEM HYFLAG   B(00,07,01);  # TRUE = TAPE IS MT 800 BPI      #
          ITEM TYPEFLAG B(00,08,01);  # TRUE = TAPE TYPE CLAUSE SEEN   #
          ITEM DENSFLAG B(00,09,01);  # TRUE = DENSITY CLAUSE SEEN     #
          ITEM TAPEFLAG B(00,10,01);  # TRUE = TAPE CLAUSE SEEN        #
                                      # BITS 11 IS UNUSED              #
        ITEM CCLFLAGS   U(00,12,06);  # CCLPROC FLAGS                  #
          ITEM PROCFLAG B(00,12,01);  # TRUE = CCLPROC CLAUSE SEEN     #
          ITEM ACCESFLG B(00,13,01);  # TRUE = ACCESS CLAUSE SEEN      #
          ITEM DIRFLAG  B(00,14,01);  # TRUE = ACCESS IS DIRECT        #
          ITEM INDFLAG  B(00,15,01);  # TRUE = ACCESS IS INDIRECT      #
                                      # BITS 16-17 ARE UNUSED          #
        END 
                                                                         MD10COM
        ARRAY DITARRAY [0] S(DFDITLEN);  # CONTAINS THE DIR INFO TBLE  #
          BEGIN                                                          MD10COM
*CALL DITCOMSC
          ITEM DAINDX  U(13,0,60);                                       MD10COM
          ITEM DAPVPTR U(14,0,60);                                       MD10COM
          END                                                            MD10COM
                                                                         MD10COM
                                                                         MD10COM
        ARRAY SCBUFF [0] S(DFSCBUFSZ);; #BUFFER FOR SCHEMA ACCESS ROUT#  MD10COM
  
      ITEM CURFILTYP S:FILETYPE;
  
  
      ARRAY MDPFINFO [0:FILETYPE"LASTFILE"] S(DFPFENTLEN);
        BEGIN 
*CALL MDPFDCLS
        END 
  
      BASED ARRAY PFINFO [0:0] S(1);
        BEGIN 
*CALL MDPITDCLS               PERMANENT FILE INFORMATION TABLE
        END 
  
      BASED ARRAY PITPF [0:0] S;       # PIT PF ENTRY                  #
        BEGIN 
*CALL MDPFIDCLS              PIT PF ENTRY 
        END 
        END                                                              JJJ1230
                                                                         MD10COM
