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

---
 .../ES_V2_GET_ALL_MAPICS_ENVIRONMENTS.sql     | 72 ++++++++++++++++++-
 1 file changed, 71 insertions(+), 1 deletion(-)

diff --git a/SAILPOINT/Functions/ES_V2_GET_ALL_MAPICS_ENVIRONMENTS.sql b/SAILPOINT/Functions/ES_V2_GET_ALL_MAPICS_ENVIRONMENTS.sql
index 80a46ab..66ade35 100644
--- a/SAILPOINT/Functions/ES_V2_GET_ALL_MAPICS_ENVIRONMENTS.sql
+++ b/SAILPOINT/Functions/ES_V2_GET_ALL_MAPICS_ENVIRONMENTS.sql
@@ -1 +1,71 @@
-���@����@\����@^@
%
%������@��@�������@��������@���������K��m��m���m���m������m������������@M@]@
%�������@����M����������]@@@
%��������@���@
%��������@���������K��m���������@
%���@�������������@
%��������@���@����@
%������@��@����@�����@
%���@������@
%���@������@@������@~@\�������@k@
%���������@~@\��������@k@
%������@~@\����@k@
%�������@~@\������@k@
%���������@~@M��k@��k@��]@k@
%������@~@\��@k@
%���������@~@\��@k@
%���������@~@\�����@k@
%������@~@\���@@@
%�����@
%������@
%M@
%������@����m������@M@
%}����}@z@
%����m��������@M@
%����m������@M@
%}���Ʉ}@�����@�����@k@}���Ģ�}@�����@�����@k@
%}��ɕ�������}@�����@��m���������@
%]@
%]@k@
%}������}@z@����m�����@M@]@
%]@
%����@�����@M@
%������@�����@k@�����@k@
%����@
%����@���������@n@�@����@}����}@
%����@}�����}@
%���@��@��m���������@
%����@�����@M@
%������@��������@�����@k@�����@k@
%�����@M@������@]@����@M@
%���������@��@�����@k@�����@
%]@��@���������@
%����@�����@M@
%������@�����@OO@�����@��@�����@k@
%}������}@OO@
%����@�����@OO@�����@
%����@}��}@����@}}@
%����@�����@
%���@��@������@k@�����@
%����@����@K@������@
%�����@�����@~@}��}@
%���@�����@~@}�}@
%]@
%����@�����@M@
%�����@K@������m����������@M@
%������@k@}\����}@]@
%]@
%��@�@~@�@
%]@
%]@]@^@
%���@@^@
%
%�����@�����@k@�������@@@
%��@��������@��������@���������K��m���������@
%��@�������@����@�����@������@^@
%
%�����@�������@@@
%��@��������@��������@���������K��m���������@
%��@������@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION SAILPOINT.ES_V2_GET_ALL_MAPICS_ENVIRONMENTS ( ) 
+	RETURNS CLOB(2147483647)   
+	LANGUAGE SQL 
+	SPECIFIC SAILPOINT.V2_ESALLENVS 
+	NOT DETERMINISTIC 
+	MODIFIES SQL DATA 
+	CALLED ON NULL INPUT 
+	NOT FENCED 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *NONE , 
+	DBGVIEW = *SOURCE , 
+	DECRESULT = (31, 31, 00) , 
+	DLYPRP = *NO , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *OWNER , 
+	SRTSEQ = *HEX   
+	BEGIN 
+RETURN 
+( 
+SELECT JSON_OBJECT ( 
+'data' : 
+JSON_ARRAYAGG ( 
+JSON_OBJECT ( 
+'envId' VALUE ENVID , 'envDsc' VALUE ENDSC , 
+'esInstalled' VALUE ES_INSTALLED 
+) 
+) , 
+'errors' : JSON_ARRAY ( ) 
+) 
+FROM TABLE ( 
+SELECT ENVID , ENDSC , 
+CASE 
+WHEN FILECOUNT > 0 THEN 'true' 
+ELSE 'false' 
+END AS ES_INSTALLED 
+FROM TABLE ( 
+SELECT DISTINCT ENVID , ENDSC , 
+COUNT ( CESLIB ) OVER ( 
+PARTITION BY ENVID , ENDSC 
+) AS FILECOUNT 
+FROM TABLE ( 
+SELECT LIDES || FIDES AS ENVID , 
+'CESLIB' || 
+CASE LIDES || FIDES 
+WHEN 'MM' THEN '' 
+ELSE FIDES 
+END AS CESLIB , ENDSC 
+FROM QGPL . MMLIST 
+WHERE RCDCD = 'M3' 
+AND ACREC = 'A' 
+) 
+JOIN TABLE ( 
+QSYS2 . OBJECT_STATISTICS ( 
+CESLIB , '*FILE' ) 
+) 
+ON 1 = 1 
+) 
+) ) ; 
+END  ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION SAILPOINT.V2_ESALLENVS 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION SAILPOINT.V2_ESALLENVS 
+TO PUBLIC ; 
+