*COMDECK LFGHDRCOM
      COMMON HCOM;           # COMMON AREA FOR HEADER RECORDS          #
        BEGIN 
          ARRAY HEADER[0:0] S(8); 
            ITEM
                 WCOUNT U(0,0,16),     # WORD COUNT                    #
                 TRAILER U(0,16,1),    # 1 IF TRAILER RECORD           #
                 HEADT U(0,17,3),      # HEADER TYPE                   #
                 NUSED2 U(0,20,5),     # NOT USED                      #
                 PAGEN U(0,25,7),      # PAGE NUMBER                   #
                 PAGER U(0,32,5),      # PAGE REGISTER                 #
                 PAGED U(0,37,11),     # PAGE DISPLACEMENT             #
                 MCNT U(0,32,16),      # MODULE COUNT FOR MEMORY RES   #
                 NAME1 U(0,48,12),     # NAME 1                        #
                 NAME2 U(1,0,20),      # NAME 2                        #
                 NAME3 U(1,20,16),     # NAME 3                        #
                 COMMENT C(1,36,64);   # COMMENTS                      #
          ARRAY TAPEINBUF [0:63] S(8); #SCRATCH BUFFER IN CASE OF READ #
            ITEM SCRATCHB C(0,0,80);   #OVERFLOW FROM TAPE             #
        END 
