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

---
 CISTOOLS/Functions/ROWS_COUNTER.sql | 49 ++++++++++++++++++++++++++++-
 1 file changed, 48 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Functions/ROWS_COUNTER.sql b/CISTOOLS/Functions/ROWS_COUNTER.sql
index ae12ee5..75617aa 100644
--- a/CISTOOLS/Functions/ROWS_COUNTER.sql
+++ b/CISTOOLS/Functions/ROWS_COUNTER.sql
@@ -1 +1,48 @@
-âÅã@×ÁãÈ@\ÓÉÂÓ@^@
%
%ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@M@
%ÅÕÄÙÖæ@ÉÕãÅÇÅÙ@]@
%ÙÅãäÙÕâ@ãÁÂÓÅ@M@
%ÙÕ@ÉÕãÅÇÅÙ@]@@@
%ÓÁÕÇäÁÇÅ@âØÓ@
%â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@
%ÄÅãÅÙÔÉÕÉâãÉÃ@
%ÙÅÁÄâ@âØÓ@ÄÁãÁ@
%ÃÁÓÓÅÄ@ÖÕ@ÕäÓÓ@ÉÕ×äã@
%âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@
%ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@
%ÃÖÔÔÉã@~@\ÕÖÕÅ@k@
%ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@
%ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@
%ÄèÕäâÙ×ÙÆ@~@\äâÅÙ@k@
%âØÓÃäÙÙäÓÅ@~@\âãÄ@k@
%âÙãâÅØ@~@\ÈÅç@@@
%ÂÅÇÉÕ@
%ÙÅãäÙÕ@æÉãÈ@ÙÅÃäÙâÉåÅ@ÃÖäÕãÅÙ@M@ÙÕ@]@Áâ@M@
%âÅÓÅÃã@\@
%ÆÙÖÔ@ãÁÂÓÅ@M@
%åÁÓäÅâ@ñ@
%]@ç@M@ÙÕ@]@
%äÕÉÖÕ@ÁÓÓ@
%``@Ù…ƒ¤™¢‰¥…@”…”‚…™k@¤•‰–•…„@¦‰£ˆ@£ˆ…@™…¢¤“£@–†@£ˆ…@—™…¥‰–¤¢@¢£…—K@
%âÅÓÅÃã@ÙÕ@N@ñ@
%ÆÙÖÔ@ÃÖäÕãÅÙ@
%æÈÅÙÅ@ÙÕ@L@ÅÕÄÙÖæ@
%]@âÅÓÅÃã@ÙÕ@
%ÆÙÖÔ@ÃÖäÕãÅÙ@^@
%ÅÕÄ@@^@
%
%ÃÖÔÔÅÕã@ÖÕ@×ÁÙÁÔÅãÅÙ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@
%M@ÅÕÄÙÖæ@Éâ@}Å•„@Ù–¦}@]@^@
%
%ÓÁÂÅÓ@ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@
%Éâ@}Ù–¦¢@Ö¤•£…™}@^@
%
%ÇÙÁÕã@ÁÓãÅÙ@k@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@
%ãÖ@ÁÔÁ×ÉÃâ@æÉãÈ@ÇÙÁÕã@Ö×ãÉÖÕ@^@
%
%ÇÙÁÕã@ÅçÅÃäãÅ@@@
%ÖÕ@â×ÅÃÉÆÉÃ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKÙÖæâmÃÖäÕãÅÙ@
%ãÖ@×äÂÓÉÃ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.ROWS_COUNTER ( 
+	ENDROW INTEGER ) 
+	RETURNS TABLE ( 
+	RN INTEGER )   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.ROWS_COUNTER 
+	DETERMINISTIC 
+	READS SQL DATA 
+	CALLED ON NULL INPUT 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *NONE , 
+	DECRESULT = (31, 31, 00) , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *USER , 
+	SQLCURRULE = *STD , 
+	SRTSEQ = *HEX   
+	BEGIN 
+RETURN WITH RECURSIVE COUNTER ( RN ) AS ( 
+SELECT * 
+FROM TABLE ( 
+VALUES 1 
+) X ( RN ) 
+UNION ALL 
+-- Recursive member, unioned with the result of the previous step. 
+SELECT RN + 1 
+FROM COUNTER 
+WHERE RN < ENDROW 
+) SELECT RN 
+FROM COUNTER ; 
+END  ; 
+
+COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.ROWS_COUNTER 
+( ENDROW IS 'End Row' ) ; 
+
+LABEL ON SPECIFIC FUNCTION CISTOOLS.ROWS_COUNTER 
+	IS 'Rows Counter' ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.ROWS_COUNTER 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.ROWS_COUNTER 
+TO PUBLIC ; 
+