
  PROCEDURE [XREF] pfp$r2_attach
    (    r2_attach_input: pft$r2_attach_in;
         update_catalog: boolean;
         update_cycle_statistics: boolean;
         usage_selections: pft$usage_selections;
         share_selections: pft$share_selections;
         system_privilege: boolean;
         validation_ring: ost$valid_ring;
         allowed_cycle_damage_symptoms: fst$cycle_damage_symptoms;
     VAR cycle_number: fst$cycle_number;
     VAR cycle_damage_symptoms: fst$cycle_damage_symptoms;
     VAR global_file_name: ost$binary_unique_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc fst$cycle_damage_symptoms
*copyc fst$cycle_number
*copyc ost$binary_unique_name
*copyc ost$status
*copyc pft$r2_attach_in
*copyc pft$share_selections
*copyc pft$usage_selections
?? POP ??
