
  PROCEDURE [XREF] pfp$get_attached_device_info
    (    temporary_file: boolean;
         served_family: boolean;
         served_family_locator: ^pft$served_family_locator,
         p_cycle_description: {input^} ^fmt$cycle_description;
         p_object: {output^} ^fst$goi_object;
     VAR p_object_information: ^SEQ ( * );
     VAR eoi: amt$file_byte_address;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_byte_address
*copyc fmt$cycle_description
*copyc fst$goi_object
*copyc ost$status
*copyc pft$served_family_locator
?? POP ??
