*DECK    SYMELT 
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TSYMCNS 
 PROC   SYMELT ;
     BEGIN
       CONTROL PRESET;
  
  
  
  
#     COMDECKS                                                         #
  
*CALL COMEX 
*CALL CEXEC 
  
  
  
      XREF ARRAY ERRCNTS[1:4] S(1);  # CONTAINS ERROR COUNTS FOR THE 4 # SYMELT 
             BEGIN                   # CATEGORIES OF ERRORS M,T,W,F    # SYMELT 
             ITEM ERRCNT U;                                              SYMELT 
             END                                                         SYMELT 
                                                                         SYMELT 
      XREF ITEM DCNTTOT;           # TOTAL DIAGNOSTIC COUNT PER MODULE # SYMELT 
  
XDEF PROC ZCEXEC; 
     PROC ZCEXEC;                  # ZERO CEXEC                        # SYMELT 
     BEGIN  # ZCEXEC #                                                   SYMELT 
     BASED ARRAY MEMORY; ITEM WORD; 
     P<MEMORY> = LOC(APLC); 
     ITEM I,J; J=LOC(SCPN[L$SCPN]) - LOC(APLC); 
     FOR I=0 STEP 1 UNTIL J DO WORD[I] = 0; 
     FOR I = 1 STEP 1              # 0 ERROR COUNTS ARRAY IN CONTROL   # SYMELT 
       UNTIL 4                                                           SYMELT 
     DO                                                                  SYMELT 
       BEGIN                                                             SYMELT 
       ERRCNT[I] = 0;                                                    SYMELT 
       END                                                               SYMELT 
     DCNTTOT = 0;                  # RESET TOTAL DIAG COUNT            # SYMELT 
     END  # ZCEXEC #                                                     SYMELT 
     END
    TERM
