
  PROCEDURE [XREF] qfp$read_job_system_label (
        file_reference: fst$file_reference;
    VAR 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 ??
