*DECK ILLMSG                       26MAY81
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
    PROC ILLMSG;
      BEGIN    # ILLMSG # 
# 
**    ILLMSG     PROCESS ILLEGAL NETWORK MESSAGE. 
* 
*     ILLMSG SENDS A MESSAGE TO THE DAYFILE INDICATING THE ILLEGAL
*     NETWORK MESSAGE, AND BREAKS THE CONNECTION. 
* 
*     PROC ILLMSG 
* 
*     ENTRY      ACN = CONNECTION NUMBER (AFT ORDINAL). 
* 
*     EXIT       AFT ENTRY UPDATED. 
*                CONNECTION RELEASED. 
* 
*     PROCESS    CALL CONERR ("UNRECOGNIZED MESSAGE RECEIVED.").
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC CONERR;               # PROCESS CONNECTION ERROR # 
        PROC NAME;                 # DEBUG CODE # 
        END 
# 
****  XREF END
# 
  
      DEF LEMSG12    #30#;
  
      ITEM EMSG12     C(LEMSG12) = "UNRECOGNIZED MESSAGE RECEIVED.";
  
  
        $BEGIN
        NAME("ILLMSG");              # DEBUG CODE # 
        $END
  
      CONERR(LOC(EMSG12),LEMSG12);  # PROCESS CONNECTION ERROR #
  
      END      # ILLMSG # 
    TERM
