pears.killotherconnections [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.killotherconnections ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."killotherconnections"()
/* Application Maintained Function / Procedure - DO NOT EDIT*/
begin
  declare @this_connection_id integer;
  declare @other_connection_id integer;
  select "connection_property"('number') into @this_connection_id;
  select "next_connection"(null,"db_id"()) into @other_connection_id;
  while @other_connection_id is not null loop
    if @other_connection_id <> @this_connection_id then
      execute immediate "string"('drop connection ',@other_connection_id)
    end if;
    select "next_connection"(@other_connection_id,"db_id"())
      into @other_connection_id
  end loop
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."killotherconnections" IS 
{create procedure killotherconnections 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

()
begin
  declare @this_connection_id integer;
  declare @other_connection_id integer;
  select connection_property('number') into @this_connection_id;
  select next_connection(null,db_id(*)) into @other_connection_id;
  while @other_connection_id is not null loop
    if @other_connection_id <> @this_connection_id then
      execute immediate string('drop connection ',@other_connection_id)
    end if;
    select next_connection(@other_connection_id,db_id(*)) into @other_connection_id
  end loop
end
}
</code>