From 0d3e65c7d0bbd2d6bbae7945601054ab6fb8e38b Mon Sep 17 00:00:00 2001
From: Alex Zaw <me@alexzaw.dev>
Date: Wed, 25 Feb 2026 23:02:28 +0000
Subject: [PATCH] Update Function TO_CYMD

---
 CISTOOLS/Functions/TO_CYMD.sql | 41 +++++++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Functions/TO_CYMD.sql b/CISTOOLS/Functions/TO_CYMD.sql
index fcb1697..89679fe 100644
--- a/CISTOOLS/Functions/TO_CYMD.sql
+++ b/CISTOOLS/Functions/TO_CYMD.sql
@@ -1 +1,40 @@
-âÅã@×ÁãÈ@\ÓÉÂÓ@^@
%
%ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKãÖmÃèÔÄ@M@
%ÉÕÄÁãÅ@ÄÁãÅ@ÄÅÆÁäÓã@@ÕäÓÓ@@]@
%ÙÅãäÙÕâ@ÄÅÃÉÔÁÓM÷k@ð]@@@
%ÓÁÕÇäÁÇÅ@âØÓ@
%â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKãÖmÃèÔÄ@
%ÄÅãÅÙÔÉÕÉâãÉÃ@
%ÙÅÁÄâ@âØÓ@ÄÁãÁ@
%ÃÁÓÓÅÄ@ÖÕ@ÕäÓÓ@ÉÕ×äã@
%âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@
%ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@
%ÃÖÔÔÉã@~@\ÕÖÕÅ@k@
%ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@
%ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@
%ÄèÕäâÙ×ÙÆ@~@\äâÅÙ@k@
%âÙãâÅØ@~@\ÈÅç@@@
%ÂÅÇÉÕ@
%ÄÅÃÓÁÙÅ@Ä@ÄÁãÅ@^@
%âÅã@Ä@~@ÃäÙÙÅÕãmÄÁãÅ@^@
%ÉÆ@ÉÕÄÁãÅ@Éâ@ÕÖã@ÕäÓÓ@ãÈÅÕ@
%âÅã@Ä@~@ÉÕÄÁãÅ@^@
%ÅÕÄ@ÉÆ@^@
%ÙÅãäÙÕ@
%M@
%ÃÁâÅ@
%æÈÅÕ@èÅÁÙ@M@Ä@]@n~@òððð@ãÈÅÕ@ñ@
%ÅÓâÅ@ð@
%ÅÕÄ@]@\@ñðððððð@N@ÔÖÄ@M@èÅÁÙ@M@Ä@]@k@ñðð@]@\@ñðððð@N@ÔÖÕãÈ@M@Ä@]@\@ñðð@N@
%ÄÁè@M@Ä@]@^@
%ÅÕÄ@@^@
%
%ÇÙÁÕã@ÁÓãÅÙ@k@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKãÖmÃèÔÄ@
%ãÖ@ÁÔÁ×ÉÃâ@æÉãÈ@ÇÙÁÕã@Ö×ãÉÖÕ@^@
%
%ÇÙÁÕã@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKãÖmÃèÔÄ@
%ãÖ@×äÂÓÉÃ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.TO_CYMD ( 
+	INDATE DATE DEFAULT  NULL  ) 
+	RETURNS DECIMAL(7, 0)   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.TO_CYMD 
+	DETERMINISTIC 
+	READS SQL DATA 
+	CALLED ON NULL INPUT 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *NONE , 
+	DECRESULT = (31, 31, 00) , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *USER , 
+	SRTSEQ = *HEX   
+	BEGIN 
+DECLARE D DATE ; 
+SET D = CURRENT_DATE ; 
+IF INDATE IS NOT NULL THEN 
+SET D = INDATE ; 
+END IF ; 
+RETURN 
+( 
+CASE 
+WHEN YEAR ( D ) >= 2000 THEN 1 
+ELSE 0 
+END ) * 1000000 + MOD ( YEAR ( D ) , 100 ) * 10000 + MONTH ( D ) * 100 + 
+DAY ( D ) ; 
+END  ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.TO_CYMD 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.TO_CYMD 
+TO PUBLIC ; 
+