
  PROCEDURE [XREF] pup$verify_family_administrator
    (    request_name: string ( * <= osc$max_name_size);
         family_name: pft$name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc ost$status
*copyc pft$name
?? POP ??
