separate (RPC)

procedure RPC_SM_Enable_Allocate(
  Status : out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_sm_enable_allocate(status : System.Address);
  pragma INTERFACE (C, rpc_sm_enable_allocate);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_sm_enable_allocate(Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_SM_Enable_Allocate;