*COMDECK SCRLDBDCL
#  DBI ENTRY                                                           #
#    AREA OFFSET POINTER                                               #
          ITEM SCRLDBIARPTR U(0,0,21); # OFFSET POINTER TO AREA IN     #
                                       # WHICH DBI RESIDES.            #
#    KEY TYPE                                                          #
          ITEM SCRLDBIKEYTY U(0,21,3); # 0 = NOT A KEY ITEM.           #
                                       # 1 = SEQUENTIAL SORT KEY.      #
                                       # 2 = MAJOR PART OF PRIMARY KEY.#
                                       # 3 = MAJOR PART OF ALTERNATE   #
                                       #     KEY.                      #
                                       # 4 = ALTERNATE KEY.            #
                                       # 5 = PRIMARY KEY.              #
#    DATA CLASS CODE                                                   #
          ITEM SCRLDBICLASS U(0,24,4); # 0 = ALPHANUMERIC.             #
                                       # 1 = ALPHABETIC.               #
                                       # 3 = DISPLAY NUMERIC.          #
                                       # 4 = DISPLAY FIXED POINT.      #
                                       # 10 = FIXED(UNBIASED).         #
                                       # 12 = FIXED(BIASED).           #
                                       # 13 = FLOAT.                   #
#    SIZE                                                              #
          ITEM SCRLDBISIZE U(0,28,8);  # SIZE OF DBI IN CHARACTERS     #
#    POSITION                                                          #
          ITEM SCRLDBIBCP U(0,36,6);   # BEGINNING CHARACTER POSITION  #
                                       # OF DBI IN THE WORD.           #
          ITEM SCRLDBIBWP U(0,42,18);  # BEGINNING WORD POSITION OF    #
                                       # DBI IN THE RECORD.            #
#   THE FOLLOWING DECLS FOR USE BY EXHIBIT UTILITY ONLY.               #
          ITEM SCRLDBIADR U(0,0,19);   # ADDRESS OF DBI IN SCHEMA      #
                                       # DIRECTORY.                    #
          ITEM SCRLDBIANYFG B(0,19,1); # TRUE- ANY IS SUBSCRIPT FOR    #
                                       # SUBJECT DBI.                  #
          ITEM SCRLDBIQUAL B(0,20,1);  # TRUE - SUBJECT DBI IS QUALIF. #
          ITEM SCRLDBICONKY B(0,21,1); # TRUE - SUBJECT DBI IS DEFINED #
                                       #        AS A CONCATENATED KEY. #
          ITEM SCRLDBISUBS U(0,0,60);  # DBI SUBSCRIPTS ----------     #
          ITEM SCRLDBISUB1 U(0,22,12); # 12 BITS FOR EACH SUBSCRIPT.   #
                                       # MAXIMUM OF 3 SUBSCRIPTS.      #
          ITEM SCRLDBISUBCT U(0,58,2); # COUNT OF SUBSCRIPTS.          #
