ALTER PROCEDURE "DBA"."disconnect"() 
BEGIN
  DECLARE @SQL long varchar;

  SELECT List('drop connection ' || number || ';', '\n')
  INTO @SQL
  FROM sa_conn_info()
  WHERE number <> connection_property( 'number' );

  EXECUTE IMMEDIATE @SQL WITH RESULT SET OFF;
END

ALTER PROCEDURE "DBA"."disconnect"() 
BEGIN
  FOR listCon AS curCon NO SCROLL CURSOR FOR
    SELECT Number AS @Number
    FROM sa_conn_info()
    WHERE number <> connection_property( 'number' )
  DO
    MESSAGE 'drop connection ' || @Number TO CLIENT;
    EXECUTE IMMEDIATE WITH RESULT SET OFF 'DROP CONNECTION ' || @number;
  END FOR;
END;