Test code:

      call bberr_init
      call bberr('badfit','main pgm')
      ...
      call bberr('div0','main pgm')
      call bberr_summary
      end

Printout in response to err counter calls:

 BBERR SevereWarning: badfit: # 1 in main pgm, Bad fit
 BBERR SevereWarning: badfit: # 2 in main pgm, Bad fit
 BBERR Info: evcnt: # 1 in main pgm, Event count
 BBERR Info: evcnt: # 2 in main pgm, Event count
 BBERR SevereWarning: badhits: # 1 in main pgm, Bad hits
 BBERR Info: counter: # 1 in main pgm, A counter
 BBERR Error: div0: # 1 in main pgm, Divide by zero
 BBERR Error: div0: # 2 in main pgm, Divide by zero
  

End of job summary:

==== BBERR Summary =====================================
div0:                2  Lev  4  Divide by zero
badfit:              2  Lev  3  Bad fit
badhits:             1  Lev  3  Bad hits
evcnt:               2  Lev  1  Event count
counter:             1  Lev  1  A counter
  
 Worst severity level: Error                                          
                                  
 Total error counts:
     (1) Informational       2
     (2) Warning             0
     (3) Severe warning      2
     (4) Error (ev skipped)  1
     (5) Severe error (die)  0
========================================================