
  PROCEDURE [INLINE] mmp$convert_aging_statistics
    (    aging_statistics_new: mmt$i_aging_statistics;
     VAR aging_statistics_old: mmt$aging_statistics);

?? PUSH (LISTEXT := ON) ??

    VAR
      queue: mmc$pq_shared_first .. mmc$pq_shared_last;

    aging_statistics_old.force_aggressive_aging :=
          aging_statistics_new.force_aggressive_aging;
    aging_statistics_old.aggressive_age_shared_queue :=
          aging_statistics_new.aggressive_age_shared_queue;
    aging_statistics_old.aggressive_age_job_queues :=
          aging_statistics_new.aggressive_age_job_queues;
    aging_statistics_old.aggressive_aging_failed :=
          aging_statistics_new.aggressive_aging_failed;
    aging_statistics_old.age_cp_bound_job :=
          aging_statistics_new.age_cp_bound_job;
    aging_statistics_old.remove_unmodified_page_from_ws :=
          aging_statistics_new.remove_unmodified_page_from_ws;
    aging_statistics_old.remove_modified_page_from_ws :=
          aging_statistics_new.remove_modified_page_from_ws;
    aging_statistics_old.page_written_to_disk :=
          aging_statistics_new.page_written_to_disk;
    aging_statistics_old.multiple_pages_written_to_disk :=
          aging_statistics_new.multiple_pages_written_to_disk;
    aging_statistics_old.calls_to_age_jws :=
          aging_statistics_new.calls_to_age_jws;
    aging_statistics_old.age_exceeds_aif :=
          aging_statistics_new.age_exceeds_aif;
    aging_statistics_old.age_exceeds_aic :=
          aging_statistics_new.age_exceeds_aic;
    aging_statistics_old.write_aged_out_page :=
          aging_statistics_new.write_aged_out_page;
    aging_statistics_old.write_forced_out_page :=
          aging_statistics_new.write_forced_out_page;
    aging_statistics_old.write_pt_full_page :=
          aging_statistics_new.write_pt_full_page;
    aging_statistics_old.write_avail_mod_page :=
          aging_statistics_new.write_avail_mod_page;
    aging_statistics_old.write_page_failed :=
          aging_statistics_new.write_page_failed;

    aging_statistics_old.age_unused_page_in_shared_queue := 0;
    FOR queue := mmc$pq_shared_first TO mmc$pq_shared_last_sys DO
      aging_statistics_old.age_sys_shared_queue [queue] := 0;
    FOREND;

    FOR queue := mmc$pq_shared_first TO mmv$last_active_shared_queue DO
      aging_statistics_old.age_unused_page_in_shared_queue :=
            aging_statistics_old.age_unused_page_in_shared_queue +
            aging_statistics_new.age_shared_queue [queue].total_pages;

      IF queue <= mmc$pq_shared_last_sys THEN
        aging_statistics_old.age_sys_shared_queue [queue] :=
              aging_statistics_new.age_shared_queue [queue].total_pages;
      IFEND;
    FOREND;

  PROCEND mmp$convert_aging_statistics;

*copyc mmt$aging_statistics
*copyc mmv$last_active_shared_queue
*copyc mmt$i_aging_statistics
?? POP ??
