separate (RPC)

procedure RPC_Mgmt_Set_Cancel_Timeout(
  Seconds : in     DCE_Base.signed32;
  Status  :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_set_cancel_timeout(
              seconds : DCE_Base.signed32;
              status  : System.Address);
  pragma INTERFACE (C, rpc_mgmt_set_cancel_timeout);

  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_mgmt_set_cancel_timeout(Seconds, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Mgmt_Set_Cancel_Timeout;