Вы можете попробовать с этим
select SUBSTRING ( '{A,A,A,B,B,B}',1,position('B' in '{A,A,A,B,B,B}') -1)||SUBSTRING ('{A,A,A,B,B,B}',position('B' in '{A,A,A,B,B,B}')+1)
Сначала найдите позицию B в строке, затем найдите подстроку до первого появления B, то есть '{A, A, A, затемполучить подстроку оставшейся строки, выходящей из B, т. е. B, B} '