From cf14bced8a4a4cc797fc7ccb869d32a8a31ef8cf Mon Sep 17 00:00:00 2001
From: Alex Zaw <me@alexzaw.dev>
Date: Wed, 25 Feb 2026 23:01:07 +0000
Subject: [PATCH] Update Function GET_QUOTED

---
 CISTOOLS/Functions/GET_QUOTED.sql | 37 ++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Functions/GET_QUOTED.sql b/CISTOOLS/Functions/GET_QUOTED.sql
index cf32a26..e6168f0 100644
--- a/CISTOOLS/Functions/GET_QUOTED.sql
+++ b/CISTOOLS/Functions/GET_QUOTED.sql
@@ -1 +1,36 @@
-âÅã@×ÁãÈ@\ÓÉÂÓ@^@
%
%ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@M@
%ÉÕmâãÙÉÕÇ@ÃÓÖÂMñðôøõ÷ö]@]@
%ÙÅãäÙÕâ@ÃÓÖÂMòðù÷ñõò]@@@
%ÓÁÕÇäÁÇÅ@âØÓ@
%â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@
%ÄÅãÅÙÔÉÕÉâãÉÃ@
%ÙÅÁÄâ@âØÓ@ÄÁãÁ@
%ÙÅãäÙÕâ@ÕäÓÓ@ÖÕ@ÕäÓÓ@ÉÕ×äã@
%âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@
%ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@
%ÃÖÔÔÉã@~@\ÕÖÕÅ@k@
%ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@
%ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@
%ÄèÕäâÙ×ÙÆ@~@\äâÅÙ@k@
%âÙãâÅØ@~@\ÈÅç@@@
%ÂÅÇÉÕ@
%``@Ä–¤‚“…@¤—@¢‰•‡“…@˜¤–£…¢@
%ÙÅãäÙÕ@}}}}@OO@ÙÅ×ÓÁÃÅ@M@ÉÕmâãÙÉÕÇ@k@}}}}@k@}}}}}}@]@OO@}}}}@^@
%ÅÕÄ@@^@
%
%ÃÖÔÔÅÕã@ÖÕ@×ÁÙÁÔÅãÅÙ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@
%M@ÉÕmâãÙÉÕÇ@Éâ@}É•—¤£@⣙‰•‡}@]@^@
%
%ÓÁÂÅÓ@ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@
%Éâ@}Ç…£@ؤ–£…„}@^@
%
%ÇÙÁÕã@ÁÓãÅÙ@k@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@
%ãÖ@ÁÔÁ×ÉÃâ@æÉãÈ@ÇÙÁÕã@Ö×ãÉÖÕ@^@
%
%ÇÙÁÕã@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÇÅãmØäÖãÅÄ@
%ãÖ@×äÂÓÉÃ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.GET_QUOTED ( 
+	IN_STRING CLOB(1048576) ) 
+	RETURNS CLOB(2097152)   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.GET_QUOTED 
+	DETERMINISTIC 
+	READS SQL DATA 
+	RETURNS NULL ON NULL INPUT 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *NONE , 
+	DECRESULT = (31, 31, 00) , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *USER , 
+	SRTSEQ = *HEX   
+	BEGIN 
+-- Double up single quotes 
+RETURN '''' || REPLACE ( IN_STRING , '''' , '''''' ) || '''' ; 
+END  ; 
+
+COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.GET_QUOTED 
+( IN_STRING IS 'Input String' ) ; 
+
+LABEL ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED 
+	IS 'Get Quoted' ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED 
+TO PUBLIC ; 
+