separate (RPC)

procedure RPC_IF_Inq_Id(
  IF_Handle     : in     RPC_Interface_Handle_Type;
  IF_Identifier :    out RPC_Interface_Id_Type;
  Status        :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_if_inq_id(
              if_handle : RPC_Interface_Handle_Type;
              if_id     : System.Address;
              status    : System.Address);
  pragma INTERFACE (C, rpc_if_inq_id);
  
  Local_IF_Id  : RPC_Interface_Id_Type;
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_if_inq_id(IF_Handle, Local_IF_Id'ADDRESS, Local_Status'ADDRESS);
  IF_Identifier := Local_IF_Id;
  Status := Local_Status;
end RPC_IF_Inq_Id;