separate (RPC)

procedure RPC_NS_Profile_Elt_Inq_Done(
  Inquiry_Context : in out RPC_NS_Handle_Type;
  Status          :    out DCE_Status.Status_Type) is
-- ****************************************************************************

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

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_ns_profile_elt_inq_done(Inquiry_Context'ADDRESS, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Profile_Elt_Inq_Done;