CREATE PROCEDURE TEST.SELECT_XML (IN xmlparam xml)
RESULT SETS 1
PL: BEGIN
    declare query VARCHAR(32704);
    declare c1 cursor with return for s1;
    SET query= 'select t.id_payment from 
	xmltable(''$c/begin/row'' passing ? as "c"
	columns id_payment BIGINT path ''id_payment'') as t;';
    prepare s1 from query;
    open c1 USING xmlparam;
END PL

CREATE PROCEDURE TEST.SELECT_XML  (IN xmlparam xml, OUT query VARCHAR(32704))
PL: BEGIN
declare my_id_payment bigint;
declare SQLCODE        int;
declare c1 cursor for 
	select t.id_payment from 
	xmltable('$c/begin/row' passing xmlparam as "c"
	columns id_payment BIGINT path 'id_payment') as t;
set query='';
open c1;
fetch c1 into my_id_payment;
	while (SQLCODE!=100) do
		set query=query||','||my_id_payment;
		fetch c1 into my_id_payment;
	end while;
close c1;
set query=SUBSTR(query,2,length(query)-1);
END PLL