From 3e2f114681bc5518d870d201a5944f04033247df Mon Sep 17 00:00:00 2001 From: Alex Zaw Date: Wed, 25 Feb 2026 23:06:46 +0000 Subject: [PATCH] Update Function ES_GET_ALL_MAPICS_USERS --- .../Functions/ES_GET_ALL_MAPICS_USERS.sql | 92 ++++++++++++++++++- 1 file changed, 91 insertions(+), 1 deletion(-) diff --git a/SAILPOINT/Functions/ES_GET_ALL_MAPICS_USERS.sql b/SAILPOINT/Functions/ES_GET_ALL_MAPICS_USERS.sql index e784465..722da89 100644 --- a/SAILPOINT/Functions/ES_GET_ALL_MAPICS_USERS.sql +++ b/SAILPOINT/Functions/ES_GET_ALL_MAPICS_USERS.sql @@ -1 +1,91 @@ -@@\@^@ % %@@@@Kmmmm@M@ %@M]@]@ %@M]@@@ %@@ %@K@ %@@ %@@@ %@@@@ %@@ %@@@@~@\@k@ %@~@\@k@ %@~@\@k@ %@~@\@k@ %@~@Mk@k@]@k@ %@~@\@k@ %@~@\@k@ %@~@\@@@ %@ %@@@@@ %@ %@m@@M@@]@^@ %@mmm@@^@ %@mmm@@M@@]@^@ %@mm@@M@@]@^@ %``@Á@@@ %@@@@ %mmm@~@mm@k@m@~@m@k@mm@~@m@k@ %mmm@~@mm@^@ %@ %M@ %@m@M@ %}}@@}}@k@}ɕ}@@m@M@ %}⣁}@@m@k@}Ö}@@mmm@k@}}@@mmm@k@ %}}@@mm@k@}㉔}@@m@ %]@ %]@]@^@ %@^@ %@@K@@~@@K@mm@M@@]@^@ %``@Á@Éa⣁mԁMŕ]^@ %@ %@M@ %m@M@ %}}@@}}@k@}}@@M@ %@m@M@ %m@M@ %}Ʉ}@@@M@@M@@@@M@@]@@@]@]@k@}Ձ}@@M@ %@M@@@@M@@]@@@]@]@k@}㨗}@@@M@@M@ %@@ %@}@}@@}Dž@䢅}@ %@}}@@}}@ %@}}@@}⨢a@䢅}@ %@}}@@}Dž@䢅}@ %@}M䕒]}@ %@@@M@@]@@@]@]@k@}ą}@@m@M@ %@M@@M@@@@M@@]@@@]@]@@@M@@M@@@@M@@]@@@]@]@ %@@@ %]@k@}ŔՖ}@@@M@@M@@@@M@@]@@@]@]@k@}}@@@M@@M@ %@@ %@}}@@}}@ %@}@}@@}䕒}@ %@}}@@}ĉ}@ %@@@M@@]@@@]@]@ %]@ %]@ %@@ %@@ %@@@ %@@~@@ %@@~@@ %@@ %@@~@@ %@@Ln@}}@@ %@~@@]@@@ %]@k@m@M@ %}}@@}}@k@}ɕ}@@m@M@ %}}@@}}@k@}}@@}م@@@@}@k@ %}㉔}@@m@ %]@ %]@]@^@ %@@^@ % %@@k@@@@ %@@@K@ %@@@@@^@ % %@ \ No newline at end of file +SET PATH *LIBL ; + +CREATE OR REPLACE FUNCTION SAILPOINT.ES_GET_ALL_MAPICS_USERS ( + ENVIRONMENT VARCHAR(2) ) + RETURNS CLOB(2147483647) + LANGUAGE SQL + SPECIFIC SAILPOINT.ESRTVMUSRS + 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) , + DYNDFTCOL = *NO , + DYNUSRPRF = *OWNER , + SRTSEQ = *HEX + BEGIN +DECLARE CONTINUE HANDLER FOR SQLEXCEPTION +BEGIN +DECLARE V_SQLSTATE CHAR ( 5 ) ; +DECLARE V_DB2_RETURN_CODE INT ; +DECLARE V_DB2_MESSAGE_ID CHAR ( 7 ) ; +DECLARE V_ERROR_MESSAGE CLOB ( 2048 ) ; +-- Capture diagnostic info +GET DIAGNOSTICS CONDITION 1 +V_DB2_RETURN_CODE = DB2_RETURNED_SQLCODE , V_SQLSTATE = RETURNED_SQLSTATE , V_ERROR_MESSAGE = MESSAGE_TEXT , +V_DB2_MESSAGE_ID = DB2_MESSAGE_ID ; +RETURN +( +VALUES JSON_OBJECT ( +'success' VALUE 'false' , 'SQLInfo' VALUE JSON_OBJECT ( +'SQLState' VALUE V_SQLSTATE , 'SQLCode' VALUE V_DB2_RETURN_CODE , 'messageID' VALUE V_DB2_MESSAGE_ID , +'message' VALUE V_ERROR_MESSAGE , 'currentTimestamp' VALUE CURRENT_TIMESTAMP +) +) ) ; +END ; +SET CISTOOLS . LIBL = CISTOOLS . SET_LIBRARY_LIST ( ENVIRONMENT ) ; +-- Call Cistools/Start_Mapics(Environment); +RETURN +COALESCE ( +JSON_OBJECT ( +'success' VALUE 'true' , 'data' VALUE ( +SELECT JSON_ARRAYAGG ( +JSON_OBJECT ( +'userId' VALUE TRIM ( CAST ( F0BUCD AS VARCHAR ( 10 ) CCSID 37 ) ) , 'userName'VALUE TRIM ( +CAST ( F0H1TX AS VARCHAR ( 60 ) CCSID 37 ) ) , 'userType' VALUE TRIM ( CAST ( +CASE EXTYPE +WHEN ' ' THEN 'General User' +WHEN 'A' THEN 'Administrator' +WHEN 'S' THEN 'System/Application User' +WHEN 'G' THEN 'Generic User' +ELSE '(Unknown)' +END AS VARCHAR ( 50 ) CCSID 37 ) ) , 'userDept' VALUE JSON_OBJECT ( +TRIM ( CAST ( EXDEPT AS VARCHAR ( 10 ) CCSID 37 ) ) VALUE TRIM ( CAST ( EUDESC AS VARCHAR ( 60 ) CCSID 37 ) ) +ABSENT ON NULL +) , 'userEmpNo' VALUE TRIM ( CAST ( EXT08A AS VARCHAR ( 10 ) CCSID 37 ) ) , 'status' VALUE TRIM ( CAST ( +CASE EXSTAT +WHEN 'A' THEN 'Active' +WHEN ' ' THEN 'Unknown' +WHEN 'D' THEN 'Disabled' +END AS VARCHAR ( 15 ) CCSID 37 ) ) +) +) +FROM MZF0REP +JOIN ESUEXP +LEFT JOIN ESDPTP +ON EXDEPT = EUDEPT +ON F0BUCD = EXUSER +JOIN MZGUCPS0 +ON GUBUCD = F0BUCD +WHERE EXTYPE <> 'R' AND +F0UGRP = 0 ) FORMAT JSON +) , JSON_OBJECT ( +'success' VALUE 'false' , 'SQLInfo' VALUE JSON_OBJECT ( +'messageID' VALUE 'SQL02000' , 'message' VALUE 'Requested user not found ' , +'currentTimestamp' VALUE CURRENT_TIMESTAMP +) +) ) ; +END ; + +GRANT ALTER , EXECUTE +ON SPECIFIC FUNCTION SAILPOINT.ESRTVMUSRS +TO AMAPICS WITH GRANT OPTION ; + +GRANT EXECUTE +ON SPECIFIC FUNCTION SAILPOINT.ESRTVMUSRS +TO PUBLIC ; +