CREATE PROCEDURE SAVEDOCUMENT ( IN xmldoc XML )
BEGIN
  DECLARE SQLSTATE CHAR( 5 ) Default '00000';
  DECLARE docpart XML;
  
  DECLARE parts CURSOR FOR
  SELECT d.docpart FROM XMLTABLE('$s/part' PASSING xmldoc as "s"
	COLUMNS
	docpart XML path '.'
	) as d;
  OPEN parts;
  FETCH parts INTO docpart;
  WHILE SQLSTATE = '00000' DO
    CALL SAVEDOCPART(docpart);
    FETCH parts INTO docpart;
  END WHILE;
  CLOSE parts;
END

CREATE PROCEDURE SAVEDOCUMENT ( IN xmldoc BLOB(1M) )
BEGIN
  DECLARE SQLSTATE CHAR( 5 ) Default '00000';
  DECLARE docpart BLOB(1M);
  
  DECLARE parts CURSOR FOR
  SELECT d.docpart FROM XMLTABLE('$s/part' PASSING XMLPARSE(DOCUMENT xmldoc) as "s"
	COLUMNS
	docpart BLOB(1M) path '.'
	) as d;
  OPEN parts;
  FETCH parts INTO docpart;
  WHILE SQLSTATE = '00000' DO
    CALL SAVEDOCPART(docpart);
    FETCH parts INTO docpart;
  END WHILE;
  CLOSE parts;
END

CREATE PROCEDURE SAVEDOCUMENT ( IN xmldoc СLOB )
BEGIN
  DECLARE SQLSTATE CHAR( 5 ) Default '00000';
  DECLARE docpart СLOB;
  
  DECLARE parts CURSOR FOR
  SELECT XMLSERIALIZE(d.docpart AS CLOB)
  FROM XMLTABLE('$s/part' PASSING XMLPARSE(DOCUMENT xmldoc) as "s"
	COLUMNS
	docpart XML path '.'
	) as d;
  OPEN parts;
  FETCH parts INTO docpart;
  WHILE SQLSTATE = '00000' DO
    CALL SAVEDOCPART(docpart);
    FETCH parts INTO docpart;
  END WHILE;
  CLOSE parts;
END