*COMDECK SBAHDDCLS
          ITEM SBARTYPE U(0,0,3);         # 1 = AREA                   #
          ITEM SBARORDINAL U(0,3,12);     # ORDINAL NUMBER OF AREA     #
          ITEM SBARLENGWRDS U(0,15,3);    # LENGTH OF AREA NAME IN WRDS#
          ITEM SBARLENGCHAR U(0,18,6);    # LENGTH OF AREA NAME IN CHAR#
          ITEM SBARALIASLW U(0,24,3);     # LENGTH OF ALIAS NAME IN    #
                                          # WORDS                      #
          ITEM SBARALIASLC U(0,27,6);     # LENGTH OF ALIAS NAME IN    #
                                          # CHARACTERS                 #
          ITEM SBARSYNADDR U(0,33,18);    # WORD ADDRESS OF AN ENTRY   #
                                          # WITH THE SAME HASH VALUE - #
                                          # FOR INTERNAL PROCESS. ONLY #
          ITEM SBARNAMEPTR U(0,51,6);     # OFFSET POINTER TO THE AREA #
                                          # NAME.                      #
          ITEM SBARFREC B(0,58,1);        # TRUE = THAT A FORTRAN      #001210
                                          # RECORD HAS BEEN DEFINED FOR#001220
                                          # THIS REALM.                #001230
          ITEM SBARNOMAPIND B(0,59,1);    # TRUE = INDICATES NO MAPPING#
                                          #        OR ITEM LEVEL DATA- #
                                          #        BASE PROCEDURES, OR #
                                          #        CHECK CLAUSES FOR   #
                                          #        ANY RECORDS IN THE  #
                                          #        SUBJECT AREA.       #
          ITEM SBARNEXT U(1,0,15);        # WORD ADDRESS OF THE NEXT   #
                                          # AREA ENTRY. THE LAST AREA  #
                                          # ENTRY WILL POINT TO THE    #
                                          # 1ST RECORD ENTRY           #
          ITEM SBARSRCLNEN U(1,15,15);    # SOURCE LINE NUMBER OF SUB- #
                                          # JECT AREA.                 #
          ITEM SBARALIASPTR U(1,30,6);    # OFFSET POINTER TO THE ALIAS#
                                          # NAME ENTRY.                #
          ITEM SBARPRIVPTR U(1,36,6);     # OFFSET POINTER TO ACCESS-  #
                                          # CONTROL LOCK LIST.         #
          ITEM SBARDCONTRLA U(1,42,18);   # WORD ADDRESS OF THE DATA   #
                                          # CONTROL SECTION FOR THE    #
                                          # SUBJECT ENTRY              #
          ITEM SBARSAMENAME U(2,0,18);    # WORD ADDRESS OF AN ENTRY   #
                                          # WITH THE SAME NAME.        #
          ITEM SBARKEYCAPA U(2,24,18);    # WORD ADDRESS OF THE KEY    #
                                          # MAPPING CODE CAPSULE FOR   #
                                          # THIS AREA. ZERO IF NONE.   #
          ITEM SBARKEYCAPL U(2,42,18);    # LENGTH IN WORDS OF THE     #
                                          # KEY MAPPING CAPSULE FOR    #
                                          # THIS AREA. ZERO IF NONE.   #
          ITEM SBARHASHWA   U(3,42,18);   # WORD ADDRESS OF AREA HASH  #
                                          # TABLE                      #
          ITEM SBARNAME U(0,0,60);        # AREA NAME, 1-30 CHARACTERS #
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SBARNAME30 C(0,0,30);      # 30 CHARACTER AREA NAME     #
          ITEM SBARALIASNME U(0,0,60);    # ALIAS NAME, 1-30 CHARACTERS#
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SBARALIAS30 C(0,0,30);     # 30 CHARACTER AREA ALIAS NME#
