diff --git a/CISTOOLS/Functions/GET_XA_SUBSET.sql b/CISTOOLS/Functions/GET_XA_SUBSET.sql
index a6f2b1c..fcf13de 100644
--- a/CISTOOLS/Functions/GET_XA_SUBSET.sql
+++ b/CISTOOLS/Functions/GET_XA_SUBSET.sql
@@ -1 +1,70 @@
-âÅã@×ÁãÈ@\ÓÉÂÓ@^@
%
%ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmçÁmâäÂâÅã@M@
%çÁmãÖÒÅÕ@ÃÈÁÙMñð]@]@
%ÙÅãäÙÕâ@ÃÓÖÂMñðôøõ÷ö]@@@
%ÓÁÕÇäÁÇÅ@âØÓ@
%â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKÇÅãmçÁmâÃäÂâÅã@
%ÕÖã@ÄÅãÅÙÔÉÕÉâãÉÃ@
%ÔÖÄÉÆÉÅâ@âØÓ@ÄÁãÁ@
%ÃÁÓÓÅÄ@ÖÕ@ÕäÓÓ@ÉÕ×äã@
%âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@
%ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@
%ÃÖÔÔÉã@~@\ÕÖÕÅ@k@
%ÄÂÇåÉÅæ@~@\âÖäÙÃÅ@k@
%ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@
%ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@
%ÄèÕäâÙ×ÙÆ@~@\ÖæÕÅÙ@k@
%âÙãâÅØ@~@\ÈÅç@@@
%ÂÅÇÉÕ@
%ÄÅÃÓÁÙÅ@×ÁÄ@ÃÈÁÙ@M@ñõ@]@ÄÅÆÁäÓã@}}@^@
%ÄÅÃÓÁÙÅ@çÁmÃÖäÕã@k@ÄÖÕÅ@âÔÁÓÓÉÕã@ÄÅÆÁäÓã@ð@^@
%ÄÅÃÓÁÙÅ@ÙÅãäÙÕmÄÁãÁ@ÃÓÖÂ@M@ñðôøõ÷ö@]@ÄÅÆÁäÓã@}}@^@
%ÄÅÃÓÁÙÅ@çÁmÃäÙâÖÙ@ÃäÙâÖÙ@ÆÖÙ@çÁmâãÁãÅÔÅÕã@^@
%ÄÅÃÓÁÙÅ@ÃÖÕãÉÕäÅ@ÈÁÕÄÓÅÙ@ÆÖÙ@ÕÖã@ÆÖäÕÄ@âÅã@ÄÖÕÅ@~@ñ@^@
%ÄÅÃÓÁÙÅ@ÃÖÕãÉÕäÅ@ÈÁÕÄÓÅÙ@ÆÖÙ@âØÓÅçÃÅ×ãÉÖÕ@âÅã@ÄÖÕÅ@~@ñ@^@
%âÅã@âØÓmâãÁãÅÔÅÕã@~@}}@^@
%âÅã@ÄÖÕÅ@~@ð@^@
%ÆÖÙ@çÁmâØÓ@Áâ@âÅÓÅÃã@
%ãÙÉÔ@M@âäÂâãÙ@M@âÓÃÓ@k@ñ@k@ÓÖÃÁãÅ@M@}ÆÖÙ@ÆÅãÃÈ@ÖÕÓè}@k@ä××ÅÙ@M@âÓÃÓ@]@]@`@ñ@]@]Áâ@çÁmâØÓ@
%ÆÙÖÔ@ÔâÃâÓã@
%æÈÅÙÅ@ãâÇ×@~@çÁmãÖÒÅÕ@
%ÄÖ@
%ÉÆ@ÄÖÕÅ@~@ð@ãÈÅÕ@
%âÅã@çÁmÃÖäÕã@~@çÁmÃÖäÕã@N@ñ@^@
%ÉÆ@çÁmÃÖäÕã@~@ñ@ãÈÅÕ@
%ÅçÅÃäãÅ@ÉÔÔÅÄÉÁãÅ@
%}Ä…ƒ“�™…@Ç“–‚�“@ã…”—–™�™¨@ã�‚“…@â…¢¢‰–•K}@OO@çÁmãÖÒÅÕ@OO@
%}@Á¢@%@@@@@@@@@@@@@@@@@@@@@Mâ…“…ƒ£@\%@@@@@@@@@@@@@@@@@@@@@@@@@@@Æ™–”@ã�‚“…M}@OOçÁmâØÓ@OO@}]]%@@@@@@@@@@@@@@@@@@@@@æ‰£ˆ@Ä�£�%@@@@@@@@@@@@@@@æ‰£ˆ@Ù…—“�ƒ…}@^@
%ÅÓâÅ@
%ÅçÅÃäãÅ@ÉÔÔÅÄÉÁãÅ@}É•¢…™£@É•£–@â…¢¢‰–•K}@OO@çÁmãÖÒÅÕ@OO@
%}@â…“…ƒ£@\%@@@@@@@@@@@@@@@@@@Æ™–”@ã�‚“…M}@OO@çÁmâØÓ@OO@}]}@^@
%ÅÕÄ@ÉÆ@^@
%ÅÕÄ@ÉÆ@^@
%ÅÕÄ@ÆÖÙ@^@
%×ÙÅ×ÁÙÅ@çÁmâãÁãÅÔÅÕã@ÆÙÖÔ@
%}å�“¤…¢@Ç…•…™�£…mÑâÖÕM}}â…“…ƒ£@\@Æ™–”@â…¢¢‰–•K}@OO@çÁmãÖÒÅÕ@OO@
%}}}]@É•£–@o}@^@
%ÅçÅÃäãÅ@çÁmâãÁãÅÔÅÕã@äâÉÕÇ@ÙÅãäÙÕmÄÁãÁ@^@
%ÙÅãäÙÕ@ÙÅãäÙÕmÄÁãÁ@^@
%ÅÕÄ@@^@
%
%ÃÖÔÔÅÕã@ÖÕ@×ÁÙÁÔÅãÅÙ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmçÁmâÃäÂâÅã@
%M@çÁmãÖÒÅÕ@Éâ@}çÁ@ã–’…•}@]@^@
%
%ÓÁÂÅÓ@ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmçÁmâÃäÂâÅã@
%Éâ@}Ç…£@ç�@â¤‚¢…£}@^@
%
%ÇÙÁÕã@ÁÓãÅÙ@k@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmçÁmâÃäÂâÅã@
%ãÖ@ÁÔÁ×ÉÃâ@æÉãÈ@ÇÙÁÕã@Ö×ãÉÖÕ@^@
%
%ÇÙÁÕã@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmçÁmâÃäÂâÅã@
%ãÖ@×äÂÓÉÃ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.GET_XA_SUBSET ( 
+	XA_TOKEN CHAR(10) ) 
+	RETURNS CLOB(1048576)   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.GET_XA_SCUBSET 
+	NOT DETERMINISTIC 
+	MODIFIES SQL DATA 
+	CALLED ON NULL INPUT 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *NONE , 
+	DBGVIEW = *SOURCE , 
+	DECRESULT = (31, 31, 00) , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *OWNER , 
+	SRTSEQ = *HEX   
+	BEGIN 
+DECLARE PAD CHAR ( 15 ) DEFAULT '' ; 
+DECLARE XA_COUNT , DONE SMALLINT DEFAULT 0 ; 
+DECLARE RETURN_DATA CLOB ( 1048576 ) DEFAULT '' ; 
+DECLARE XA_CURSOR CURSOR FOR XA_STATEMENT ; 
+DECLARE CONTINUE HANDLER FOR NOT FOUND SET DONE = 1 ; 
+DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET DONE = 1 ; 
+SET SQL_STATEMENT = '' ; 
+SET DONE = 0 ; 
+FOR XA_SQL AS SELECT 
+TRIM ( SUBSTR ( SLCL , 1 , LOCATE ( 'FOR FETCH ONLY' , UPPER ( SLCL ) ) - 1 ) )AS XA_SQL 
+FROM MSCSLT 
+WHERE TSGP = XA_TOKEN 
+DO 
+IF DONE = 0 THEN 
+SET XA_COUNT = XA_COUNT + 1 ; 
+IF XA_COUNT = 1 THEN 
+EXECUTE IMMEDIATE 
+'Declare Global Temporary Table Session.' || XA_TOKEN || 
+' As 
+                     (Select *
+                           From Table(' ||XA_SQL || '))
+                     With Data
+               With Replace' ; 
+ELSE 
+EXECUTE IMMEDIATE 'Insert Into Session.' || XA_TOKEN || 
+' Select *
+                  From Table(' || XA_SQL || ')' ; 
+END IF ; 
+END IF ; 
+END FOR ; 
+PREPARE XA_STATEMENT FROM 
+'Values Generate_JSON(''Select * From Session.' || XA_TOKEN || 
+''') Into ?' ; 
+EXECUTE XA_STATEMENT USING RETURN_DATA ; 
+RETURN RETURN_DATA ; 
+END  ; 
+
+COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.GET_XA_SCUBSET 
+( XA_TOKEN IS 'XA Token' ) ; 
+
+LABEL ON SPECIFIC FUNCTION CISTOOLS.GET_XA_SCUBSET 
+	IS 'Get Xa Subset' ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.GET_XA_SCUBSET 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.GET_XA_SCUBSET 
+TO PUBLIC ; 
+
