  PROCEDURE [XREF] osp$set_client_access
    (    family: ost$family_name;
         family_access: dft$family_access;
         all_clients: boolean;
         p_binary_client_list: ^array [1 .. * ] of pmt$binary_mainframe_id;
         number_of_clients: 0 .. dfc$maximum_partner_mainframes;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dft$family_access
*copyc dft$partner_mainframe_list
*copyc ost$status
*copyc ost$user_identification
*copyc pmt$binary_mainframe_id
?? POP ??
