
  PROCEDURE [XREF] pfp$r2_get_object_info
    (    family_location: pft$family_location;
         binary_mainframe_id: pmt$binary_mainframe_id;
         evaluated_file_reference: fst$evaluated_file_reference;
         information_request: fst$goi_information_request;
         system_privilege: boolean;
         password_selector: pft$password_selector;
         subject_permit_count: ost$non_negative_integers;
         validation_ring: ost$valid_ring;
         p_validation_criteria: {i^/o^} ^fst$goi_validation_criteria;
         p_object_info: {output^} ^fst$goi_object_information;
     VAR p_object_information: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$evaluated_file_reference
*copyc fst$goi_information_request
*copyc fst$goi_object_information
*copyc fst$goi_validation_criteria
*copyc osd$integer_limits
*copyc osd$virtual_address
*copyc ost$status
*copyc pft$password_selector
*copyc pfe$error_condition_codes
*copyc pft$family_location
*copyc pmt$binary_mainframe_id
?? POP ??
