
  PROCEDURE [INLINE] jmp$reset_max_class_working_set;

    VAR
      job_class: jmt$job_class;

{ JMV$MAX_CLASS_WORKING_SET does not include the maximum working set of the System Job.  Therefore, If there
{ is only one job in the system job class, do not use the maximum of the system job class.

    IF jmv$job_counts.job_class_counts [jmc$system_job_class].initiated_jobs > 1  THEN
      jmv$max_class_working_set := jmv$job_class_table_p^ [jmc$system_job_class].maximum_working_set.maximum;
    ELSE
      jmv$max_class_working_set := 0;
    IFEND;
    FOR  job_class := jmc$maintenance_job_class TO jmv$maximum_job_class_in_use DO
      IF (jmv$job_counts.job_class_counts [job_class].initiated_jobs > 0) AND (jmv$max_class_working_set <
            jmv$job_class_table_p^ [job_class].maximum_working_set.maximum) THEN
          jmv$max_class_working_set := jmv$job_class_table_p^ [job_class].maximum_working_set.maximum;
      IFEND;
    FOREND;

  PROCEND jmp$reset_max_class_working_set;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$job_class
*copyc jmv$job_class_table_p
*copyc jmv$job_counts
*copyc jmv$max_class_working_set
*copyc jmv$maximum_job_class_in_use
?? POP ??
