

  PROCEDURE [XREF] dfp$change_family_verification
    (    family: ost$name;
         mainframe_id: pmt$binary_mainframe_id;
         family_access: dft$family_access;
         verified_by_server: boolean;
         server_lifetime: dft$server_lifetime;
         server_birthdate: integer;
         current_server_state: dft$server_state;
     VAR verification_changed: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dfe$error_condition_codes
*copyc dft$family_access
*copyc dft$server_lifetime
*copyc dft$server_state
*copyc ost$name
*copyc ost$status
*copyc pmt$binary_mainframe_id
?? POP ??
