pears.killotherconnections

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
}