separate (RPC)

procedure RPC_NS_Binding_Select(
  Binding_Vector : in out RPC_Binding_Vector_Type;
  Binding_Handle :    out RPC_Binding_Handle_Type;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_binding_select(
              binding_vector : RPC_Binding_Vector_Type;
              binding_handle : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_ns_binding_select);

  Local_Binding : RPC_Binding_Handle_Type;
  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_ns_binding_select(Binding_Vector,
			Local_Binding'ADDRESS, Local_Status'ADDRESS);
  Binding_Handle := Local_Binding;
  Status := Local_Status;
end RPC_NS_Binding_Select;