*DECK CKMXSUP 
USETEXT COMCBEG 
USETEXT COMRAPL 
USETEXT COMRRTN 
PROC CKMXSUP; 
# TITLE CKMXSUP - CHECK MAXIMUM SUPERVISORY MESSAGES. # 
  
      BEGIN  # CKMXSUP #
  
# 
**    CKMXSUP - CHECK MAXIMUM SUPERVISORY MESSAGES. 
* 
*     CHECK TO SEE IF SUPERVISORY MESSAGE LIMIT REACHED FOR THIS
*     APPLICATION.
* 
*     PROC CKMXSUP. 
* 
*     ENTRY   -  APL$HEADER IS BASED ARRAY CONTAINING APPLICATION HDR.
* 
*     EXIT    -  APPLICATION ABORTED IF SUPERVISORY MESSAGE LIMIT 
*                  EXCEEDED.
* 
*     PROCESS -  IF SUPERVISORY MESSAGE COUNT IS GREATER THAN 200 
*                THEN:  
*                  FORMAT DAYFILE MESSAGE FOR APPLICATION 
*                  SEND DAYFILE MSG TO APPLICATION AND ABORT IT.
*                RETURN 
* 
* 
****  PROC CKMXSUP - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC UCPMSG;                 # SEND DAYFILE AND ABORT UCP # 
        END 
  
# 
****  PROC CKMXSUP - XREF LIST END. 
# 
  
      ITEM MSG$SUPLMT C(29) = "QUEUED MESSAGE LIMIT EXCEEDED";
CONTROL EJECT;
  
      IF APL$MSGCNT GT 200
        AND APL$NETON 
        AND NOT APL$NETOFF
      THEN
        BEGIN  # MESSAGE LIMIT REACHED #
        UCPMSG(APL$JOBID,LOC(MSG$SUPLMT),29,INFORM$ABT);
        END 
  
      RETURN; 
      END  # CKMXSUP #
  
      TERM
  
