*COMDECK PNCECNT
_$J+? 
_*****************************
*                            *
*          PNCECNT           *
*   RESET CE ERROR COUNT     *
*                            *
*****************************?
_$R-,G-,I-     NON RECURSIVE
               INTERRUPTABLE? 
_***********************************************************************
**OVERVIEW- PNCECNT RESETS THE COUNT OF THE NUMBER OF CE               *
*           ERROR MESSAGES SENT. PNCECNT IS ENTERED FROM               *
*           PBTIMAL EVERY N SECONDS.  CE MESSAGES ARE NO               *
*           LONGER SENT WHEN THE CE COUNT REACHES A USER               *
*           DEFINED LIMIT.  THIS INSURES THAT SHORT TERM               *
*           HARDWARE ERRORS DO NOT FLOOD THE SYSTEM WITH               *
*           CE MESSAGES.                                               *
*                                                                      *
**INPUT- NONE                                                          *
*                                                                      *
**OUTPUT- CE COUNT CLEARED                                             *
*                                                                      *
**EXTERNAL SUBROUTINES USED- NONE                                      *
***********************************************************************?
PROCEDURE PNCECNT;
BEGIN 
  CNCECNT   := 0;                           _ CLEAR CE COUNTER         ?
  CNCEALARM := 0;                           _ CLEAR ALARM COUNTER      ?
END;
