*COMDECK AHEADER
      BASED ARRAY AHEADER[0:0] P(1);   # APPLICATION BLOCK HEADER      #
        BEGIN 
        ITEM HDRABT       U(0,0,6);    # APPLICATION BLOCK TYPE # 
        ITEM HDRADR       U(0,6,12);   # ADDRESS #
        ITEM HDRABN       U(0,18,18);  # APPLICATION BLOCK NUMBER # 
        ITEM HDRACT       U(0,36,3);   # APPLICATION CHARACTER TYPE # 
        ITEM HDRTLW       U(0,39,9);   # TEXT LENGTH (WORDS) #
        ITEM HDRTLC       U(0,48,12);  # TEXT LENGTH (CHARACTERS) # 
        ITEM HDRWORD      U(0,0,60);   # COMPLETE WORD #
        END 
