*COMDECK COMREVNT 
#     COMREVNT - EVENT ENTRY DESCRIPTION.  #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
# 
***   COMREVNT - EVENT ENTRY DESCRIPTION. 
* 
*     COMREVNT CONTAINS THE ARRAY DEFINITION FOR A STATUS EVENT 
*     LIST ENTRY. 
# 
  
      BEGIN  # COMREVNT COMMON DECK # 
  
      DEF EVTP$INPUT #1#;            # INPUT AVAILABLE EVENT #
      DEF EVTP$OUTPT #2#;            # OUTPUT BELOW THRESHOLD EVENT # 
      DEF EVTP$CON   #3#;            # CONNECTED EVENT #
      DEF EVTP$DISC  #4#;            # DISCONNECTED EVENT # 
      DEF EVTP$NDREJ #5#;            # REMOTE NAD REJECT EVENT #
      DEF EVTP$RHREJ #6#;            # REMOTE RHF REJECT EVENT #
  
      COMMON COMREVNT;
      BEGIN  # COMREVNT COMMON AREA # 
  
      BASED ARRAY EVNT$ENTRY S(1);
        BEGIN  # EVENT ENTRY DESCRIPTION #
  
        ITEM EVNT$WD    U(00,00,60); # EVENT ENTRY WORK # 
        ITEM EVNT$REJCD U(00,00,08); # REMOTE RHF REJECT CODE # 
        ITEM EVNT$INPUT B(00,10,01); # INPUT AVAILABLE #
        ITEM EVNT$OUTPT B(00,11,01); # OUTPUT BELOW THRESHOLD # 
        ITEM EVNT$TYPE  U(00,12,12); # EVENT TYPE # 
        ITEM EVNT$ACN   U(00,24,12); # EVENT ACN #
        ITEM EVNT$APPL  U(00,42,18); # EVENT APPLICATION TABLE ADDRESS #
  
        END  # EVENT ENTRY DESCRIPTION #
  
      END  # COMREVNT COMMON AREA # 
  
      END  # COMREVNT COMMON DECK # 
                                               CONTROL LIST;
