
  PROCEDURE [XREF] jmp$emit_job_history_statistics
    (    statistic_code: sft$statistic_code;
         disposition: ost$name;
         system_job_name: jmt$system_supplied_name;
         system_file_name: jmt$system_supplied_name;
         system_label_p: ^jmt$job_system_label;
         output_system_label_p: ^jmt$output_system_label;
         reason: ost$name;
         parent_job_name: jmt$system_supplied_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc sfd$type_declarations
*copyc jml$user_id
*copyc jmt$job_system_label
*copyc jmt$output_system_label
*copyc jmt$system_supplied_name
*copyc ost$name
*copyc ost$status
?? POP ??
