*DECK PERRLGL 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
PROC PERRLGL; 
# TITLE PERRLGL - PROCESS ERR/LGL/R MESSAGE. #
  
      BEGIN  # PERRLGL #
  
# 
**    PERRLGL - PROCESS ERR/LGL/R MESSAGE.
* 
*     PERRLGL PERFORMS THE REQUIRED PROCESSING WHEN AN ERR/LGL/R MESSAGE
*     IS RECEIVED.
* 
*     PROC ERRLGL 
* 
*     ENTRY      NONE.
* 
*     EXIT       NONE.
* 
*     PROCESS    TBD. 
# 
  
# 
****  PROC PERRLGL - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC PROTERR;                # PROCESS PROTOCOL ERROR # 
        END 
  
# 
****  PROC PERRLGL - XREF LIST END. 
# 
                                               CONTROL EJECT; 
      PROTERR;  # **** PROCESS AS PROTOCOL ERROR FOR NOW **** # 
      END  # PERRLGL #
  
      TERM
