CREATE FUNCTION	XSLTransformToClob
(
  src		CLOB (1M)
, tmp		CLOB (1M)
, tracefile	VARCHAR( 255 )
) 
RETURNS CLOB (2M) ...

CREATE PROCEDURE SHOW_PAGE_1 ()
language sql
BEGIN ATOMIC
	DECLARE SRC CLOB(1M);
	DECLARE DECT CLOB(1M);
	
	SELECT XMLSERIALIZE (OBJECT AS CLOB(1M)) INTO SRC FROM DASUSR1.OBJECTS WHERE ID =  1  FETCH FIRST  1  ROWS ONLY;
	SELECT XMLSERIALIZE (A AS CLOB(1M)) INTO DECT FROM DASUSR1.CLOB_TAB WHERE ID =  1  FETCH FIRST  1  ROWS ONLY;
	
	INSERT INTO DASUSR1.CLOB_TAB VALUES (DASUSR1.XSLTRANSFORMTOCLOB( SRC, DECT, '/var/log_db2/s.log'));
END@

CREATE TABLE OBJECTS(
	ID INT,
	OBJECT XML
)@

CREATE TABLE CLOB_TAB(
	ID INT,
	A XML
)@