
  PROCEDURE [XREF] fmp$catalog_system_file_label
    (    system_file_label: ^fmt$system_file_label;
         job_routing_label: ^SEQ ( * );
         job_routing_label_length: jmt$system_label_info_length;
         apfid: pft$attached_permanent_file_id;
         required_permission: pft$permit_options;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fmt$system_file_label
*copyc jmt$system_label_info_length
*copyc pft$attached_permanent_file_id
*copyc pft$permit_options
*copyc ost$status
?? POP ??
