separate (RPC)

procedure RPC_Mgmt_Inq_Com_Timeout(
  Binding_Handle : in     RPC_Binding_Handle_Type;
  Timeout        :    out DCE_Base.unsigned32;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_inq_com_timeout(
              binding_handle : RPC_Binding_Handle_Type;
              timeout        : System.Address;
              status         : System.Address);
  pragma INTERFACE (C, rpc_mgmt_inq_com_timeout);

  Local_Timeout : DCE_Base.unsigned32;
  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_mgmt_inq_com_timeout(Binding_Handle,
                           Local_Timeout'ADDRESS,
                           Local_Status'ADDRESS);
  Timeout := Local_Timeout;
  Status := Local_Status;
end RPC_Mgmt_Inq_Com_Timeout;