*COMDECK ZHRCD
      COMMON ZHRCD;          # ZZZZZZDN FILE HEADER RECORD             #
      BEGIN 
      ITEM
        CHOSEN     B=FALSE,  # TRUE IF CURRENT MESSAGE TO BE OUTPUT    #
        COMPLETE   B=FALSE,  # TRUE IF SEARCH IS COMPLETE              #
        MSG$COUNT  I,        # NUMBER OF MESSAGES WRITTEN TO OUTPUT    #
        NMSGCNT,             # NUMBER OF ENTRIES IN NEW DEBUG LOG      #
        NTOFF       B,       # NETOFF ENTRY FLAG                       #
        EOFFLAG B,           # TRUE IF (EOF) ENCOUNTERED               #
        NIP        B=FALSE;  # TRUE IF NIP LOG FILE, ELSE FALSE        #
  
      ARRAY TEMPB1 S(4);
        BEGIN 
        ITEM ZHNAME     C(0,0,7);      # NIP/AIP LITERALS              #
        ITEM ZHMID      C(0,48,2);     # MACHINE ID                    #
        ITEM ZHWD0      I(0,0,WL);     # HEADER WORD 0                 #
        ITEM ZHSEC      I(1,0,24);     # RTIME IN SECONDS              #
        ITEM ZHMILS     I(1,24,36);    # RTIME IN MILSECONDS           #
        ITEM ZHWD1      I(1,0,WL);     # HEADER WORD 1                 #
        ITEM ZHHH       C(2,6,2);      # CLOCK TIME IN HOURS           #
        ITEM ZHMMC      C(2,24,2);     # CLOCK TIME IN MINUTES         #
        ITEM ZHSS       C(2,42,2);     # CLOCK TIME IN SECONDS         #
        ITEM ZHWD2      I(2,0,WL);     # HEADER WORD 2                 #
        ITEM ZHYMD      C(3,6,8);      # DATE IN YEARS/MONTHS/DAYS     #
        ITEM ZHYY       C(3,6,2);      # DATE IN YEARS                 #
        ITEM ZHMM       C(3,24,2);     # DATE IN MONTHS                #
        ITEM ZHDD       C(3,42,2);     # DATE IN DAYS                  #
        ITEM ZHWD3      I(3,0,WL);     # HEADER WORD 3                 #
        ITEM ZNSEC      I(0,0,24);     # RTIME IN SECONDS              #
        ITEM ZNMILS     I(0,24,36);    # RTIME IN MILLISECONDS         #
        END 
      END 
