*DECK ENDRHF
USETEXT COMCBEG 
USETEXT COMRFLS 
PROC ENDRHF;
# TITLE ENDRHF - ISSUE RHF ENDED MESSAGE. # 
  
      BEGIN  # ENDRHF # 
  
# 
**    ENDRHF - ISSUE RHF ENDED MESSAGE. 
# 
  
# 
****  PROC ENDRHF - XREF LIST BEGIN 
# 
  
      XREF
        BEGIN 
        PROC RHFMSG;                 # ISSUE DAYFILE MESSAGE #
        END 
  
# 
****  PROC ENDRHF - XREF LIST END 
# 
  
      DEF MSG$ERHFL  #12#;
      ITEM MSG$ERHF   C(MSG$ERHFL) =
                 " RHF, ENDED.";
  
CONTROL EJECT;
  
      RHFMSG(LOC(MSG$ERHF), MSG$ERHFL); 
  
      END  # ENDRHF # 
  
      TERM
