*DECK ILLSEQ                       26MAY81
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
    PROC ILLSEQ;
      BEGIN    # ILLSEQ # 
# 
**    ILLSEQ     PROCESS ILLEGAL COMMAND SEQUENCE.
* 
*     ILLSEQ SENDS A MESSAGE TO THE DAYFILE INDICATING THE ILLEGAL
*     LEVEL 7 COMMAND SEQUENCE, AND BREAKS THE CONNECTION.
* 
*     PROC ILLSEQ 
* 
*     ENTRY      ACN = CONNECTION NUMBER (AFT ORDINAL). 
*                NTA = MESSAGE TEXT.
* 
*     EXIT       AFT ENTRY UPDATED. 
*                CONNECTION BROKEN. 
* 
* 
*     PROCESS    CALL CONERR ("INVALID SEQUENCE RECEIVED.").
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC CONERR;               # PROCESS CONNECTION ERROR # 
        PROC NAME;                 # DEBUG CODE # 
        END 
# 
****  XREF END
# 
  
      DEF LEMSG14    #26#;
  
      ITEM EMSG14     C(LEMSG14) = "INVALID SEQUENCE RECEIVED.";
  
        $BEGIN
        NAME("ILLSEQ");            # DEBUG CODE # 
        $END
  
      CONERR(LOC(EMSG14),LEMSG14);  # PROCESS CONNECTION ERROR #
  
      END      # ILLSEQ # 
    TERM
