*COMDECK,DBSAT
 #COMMON DECK CALLED# 
 CONTROL NOLIST;
 CONTROL EJECT; 
 #DEFINE AND DESCRIBE THE SELECTED AREA TABLE - SAT (ALSO REFERRED TO AS
  SUBSCHEMA AREA TABLE, SUBSCHEMA ACCESS TABLE, ETC.), WHICH IS USED
  IN THE CDCS 1.0 AND 1.1 INTERFACE TO CONTAIN INFORMATION PERTINENT
  TO AREAS (FILES) AND RELATIONS, AS GLEANED FROM THE SUBSCHEMA        #
 DEF SATIXMAX #8190#;        #MAX NUMBER OF SAT ENTRIES#
 COMMON SATCOMM;
 BEGIN
 BASED ARRAY SAT [0:SATIXMAX] S(2); 
   BEGIN
     ITEM SATENTRY1    U(0,0,60); 
     ITEM SATRELFLAG   U(0,0,1);    #FLAG - 1 IF RELATION, 0 IF AREA# 
     ITEM SATRELUFLAG  U(0,1,1);    #FLAG - 1 IF RELATION USED, ELSE 0# 
     ITEM SATFDL       U(0,2,1);    #FLAG - 1 IF AREA/RELATION IN FDLT# 
     ITEM SATFDLBITS   U(0,4,8);    #AREA USAGE BITS FROM FDLT# 
     ITEM SATFDDNATPTR U(0,12,15);  #POINTER TO AREA/RELATION FD DNAT#
     ITEM SATSSRLLEN   U(0,27,15);  #SUBSCHEMA RECORDLIST LENGTH# 
     ITEM SATSSRLADDR  U(0,42,18);  #SUBSCHEMA RECORDLIST ADDRESS#
     ITEM SATENTRY2    U(1,0,60); 
     ITEM SATPTR       U(1,0,13);   #ORDINAL OF ENTRY IN SS AREALIST# 
     ITEM SATCOL       U(1,13,7);   #SOURCE COLUMN NUMBER OF AREA NAME# 
     ITEM SATLINE      U(1,20,16);  #SOURCE LINE NUMBER OF AREA NAME# 
     ITEM SATSSAADDR   U(1,42,18);  #SS AREA/RELATION ENTRY ADDRESS#
   END
 END #SATCOMM#
 CONTROL LIST;
