*COMDECK DB0DCLS                                                        000110
        BEGIN                                                           000120
          ITEM DBREALM C(30);    # REALM IN ERROR                      #000130
          ITEM DBSTAT;           # STATUS OF IO REQUEST                #000140
          ITEM DBSCNAM  C(30);   # SCHEMA NAME                         #000130
          ITEM DBRUID;           # RUN-UNIT ID                         #000140
        ITEM DBRELST;            # RELATION USAGE LIST                 #000330
        END                                                             000150
      BASED ARRAY REALMBLOCK [0:0] S(4); # REALM INFORMATION           #000120
        BEGIN                                                           000170
         ITEM DBRXXXX C(0,0,30);  # REALM NAME                         #000124
         ITEM DBSXXXX U(3,0,60);  # STATUS OF IO REQUEST               #000126
        END                                                             000200
      BASED ARRAY DBTXXXX [0:0] S(2); # SAVE AREA FOR FIT FIELDS       #000140
        BEGIN                                                           000220
          ITEM DBVER       C(0,0,10); # FTN VERSION - (TEMPORARY)      #
          ITEM DBMRL       U(0,0,24);                                   000230
          ITEM DBKEYFIELDS U(0,30,29); # INCLUDES NEXT 4 FIELDS        #000240
            ITEM DBRKW     U(0,30,12);                                  000250
            ITEM DBRKP     U(0,42,4);                                   000260
            ITEM DBKP      U(0,46,4);                                   000270
            ITEM DBKL      U(0,50,9);                                   000280
          ITEM DBWSA       U(1,0,18);                                   000290
          ITEM DBKA        U(1,18,18);                                  000300
          ITEM DBKT        U(1,36,3);                                   000310
        END                                                             000320
