*COMDECK SBIHDDCLS
          ITEM SBITMENTRY U(0,0,3);       # 3 = ITEM                   #
          ITEM SBITMTYPE U(0,3,3);        # 0 = GROUP ITEM             #
                                          # 1 = ELEMENTRY ITEM         #
                                          # 2 = REPEATING GROUP        #
                                          # 3 = REPEATING GROUP WITHIN #
                                          #        A REPEATING GROUP   #
                                          # 4 = VECTOR                 #
                                          # 5 = VECTOR WITHIN A REPEAT-#
                                          #     ING GROUP              #
                                          # 6 = REPEATING GROUP OF     #
                                          #     VARIABLE ENTRY.        #
                                          # 7 = VECTOR OF VARIABLE DIM.#
          ITEM SBITMORDINAL U(0,6,15);    # ITEM ORDINAL NUMBER        #
          ITEM SBITMLEVEL U(0,21,6);      # ITEM LEVEL NUMBER          #
                                          # 66 = 62 OCTAL              #
                                          # 88 = 64 OCTAL              #
          ITEM SBITMNELENW U(0,27,3);     # LENGTH OF ITEM NAME IN WRDS#
          ITEM SBITMNMELENC U(0,30,6);    # LENGTH OF ITEM NAME IN CHAR#
          ITEM SBITMALIASLW U(0,36,3);    # LENGTH OF ALIAS NAME IN WRD#
          ITEM SBITMALIASLC U(0,39,6);    # LENGTH OF ALIAS NAME IN    #
                                          # CHARACTERS                 #
          ITEM SBITMDOMORD U(0,45,15);    # ORDINAL NUMBER OF DOMINANT #
                                          # ITEM.                      #
          ITEM SBITMDBCLASS U(1,0,6);     # 0 - ALPHANUMERIC           #
                                          # 1 - ALPHABETIC             #
                                          # 3 - DISPLAY NUMERIC        #
                                          # 4 - DISPLAY FIXED POINT    #
                                          # 10 - SIGNED BINARY INTEGER #
                                          # 12 - UNNORM. FLOATING PT.  #
                                          # 13 - NORM. FLOATING PT.    #
                                          # 14 - DOUBLE PRECISION      #
                                          # 15 - COMPLEX FLOATING PT.  #
                                          # 16 - LOGICAL (BINARY 0/1)  #
                                          # 17 - FTN LOGICAL (FULL WD) #
                                          # 18 - FTN BOOLEAN (FULL WD) #
                                          # ( DECIMAL VALUES )         #
          ITEM SBITMBWP U(1,6,18);        # RELATIVE WORD POISTION OF  #
                                          # THE ITEM WITHIN THE RECORD #
          ITEM SBITMBBP U(1,24,6);        # RELATIVE BIT POSITION OF   #
                                          # THE ITEM WITHIN THE RECORD #
          ITEM SBITMPRIORP U(1,30,12);    # OFFSET POINTER TO PREVIOUS #
                                          # ITEM ENTRY                 #
          ITEM SBITMNEXTP  U(1,42,12);    # OFFSET POINTER TO THE NEXT #
                                          # ITEM ENTRY                 #
          ITEM SBITMIDNTICL B(1,54,1);    # IDENTICAL SCHEMA/SUB-SCHEMA#
                                          # ITEM DESCRIPTION           #
          ITEM SBITMSAMLOC B(1,55,1);     # THE ITEM STARTS IN THE SAME#
                                          # LOCATION WITHIN THE RECORD #
                                          # IN BOTH THE SCHEMA AND     #
                                          # SUB-SCHEMA                 #
          ITEM SBITMRLDNFLG B(1,56,1);    # TRUE - SUBJECT ITEM IS     #
                                          #        TO BE COMPARED WITH #
                                          #        A DATA-NAME IN A    #
                                          #        RESTRICT ENTRY.     #
          ITEM SBITMKEYINFO U(1,57,3);    # KEY INFORMATION.           #
          ITEM SBITMKEYFLG B(1,57,1);     # ITEM IS DEFINED AS A PRIM- #
                                          # ARY KEY                    #
          ITEM SBITMALTKEYF B(1,58,1);    # TRUE = ITEM IS DEFINED AS  #
                                          #        AN ALTERNATE KEY.   #
          ITEM SBITMMAJKEYF B(1,59,1);    # TRUE= ITEM IS DEFINED AS A #
                                          #        MAJOR PART OF A KEY #
          ITEM SBITMNAMEPTR U(2,0,6);     # OFFSET POINTER TO THE ITEM #
                                          # NAME.                      #
          ITEM SBITMXPICSIZ U(2,6,15);    # PICTURE SIZE EXCLUDING     #
                                          # INSERTS                    #
          ITEM SBITMPICINFO U(2,21,9);    # PICTURE INFORMATION.       #
          ITEM SBITMPTLOC U(2,21,6);      # LOCATION OF DECIMAL POINT  #
          ITEM SBITMPTINFO U(2,21,8);     # DECIMAL PT. INFO           #
                                          # FOR CONDITION-NAME.        #
          ITEM SBITMACTLPT U(2,27,1);     # FALSE = ASSUMED DECIMAL PT #
                                          # TRUE = ACTUAL DECIMAL POINT#
          ITEM SBITMLFTPT U(2,28,1);      # FALSE = DECIMAL POINT IS TO#
                                          #        THE RIGHT           #
                                          # TRUE = DECIMAL POINT IS TO #
                                          #        THE LEFT            #
          ITEM SBITMSGNINFO U(2,29,1);    # SIGN INFORMATION           #
          ITEM SBITMSIGNF B(2,29,1);      # TRUE = THE PRESENCE OF A   #
                                          # SIGN                       #
          ITEM SBITMCLASS U(2,30,3);      # 0 = UNSPECIFIED            #
                                          #     (INCLUDES FTN TYPES    #
                                          #      NOT FOUND IN COBOL)   #
                                          # 1 = ALPHABETIC             #
                                          # 2 = NUMERIC                #
                                          # 3 = ALPHANUMERIC (AN)      #
                                          # 4 = ALPHANUMERIC (EDITING) #
                                          # 5 = PICTURE IS 5           #
                                          # 6 = NUMERIC EDITING        #
                                          # 7 = MIXED GROUP            #
          ITEM SBITMOCCURP U(2,33,9);     # OFFSET POINTER TO THE      #
                                          # OCCURS ENTRY               #
          ITEM SBITMVALLITP U(2,42,6);    # OFFSET POINTER TO THE LITER#
                                          # ALS SPECIFIED IN THE LEVEL #
                                          # 88 VALUE CLAUSE            #
          ITEM SBITMRNRDPTR U(2,48,6);    # IF LEVEL 66,FIELD IS AN OFF#
                                          # SET POINTER TO THE RENAME  #
                                          # ENTRY ELSE ITS AN OFFSET   #
                                          # POINTER TO THE REDEFINE    #
                                          # ENTRY                      #
          ITEM SBITMALIASP U(2,54,6);     # OFFSET POINTER TO THE ALIAS#
                                          # NAME                       #
          ITEM SBITMUSAGE U(3,0,3);       # 0 = UNSPECIFIED            #
                                          #     (INCLUDES FTN TYPES    #
                                          #      NOT FOUND IN COBOL)   #
                                          # 1 = DISPLAY                #
                                          # 2 = COMPUTATIONAL          #
                                          # 3 = NOT USED               #
                                          # 4 = COMPUTATIONAL-1        #
                                          # 5 = INDEX                  #
                                          # 6 = COMPUTATIONAL-2        #
                                          # 7 = DOUBLE                 #
          ITEM SBITMUSESIZE U(3,3,15);    # SIZE OF THE ITEM AS IT RE- #
                                          # SIDES IN THE DATA-BASE     #
          ITEM SBITMENTRYL  U(3,18,12);   # NUMBER OF WORDS OF THE ITEM#
                                          # ENTRY IN THE SUB-SCHEMA    #
          ITEM SBITMPRIVPTR U(3,30,12);   # OFFSET POINTER TO THE ACC- #
                                          # -ESS-CONTROL LOCK LIST.    #
          ITEM SBITMDOMADR U(3,42,18);    # WORD ADDRESS OF THE DOMIN- #
                                          # ANT ITEM                   #
          ITEM SBITMSAMENME U(4,0,18);    # WORD ADDRESS OF AN ENTRY   #
                                          # WITH THE SAME NAME - FOR   #
                                          # INTERNAL PROCEESING ONLY.  #
          ITEM SBITMSCPTR U(4,0,18);      # WORD ADDRESS ,RELATIVE TO  #
                                          # START OF SCHEMA RECORD     #
                                          # ENTRY, OF SCHEMA ITEM ENTRY#
                                          # CORRESPONDING TO THIS ITEM #
          ITEM SBITMSYNADDR U(4,18,18);   # WORD ADDRESS OF AN ENTRY   #
                                          # WITH THE SAME HASH VALUE - #
                                          # FOR INTERNAL PROCESS. ONLY.#
          ITEM SBITMREDEFFG B(4,36,1);    # TRUE = REDEFINER OR SUBORD-#
                                          #        INATE TO THE        #
                                          #        REDEFINER           #
          ITEM SBITMSYNJINF U(4,37,3);    # SYNC,JUST INFORMATION      #
          ITEM SBITMSYNC B(4,37,1);       # TRUE = SYNCHRONIZED IS     #
                                          #        SPECIFIED           #
          ITEM SBITMSYNCLFT B(4,38,1);    # TRUE = SYNCRONIZED LEFT    #
          ITEM SBITMJUST B(4,39,1);       # TRUE = JUSTIFIED IS SPEC.  #
          ITEM SBITMNEWGRP B(4,40,1);     # TRUE = ITEM ENTRY IS A NEW #
                                          # GROUP (SUB-SCHEMA ONLY).   #
          ITEM SBITMSRCLNEN U(4,42,18);   # CONTAINS THE SOURCE LINE   #
          ITEM SBITMUNIQFLG B(4,41,1);    # TRUE - NAME IS UNIQUE IN   #
                                          # THE ENTIRE SUB-SCHEMA      #
                                          # NUMBER OF THE ITEM DEFINIT-#
                                          # ION ( IN BINARY ).         #
          ITEM SBITMBLOCKSZ U(5,0,18);    # BLOCK MAPPING SIZE IN CHARS#
          ITEM SBITMNXSSWA U(5,18,18);    # WORD ADDRESS OF NEXT SUB-  #
                                          # SCHEMA ITEM FOLLOWING THIS #
                                          # BLOCK.                     #
          ITEM SBITMNXSCPTR U(5,42,18);   # WORD ADDRESS,RELATIVE TO   #
                                          # START OF SCHEMA RECORD     #
                                          # ENTRY,OF NEXT SCHEMA ITEM  #
                                          # FOLLOWING THIS BLOCK.      #
          ITEM SBITMBCKWORD U(5,0,60);    # BLOCK MAPPING WORD         #
          ITEM SBITMURALPTR U(6,00,6);    # OFFSET POINTER TO EDIT     #
                                          # MURAL                      #
          ITEM SBITMIPICSIZ U(6,24,18);   # PICTURE SIZE INCLUDING     #
                                          # INSERTS                    #
          ITEM SBITMSAMEPTR U(6,42,18);   # WORD ADDRESS OF AN ITEM    #
                                          # WITHIN SAME AREA WITH THE  #
                                          # SAME NAME - CARRIED IN THE #
                                          # DIRECTORY                  #
          ITEM SBITMNAME U(0,0,60);       # ITEM NAME, 1-30 CHARACTERS #
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SBITMNAME30 C(0,0,30);     # 30 CHARACTER ITEM NAME     #
          ITEM SBITMALIASNM U(0,0,60);    # ALIAS NAME, 1-30 CHARACTERS#
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SBITMALIAS30 C(0,0,30);    # 30 CHARACTER ITEM ALIAS NME#
          ITEM SBITMEDITMRL  U(0,0,60);   # EDIT MURAL WORD            #
