
  PROCEDURE [XREF] pfp$create_catalog_object
    (    path: pft$complete_path;
         authority: pft$authority;
         catalog_type: pft$catalog_types;
         parent_charge_id: pft$charge_id;
         charge_id: pft$charge_id;
         p_mass_storage_request_info: {input} ^fmt$mass_storage_request_info;
         p_parent_catalog_file: {i^/o^} ^pft$catalog_file;
         p_catalog_object: {output^} ^pft$physical_object;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fmt$mass_storage_request_info
*copyc ost$status
*copyc pft$authority
*copyc pft$catalog_file
*copyc pft$catalog_types
*copyc pft$charge_id
*copyc pft$complete_path
*copyc pft$physical_object
?? POP ??
