separate (RPC)

procedure RPC_NS_Group_Mbr_Inq_Next(
  Inquiry_Context : in     RPC_NS_Handle_Type;
  Member_Name     :    out NS_Member_Name_Type;
  Status          :    out DCE_Status.Status_Type;
  No_Return_Name  : in     boolean := FALSE) is
-- ****************************************************************************

  use C_String_Pkg; -- /// For direct visibility to the "/=" operator

  procedure rpc_ns_group_mbr_inq_next(
              inquiry_context : RPC_NS_Handle_Type;
              member_name     : System.Address;
              status          : System.Address);
  pragma INTERFACE (C, rpc_ns_group_mbr_inq_next);
  
  Local_Name      : C_String_Pkg.C_String;
  Local_Name_Addr : System.Address := Local_Name'ADDRESS;
  Local_Status    : DCE_Status.Status_Type;
  Length          : natural := 0;

begin
  if No_Return_Name then
    Local_Name_Addr := System.NULL_ADDRESS;
  end if;

  rpc_ns_group_mbr_inq_next(Inquiry_Context,
                            Local_Name_Addr,
                            Local_Status'ADDRESS);
  Status := Local_Status;
  if (Local_Name /= NULL) then
    C_String_Pkg.C_to_Ada_String(Local_Name, string(Member_Name), FALSE);
    RPC_String_Free(Local_Name'ADDRESS, Local_Status);
  end if;
end RPC_NS_Group_Mbr_Inq_Next;