*DECK USRERR
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQFIL 
USETEXT COMQNET 
    PROC USRERR (MSGTEXT, MSGLENGTH); 
      BEGIN    # USRERR # 
# 
**    USRERR     PROCESS USER ERROR.
* 
*     USRERR IS CALLED WHENEVER ANY 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 AND USER ERROR FLAG ARE SET. 
* 
*     PROC USRERR (MSGTEXT, MSGLENGTH)
* 
*     ENTRY      MSGTEXT = ERROR MESSAGE TO BE LOGGED.
*                MSGLENGTH = LENGTH IN CHARACTERS OF MSGTEXT. 
*                ACN = APPLICATION CONNECTION NUMBER. 
* 
*     EXIT       FILECER = TRUE (CONNECTION ERROR). 
*                FILEUER = TRUE (USER 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("USRERR");            # DEBUG CODE # 
        $END
  
      CONLOG(LOC(MSGTEXT),MSGLENGTH); 
      FILECER = TRUE; 
      FILEUER = TRUE; 
  
      END  # USRERR # 
    TERM
