separate (RPC)

procedure RPC_NS_Mgmt_Handle_Set_Exp_Age(
  NS_Handle      : in     RPC_NS_Handle_Type;
  Expiration_Age : in     DCE_Base.Unsigned32;
  Status         :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_mgmt_handle_set_exp_age(
              ns_handle : RPC_NS_Handle_Type;
              exp_age   : DCE_Base.Unsigned32;
              status    : System.Address);
  pragma INTERFACE (C, rpc_ns_mgmt_handle_set_exp_age);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_ns_mgmt_handle_set_exp_age(NS_Handle,
                                 Expiration_Age,
                                 Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Mgmt_Handle_Set_Exp_Age;