*COMDECK DLSCOM 
  
  
  
 # LENGTH OF CONTROL WORDS AT BEGINNING OF DIRECTORY       #
      DEF CTLWDLENG #13#; 
 # LENGTH OF PROCEDURE TABLE  -  ARRAY PROCTBLE  #
      DEF  PROCTBLENG #600#;
      DEF AREAFIXW # 3 #;    #NUMBER OF FIXED WORDS IN AREA ENTRY.     #
      DEF ITEMFIXW # 7 #;    # NUMBER OF FIXED WORDS IN ITEM ENTRY.    #
      DEF RECDFIXW # 3 #;    # NUMBER OF FIXED WORDS IN RECORD ENTRY.  #
  
  
 # ********************************************************#
 # *************      D L S C O M        ******************#
      COMMON DLSCOM;
        BEGIN 
         ITEM BASE1X;          # END OF 1,0 OVERLAY   # 
          ITEM BBPLOC;
          ITEM CTREFAR;         # COUNT OF NBR OF AREA REFERENCES # 
          ITEM CURWORDADDR;     # ADDRESS FOR HASH ROUTINES       # 
          ITEM DOMPTR;
          ITEM DPTR;            # POINTER TO NEXT WORD IN SCHEMA  # 
        ITEM DTEMP C(20);     # SOURCE FOR DEC TO BIN CONVERSION #
          ITEM DUPDEFINE; 
          ITEM ERRCODE;     # ERROR CODE FOR CONVERTCKLIT # 
          ITEM IPTR;      # POINTER TO ITEM ENTRY # 
          ITEM ITEMP;           # RESULT OF DEC TO BIN CONVERSN   # 
          ITEM MAXITEMS;               # MAX NO OF ITEMS IN ANY RECORD.#
          ITEM MAXKEYLG;        # MAXIMUM KEY LENGTH IN CHARACTERS  # 
          ITEM MAXPROCS;     # MAX NO OF DB PROCS REFERENCED IN        #
                               # ANY ONE RECORD.               #
          ITEM MAXRECSIZE;      # MAXIMUM RECORD SIZE IN CHARACTERS # 
          ITEM MAXSUBENTLG;     # CONTAINS THE MAXIMUM SUB-ENTRY LENGTH#
          ITEM NAMELENC;        # LENGTH IN CHARACTERS OF NAME    # 
          ITEM NAMELENW;        # LENGTH IN WORDS OF NAME - HASH  # 
          ITEM NAMEQUAL;        # SET TO 1 IF QUALIFIERS          # 
          ITEM NAMETYPE;        # TYPE OF NAME TO BE HASHED      #
          ITEM NEXTPTR; 
          ITEM NUMNAMES;            # NO OF ENTRIES IN SYMBOL TABLE # 
          ITEM PRIORPTR;
          ITEM QUALNAMELENC;    # LENGTH IN CHARS OF QUALIF NAME  # 
          ITEM QUALNAMELENW;    # LENGTH IN WORDS OF QUALIF NAME  # 
          ITEM RECPTR;
          ITEM REFDEF;
          ITEM REFSTATUS; 
          ITEM SYMENTRY;
          ITEM SYMPTR;
          ITEM TOTALAREAS;   # RUNNING TOTAL OF NBR OF AREAS.          #
          ITEM TOTALRECORDS; # TOTAL OF NBR OF RECORDS.                #
          ITEM TOTALITEMS;   # TOTAL OF NBR OF ITEMS.                  #
          ITEM TOTITMPROC;   # NBR OF ITEM CLAUSES WITH PROCS.         #
          ITEM UNIQPROCNMS;     # ORDINAL OF PROC AFTER DBPBUILD  # 
  
          ARRAY NAMES [3];      # NAME TO BE HASHED               # 
        BEGIN 
          ITEM NAME U(0,0,60);
          ITEM LITCONV R(0,0,60); 
          ITEM LITCNVINT I(0,0,60); 
        END 
          ARRAY QUALNAMES [3];  # QUALIFIER NAME FOR HASH         # 
            ITEM QUALNAME U(0,0,60);
      ARRAY SYMBUFWK [8]; 
        BEGIN 
          ITEM SYMSMODEWK   B(0,0,1); 
          ITEM SYMSCHAINWK  B(0,1,1); 
          ITEM SYMSPARRAYWK B(0,2,1); 
          ITEM SYMSDYNMICWK B(0,3,1); 
          ITEM SYMSORDERWK  B(0,4,1); 
          ITEM SYMSSORTEDWK B(0,5,1); 
          ITEM SYMSDUPLICWK B(0,6,1); 
          ITEM SYMSDBKEYWK  B(0,7,1); 
          ITEM SYMSOWRSYSWK B(0,8,1); 
          ITEM SYMSLOCSYMWK U(0,24,18); 
          ITEM SYMSMEMLSTWK U(0,42,18); 
          ITEM SYMRLOCMDEWK B(0,0,1); 
          ITEM SYMRDIRECTWK B(0,1,1); 
          ITEM SYMRCALCWK   B(0,2,1); 
          ITEM SYMRDUPNOTWK B(0,3,1); 
          ITEM SYMRDBNWK    B(0,4,1); 
          ITEM SYMROWRSETWK U(0,24,18); 
          ITEM SYMRVIASETWK U(0,42,18); 
          ITEM SYMIENCDECWK B(0,0,1); 
          ITEM SYMITYPEWK   B(0,1,1); 
          ITEM SYMIPICWK    B(0,2,1); 
          ITEM SYMIOCCURSWK B(0,3,1); 
          ITEM SYMIRESWK    B(0,4,1); 
          ITEM SYMISOURCEWK B(0,5,1); 
          ITEM SYMIACTVIRWK U(0,6,2); 
          ITEM SYMIACTUALWK B(0,6,1); 
          ITEM SYMIVRTUALWK B(0,7,1); 
          ITEM SYMICHECKWK  B(0,8,1); 
          ITEM SYMKCONFLGWK B(0,9,1); 
          ITEM SYMIONWK     B(0,10,1);
          ITEM SYMIUSINGWK  B(0,11,1);
          ITEM SYMICALCWK   B(0,12,1);
          ITEM SYMIDIRECTWK B(0,13,1);
          ITEM SYMICHKOPTWK B(0,14,1);
          ITEM SYMIVECTORWK B(0,15,1);
          ITEM SYMIAGGREGWK B(0,16,1);
          ITEM SYMICHKDBNWK B(0,17,1);
          ITEM SYMIASCDUPWK B(0,18,1);
          ITEM SYMIDBNWK    B(0,19,1);
          ITEM SYMARORDWK U(0,20,12);     # ORDINAL OF THIS AREA       #
          ITEM SYMILEVELWK U(0,30,9); 
          ITEM SYMIRECPTRWK U(0,39,21); 
          ITEM SYMISRCERLWK U(0,4,2); 
          ITEM SYMMSELWK    B(0,22,1);
          ITEM SYMMUSINGWK  B(0,23,1);
          ITEM SYMMNEXENTWK U(0,24,18); 
          ITEM SYMMRECPTRWK U(0,42,18); 
          ITEM SYMONEXENTWK U(0,24,18); 
          ITEM SYMORECPTRWK U(0,42,18); 
          ITEM SYMBUFWORDWK U(0,0,60);
          ITEM SYMREFWK     U(0,0,1); 
          ITEM SYMDEFWK     U(0,1,1); 
          ITEM SYMDOMPTRWK  U(0,24,18); 
          ITEM SYMNAMEWK    U(0,0,60);
          ITEM SYMNAMLENWK  U(0,0,6); 
          ITEM SYMNAMTYPEWK U(0,2,4); 
          ITEM SYMNEXTWK    U(0,6,18);
          ITEM SYMNEXTREFWK U(0,0,18);
          ITEM SYMNEXTSAMWK U(0,24,18); 
          ITEM SYMNEXTSYNWK U(0,42,18); 
          ITEM SYMRECPTRWK  U(0,42,18); 
          ITEM SYMRFBBPWK   U(0,18,2);
          ITEM SYMRFSRCLWK U(0,20,18);
          ITEM SYMRFWAWK U(0,39,21);
          ITEM SYMSRCLINEWK U(0,6,33);
          ITEM SYMWRDADDRWK U(0,39,21); 
        END 
      ARRAY SYMBUFDF [8]; 
        BEGIN 
      CONTROL NOLIST;   # DEFINITNS FOR DF BUFFER, SAME AS WK # 
          ITEM SYMSMODEDF   B(0,0,1); 
          ITEM SYMSCHAINDF  B(0,1,1); 
          ITEM SYMSPARRAYDF B(0,2,1); 
          ITEM SYMSDYNMICDF B(0,3,1); 
          ITEM SYMSORDERDF  B(0,4,1); 
          ITEM SYMSSORTEDDF B(0,5,1); 
          ITEM SYMSDUPLICDF B(0,6,1); 
          ITEM SYMSDBKEYDF  B(0,7,1); 
          ITEM SYMSOWRSYSDF B(0,8,1); 
          ITEM SYMSLOCSYMDF U(0,24,18); 
          ITEM SYMSMEMLSTDF U(0,42,18); 
          ITEM SYMRLOCMDEDF B(0,0,1); 
          ITEM SYMRDIRECTDF B(0,1,1); 
          ITEM SYMRCALCDF   B(0,2,1); 
          ITEM SYMRDUPNOTDF B(0,3,1); 
          ITEM SYMRDBNDF    B(0,4,1); 
          ITEM SYMROWRSETDF U(0,24,18); 
          ITEM SYMRVIASETDF U(0,42,18); 
          ITEM SYMIENCDECDF B(0,0,1); 
          ITEM SYMITYPEDF   B(0,1,1); 
          ITEM SYMIPICDF    B(0,2,1); 
          ITEM SYMIOCCURSDF B(0,3,1); 
          ITEM SYMIRESDF    B(0,4,1); 
          ITEM SYMISOURCEDF B(0,5,1); 
          ITEM SYMIACTUALDF B(0,6,1); 
          ITEM SYMIACTVIRDF U(0,6,2); 
          ITEM SYMIVRTUALDF B(0,7,1); 
          ITEM SYMICHECKDF  B(0,8,1); 
          ITEM SYMKCONFLGDF B(0,9,1); 
          ITEM SYMIONDF     B(0,10,1);
          ITEM SYMIUSINGDF  B(0,11,1);
          ITEM SYMICALCDF   B(0,12,1);
          ITEM SYMIDIRECTDF B(0,13,1);
          ITEM SYMICHKOPTDF B(0,14,1);
          ITEM SYMIVECTORDF B(0,15,1);
          ITEM SYMIAGGREGDF B(0,16,1);
          ITEM SYMICHKDBNDF B(0,17,1);
          ITEM SYMIASCDUPDF B(0,18,1);
          ITEM SYMIDBNDF    B(0,19,1);
          ITEM SYMARORDDF U(0,20,12);     # ORDINAL OF THIS AREA       #
          ITEM SYMILEVELDF U(0,30,9); 
          ITEM SYMIRECPTRDF U(0,39,21); 
          ITEM SYMISRCERLDF U(0,4,2); 
          ITEM SYMMSELDF    B(0,22,1);
          ITEM SYMMUSINGDF  B(0,23,1);
          ITEM SYMMNEXENTDF U(0,24,18); 
          ITEM SYMMRECPTRDF U(0,42,18); 
          ITEM SYMONEXENTDF U(0,24,18); 
          ITEM SYMORECPTRDF U(0,42,18); 
          ITEM SYMBUFWORDDF U(0,0,60);
          ITEM SYMREFDF     U(0,0,1); 
          ITEM SYMDEFDF     U(0,1,1); 
          ITEM SYMDOMPTRDF  U(0,24,18); 
          ITEM SYMNAMEDF    U(0,0,60);
          ITEM SYMNAMLENDF  U(0,0,6); 
          ITEM SYMNAMTYPEDF U(0,2,4); 
          ITEM SYMNEXTDF    U(0,6,18);
          ITEM SYMNEXTREFDF U(0,0,18);
          ITEM SYMNEXTSAMDF U(0,24,18); 
          ITEM SYMNEXTSYNDF U(0,42,18); 
          ITEM SYMRFBBPDF   U(0,18,2);
          ITEM SYMRFSRCLDF U(0,20,18);
          ITEM SYMRFWADF U(0,39,21);
          ITEM SYMSRCLINEDF U(0,6,33);
          ITEM SYMWRDADDRDF U(0,39,21); 
      CONTROL LIST; 
        END 
      ARRAY CWWRKBUF [0:CTLWDLENG] S(1);
        BEGIN 
*CALL SCCWDECLS 
        END 
      ARRAY HASHTABLE[512]; 
        BEGIN 
          ITEM HASHOCCUP U(0,0,1);
          ITEM HASHENTRY U(0,30,30);
        END 
      ARRAY PROCTBLE [ PROCTBLENG ];
        BEGIN 
          ITEM PROCTBLEPNME U(0,0,42);
          ITEM PROCTBLEWC U(0,12,12); 
        END 
  
      ARRAY REPORT [0:2] S(1);     # HOLD BLANK FILLED SCHEMA NAME     #
        BEGIN 
        ITEM RPTSCHNAME     C(00,00,10);
        ITEM RPTSCHNAME30   C(00,00,30);
        END 
  
   END    # END OF DLSCOM DECK #
