separate (RPC)

function RPC_Mgmt_Is_Server_Listening(
  Binding_Handle : in RPC_Binding_Handle_Type;
  Status         : in DCE_Status.Status_Type)
return DCE_Base.boolean32 is
-- ****************************************************************************

  function rpc_mgmt_is_server_listening(
              binding_handle : RPC_Binding_Handle_Type;
              status         : System.Address) return DCE_Base.boolean32;
  pragma INTERFACE (C, rpc_mgmt_is_server_listening);

  Local_Binding : RPC_Binding_Handle_Type := Binding_Handle;

begin
  return ( rpc_mgmt_is_server_listening(Binding_Handle, Status'ADDRESS) );
end RPC_Mgmt_Is_Server_Listening;