  PROCEDURE [XREF] dfp$get_family_status
    (    family_name: ost$family_name;
     VAR family_state: dft$family_info_record;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dft$family_info_record
*copyc ost$status
*copyc ost$user_identification
*copyc pfe$error_condition_codes
?? POP ??
