
  PROCEDURE [XREF] qfp$print_file (
        system_label: jmt$output_system_label;
        earliest_clock_time_to_print: jmt$clock_time;
        latest_clock_time_to_print: jmt$clock_time;
        current_clock_time: jmt$clock_time;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$clock_time
*copyc jmt$output_system_label
*copyc ost$status
?? POP ??
