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

---
 CISTOOLS/Functions/QCMD.sql | 46 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 45 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Functions/QCMD.sql b/CISTOOLS/Functions/QCMD.sql
index 602876c..31d07d7 100644
--- a/CISTOOLS/Functions/QCMD.sql
+++ b/CISTOOLS/Functions/QCMD.sql
@@ -1 +1,45 @@
-âÅã@×ÁãÈ@\ÓÉÂÓ@^@
%
%ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKØÃÔÄ@M@
%ÃÔÄ@åÁÙÃÈÁÙMóòððð]@]@
%ÙÅãäÙÕâ@ÃÓÖÂMòñô÷ôøóöô÷]@@@
%ÓÁÕÇäÁÇÅ@âØÓ@
%â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKØÃÔÄ@
%ÕÖã@ÄÅãÅÙÔÉÕÉâãÉÃ@
%ÔÖÄÉÆÉÅâ@âØÓ@ÄÁãÁ@
%ÃÁÓÓÅÄ@ÖÕ@ÕäÓÓ@ÉÕ×äã@
%ÕÖã@ÆÅÕÃÅÄ@
%âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@
%ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@
%ÃÖÔÔÉã@~@\ÃÈÇ@k@
%ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@
%ÄÆãÙÄÂÃÖÓ@~@Øâèâò@k@
%ÄÓè×Ù×@~@\ÕÖ@k@
%ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@
%ÄèÕäâÙ×ÙÆ@~@\ÖæÕÅÙ@k@
%âÙãâÅØ@~@\ÈÅç@k@
%ÂÉÕÄÖ×ã@~@}ÂÕÄÄÉÙMØÃòÓÅ]}@@@
%ÂÅÇÉÕ@
%ÔÁÉÕ@z@ÂÅÇÉÕ@
%ÄÅÃÓÁÙÅ@ÙÃ@åÁÙÃÈÁÙ@M@òõö@]@ÄÅÆÁäÓã@}}@^@
%ÄÅÃÓÁÙÅ@ÓÖÃÁÓmÅÙÙÕÖ@ÉÕã@ÄÅÆÁäÓã@ð@^@
%ÄÅÃÓÁÙÅ@ÙãÕÖäã@ÃÓÖÂ@M@ò@Ç@]@ÄÅÆÁäÓã@}}@^@
%ÄÅÃÓÁÙÅ@ÅÙÙ@ÉÕã@ÄÅÆÁäÓã@ð@^@
%ÉÆ@ÃÔÄ@Éâ@ÕäÓÓ@ãÈÅÕ@
%âÅã@ÃÔÄ@~@}}@^@
%ÅÕÄ@ÉÆ@^@
%ÉÕÃÓäÄÅ@ÃÉâãÖÖÓâ@a@ØâÙÃÆ@M@ØÃÔÄ@]@^@
%âÅã@ÙãÕÖäã@~@ÇÅãmÃÓÖÂmÆÙÖÔmÆÉÓÅ@M@ÙÃ@]@^@
%âÅã@ÅÙÙ@~@âèâãÖÖÓâ@K@ÉÆâmäÕÓÉÕÒ@M@ÙÃ@]@^@
%ÙÅãäÙÕ@ÙãÕÖäã@^@
%ÅÕÄ@^@
%ÅÕÄ@@^@
%
%ÇÙÁÕã@ÁÓãÅÙ@k@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKØÃÔÄ@
%ãÖ@ÁÔÁ×ÉÃâ@æÉãÈ@ÇÙÁÕã@Ö×ãÉÖÕ@^@
%
%ÇÙÁÕã@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKØÃÔÄ@
%ãÖ@×äÂÓÉÃ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.QCMD ( 
+	CMD VARCHAR(32000) ) 
+	RETURNS CLOB(2147483647)   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.QCMD 
+	NOT DETERMINISTIC 
+	MODIFIES SQL DATA 
+	CALLED ON NULL INPUT 
+	NOT FENCED 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *CHG , 
+	DECRESULT = (31, 31, 00) , 
+	DFTRDBCOL = QSYS2 , 
+	DLYPRP = *NO , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *OWNER , 
+	SRTSEQ = *HEX , 
+	BINDOPT = 'BNDDIR(QC2LE)'   
+	BEGIN 
+MAIN : BEGIN 
+DECLARE RC VARCHAR ( 256 ) DEFAULT '' ; 
+DECLARE LOCAL_ERRNO INT DEFAULT 0 ; 
+DECLARE RTNOUT CLOB ( 2 G ) DEFAULT '' ; 
+DECLARE ERR INT DEFAULT 0 ; 
+IF CMD IS NULL THEN 
+SET CMD = '' ; 
+END IF ; 
+INCLUDE CISTOOLS / QSRCF ( QCMD ) ; 
+SET RTNOUT = GET_CLOB_FROM_FILE ( RC ) ; 
+SET ERR = SYSTOOLS . IFS_UNLINK ( RC ) ; 
+RETURN RTNOUT ; 
+END ; 
+END  ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.QCMD 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.QCMD 
+TO PUBLIC ; 
+