*DECK RCMERR
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQFIL 
USETEXT COMQNET 
    PROC RCMERR (MSGTEXT, MSGLENGTH); 
      BEGIN    # RCMERR # 
# 
**    RCMERR     PROCESS PROTOCOL ERROR.
* 
*     RCMERR IS CALLED WHENEVER ANY NON-USER ERROR IS DETECTED ON 
*     A LEVEL-7 COMMAND PARAMETER WHICH PREVENTS SUCCESSFUL 
*     COMPLETION OF THE FILE TRANSFER.
*     THE ERROR MESSAGE SUPPLIED IS LOGGED AND THE CONNECTION 
*     ERROR FLAG IS SET.
* 
*     PROC RCMERR (MSGTEXT, MSGLENGTH)
* 
*     ENTRY      MSGTEXT = ERROR MESSAGE TO BE LOGGED.
*                MSGLENGTH = LENGTH IN CHARACTERS OF MSGTEXT. 
*                ACN = APPLICATION CONNECTION NUMBER. 
* 
*     EXIT       FILECER = TRUE (CONNECTION ERROR). 
* 
*     PROCESS    CALL CONLOG (LOG ERROR MESSAGE). 
*                SET CONNECTION ERROR FLAG (FILECER). 
# 
  
      BASED ARRAY MSGTEXT [0:0] S(7); 
        BEGIN 
        ITEM MSGTEXT$   C(00,00,70);  # MESSAGE TO BE LOGGED #
        END 
  
      ITEM MSGLENGTH I;            # LENGTH OF MESSAGE IN CHARACTERS #
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC CONLOG;               # LOG CONNECTION MESSAGE # 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END. 
# 
  
  
        $BEGIN
        NAME("RCMERR");            # DEBUG CODE # 
        $END
  
      CONLOG(LOC(MSGTEXT),MSGLENGTH); 
      FILECER = TRUE; 
  
      END  # RCMERR # 
    TERM
