*COMDECK,ABH$COM
#     APPLICATION BLOCK HEADER - ABH                                   #
  
#           USE - HEADER INFORMATION FOR NETWORD DATA                  #
  
#           SIZE - ONE WORD                                            #
  
#           NOTE - ABN IS USE AS A CHAIN POINTER ON BLOCKS RECEIVED ON #
#                  UPLINE CONNECTIONS                                  #
  
      COMMON ABH$COM; 
      BEGIN # ABH$COM # 
      BASED ARRAY ABH [0:0] S(1); 
         ITEM 
            ABH$ABT   S: BLOCKTYPE (0,00,6),
                                      #APPLICATION BLOCK TYPE          #
            ABH$ADR   I (0,06,12),    # ADDRESS                        #
            ABH$ABN   I (0,18,18),    #APPLICATION BLOCK NUMBER        #
            ABH$NEXT  I (0,18,18),    #ADDRESS OF NEXT APPLICATION     #
                                      #BLOCK HEADER IN UPLINE CHAIN    #
            ABH$ACT   I (0,36,4),     #CHARACTER TYPE                  #
            ABH$DBC   U (0,40,8),     #DATA BLOCK CLARIFIER            #
            ABH$IBU   B (0,40,1),     #INPUT BLOCK UNDELIVERABLE FLAG  #
            ABH$NFE   B (0,44,1),     #NO FORMAT EFFECTORS FLAG        #
            ABH$XPT   B (0,45,1),     #T9ANSPARENT FLAG                #
            ABH$CAN   B (0,46,1),     #CANCEL FLAG                     #
            ABH$PEF   B (0,47,1),     #PARITY ERROR FLAG (INPUT ONLY)  #
            ABH$TLC   I (0,48,12),    #TEXT LENGTH                     #
            ABH$WORD  I (0,0,60),                # ABH WHOLE WORD      #
            ABH$TEXTC C (1,0,80),     #TEXT IN CHARACTERS              #
            ABH$MSG   C (1,0,40),     #CONSOLE MESSAGE                 #
            ABH$TEXT  U (1,0,60);     #TEXT OF MESSAGE                 #
  
#     END OF APPLICATION BLOCK HEADER DEFINITION                       #
#                                                                      #
#     TEXT AREA                                                        #
#                                                                      #
      BASED ARRAY TXT [0:0] S(1); 
        ITEM TXTWORD C (0,0,80),
             TXTWORDU U (0,0,60); 
      END   # ABH$COM # 
