
  PROCEDURE [XREF] qfp$write_job_system_label (
        file_reference: fst$file_reference;
        write_label: boolean;
        system_label: jmt$job_system_label;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$file_reference
*copyc jmt$job_system_label
*copyc ost$status
?? POP ??
