separate (RPC)

procedure RPC_Binding_from_String_Binding(
  String_Binding : in     RPC_String_Binding_Type;
  Binding_Handle :    out RPC_Binding_Handle_Type;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_binding_from_string_binding(
              string_binding : RPC_String_Binding_Type;
              binding_handle : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_binding_from_string_binding);

  Local_Status   : DCE_Status.Status_Type;
  Local_Binding  : RPC_Binding_Handle_Type;

begin
  rpc_binding_from_string_binding(String_Binding,
                                  Local_Binding'ADDRESS,
                                  Local_Status'ADDRESS);
  Binding_Handle := Local_Binding;
  Status := Local_Status;
end RPC_Binding_from_String_Binding;