separate (RPC)

procedure RPC_NS_Group_Mbr_Remove(
  Group_Name_Syntax  : in     DCE_Base.NS_Syntax_Type;
  Group_Name         : in     NS_Group_Name_Type;
  Member_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Member_Name        : in     NS_Member_Name_Type;
  Status             :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ns_group_mbr_remove(
              group_name_syntax  : DCE_Base.NS_Syntax_Type;
              group_name         : NS_Group_Name_Type;
              member_name_syntax : DCE_Base.NS_Syntax_Type;
              member_name        : NS_Member_Name_Type;
              status             : System.Address);
  pragma INTERFACE (C, rpc_ns_group_mbr_remove);
  
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_ns_group_mbr_remove(Group_Name_Syntax, Group_Name,
                          Member_Name_Syntax, Member_Name,
                          Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_NS_Group_Mbr_Remove;