SQL/SAILPOINT/Functions/ES_V2_GET_ALL_USERS.sql

SET PATH *LIBL ; 

CREATE OR REPLACE FUNCTION SAILPOINT.ES_V2_GET_ALL_USERS ( 
	INENVLIST VARCHAR(1000) DEFAULT  NULL  ) 
	RETURNS CLOB(2147483647)   
	LANGUAGE SQL 
	SPECIFIC SAILPOINT.V2_ESALLUSERS 
	NOT DETERMINISTIC 
	MODIFIES SQL DATA 
	CALLED ON NULL INPUT 
	SET OPTION  ALWBLK = *ALLREAD , 
	ALWCPYDTA = *OPTIMIZE , 
	COMMIT = *NONE , 
	DBGVIEW = *SOURCE , 
	DECRESULT = (31, 31, 00) , 
	DLYPRP = *NO , 
	DYNDFTCOL = *NO , 
	DYNUSRPRF = *OWNER , 
	SRTSEQ = *HEX   
	BEGIN 
DECLARE ENVLIST VARCHAR ( 500 ) DEFAULT NULL ; 
DECLARE LIBL VARCHAR ( 1000 ) DEFAULT NULL ; 
DECLARE MAPICS_USERS CLOB ( 1 G ) DEFAULT NULL ; 
DECLARE PAD VARCHAR ( 3 ) DEFAULT ' ' ; 
DECLARE GLOBAL TEMPORARY TABLE SESSION . MAPICS_USERS FOR SYSTEM NAME 
MAPICUSERS ( 
ENVID VARCHAR ( 10 ) CCSID 37 DEFAULT NULL , 
F0BUCD VARCHAR ( 10 ) CCSID 37 DEFAULT NULL , 
F0H1TX VARCHAR ( 60 ) CCSID 37 DEFAULT NULL , 
GUAAHY VARCHAR ( 5 ) CCSID 37 DEFAULT NULL , 
EXTYPE VARCHAR ( 50 ) CCSID 37 DEFAULT NULL , 
EXDEPT VARCHAR ( 10 ) CCSID 37 DEFAULT NULL , 
EDDESC VARCHAR ( 60 ) CCSID 37 DEFAULT NULL , 
EUROLE VARCHAR ( 10 ) CCSID 37 DEFAULT NULL , 
ERDESC VARCHAR ( 60 ) CCSID 37 DEFAULT NULL , 
EXU10A VARCHAR ( 10 ) CCSID 37 DEFAULT NULL , 
EXSTAT VARCHAR ( 15 ) CCSID 37 DEFAULT NULL , 
GUADMW VARCHAR ( 15 ) CCSID 37 DEFAULT NULL , 
F0UGRP VARCHAR ( 5 ) CCSID 37 DEFAULT NULL ) 
RCDFMT MAPICUSERS 
WITH REPLACE ; 
FOR SELECT DISTINCT A . ENVID 
FROM TABLE ( 
SELECT ROW_NUMBER ( ) OVER ( 
) AS RN , ENVID 
FROM JSON_TABLE ( 
SAILPOINT . ES_V2_GET_ALL_MAPICS_ENVIRONMENTS ( ) , 
'$.data[*]' 
COLUMNS ( 
ENVID VARCHAR ( 2 ) CCSID 37 PATH '$.envId' 
) 
) 
) A 
JOIN TABLE ( 
SELECT COUNT ( NULLIF ( FRAGMENT , '' ) ) OVER ( 
) AS FRAG_COUNT , RN , 
NULLIF ( FRAGMENT , '' ) AS FRAGMENT 
FROM TABLE ( 
CISTOOLS . ROWS_COUNTER ( ( SELECT COUNT ( * ) 
FROM QGPL . MMLIST ) ) 
) 
LEFT JOIN TABLE ( 
CISTOOLS . SPLIT_STRING ( 
REGEXP_REPLACE ( 
CAST ( 
COALESCE ( INENVLIST , '' ) AS 
VARCHAR ( 1000 ) CCSID 37 ) , 
'[\\[\\]\\{\\}\\""\\,\\s]+' , ' ' ) , 
' ' ) 
) 
ON RN = ROW_NUM 
) S 
ON ENVID = 
CASE 
WHEN FRAG_COUNT > 0 THEN FRAGMENT 
ELSE ENVID 
END 
DO 
SET CISTOOLS . LIBL = CISTOOLS . SET_LIBRARY_LIST ( ENVID ) ; 
INSERT INTO SESSION . MAPICS_USERS 
SELECT 
CAST ( CISTOOLS . MAPICS_ENV AS VARCHAR ( 10 ) CCSID 37 ) 
AS ENVID , 
CAST ( TRIM ( F0BUCD ) AS VARCHAR ( 10 ) CCSID 37 ) AS F0BUCD , 
CAST ( TRIM ( F0H1TX ) AS VARCHAR ( 60 ) CCSID 37 ) AS F0H1TX , 
CAST ( TRIM ( GUAAHY ) AS VARCHAR ( 5 ) CCSID 37 ) AS GUAAHY , 
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 ) AS EXTYPE , 
CAST ( TRIM ( EXDEPT ) AS VARCHAR ( 10 ) CCSID 37 ) AS EXDEPT , 
CAST ( 
IFNULL ( TRIM ( D . EUDESC ) , '' ) AS VARCHAR ( 60 ) CCSID 37 ) 
AS EDDESC , 
CAST ( TRIM ( EUROLE ) AS VARCHAR ( 10 ) CCSID 37 ) AS EUROLE , 
CAST ( 
IFNULL ( TRIM ( R . EUDESC ) , '' ) AS VARCHAR ( 60 ) CCSID 37 ) 
AS ERDESC , 
CAST ( TRIM ( EXU10A ) AS VARCHAR ( 10 ) CCSID 37 ) AS EXU10A , 
CAST ( 
CASE EXSTAT 
WHEN 'A' THEN 'Active' 
WHEN ' ' THEN 'Unknown' 
WHEN 'D' THEN 'Disabled' 
END AS VARCHAR ( 15 ) CCSID 37 ) AS EXSTAT , 
CAST ( TRIM ( GUADMW ) AS VARCHAR ( 15 ) CCSID 37 ) AS GUADMW , 
CAST ( 
CASE F0UGRP 
WHEN 1 THEN 'true' 
WHEN 0 THEN 'false' 
END AS VARCHAR ( 5 ) CCSID 37 ) AS F0UGRP 
FROM MZF0REP MZ 
LEFT JOIN ESUSRP 
JOIN ESROLP R 
USING ( EUROLE ) 
ON EUUSER = MZ . F0BUCD 
LEFT JOIN ESUEXP 
ON MZ . F0BUCD = EXUSER 
LEFT JOIN ESDPTP D 
ON EXDEPT = EUDEPT 
LEFT JOIN MZGUCPS0 
ON GUBUCD = MZ . F0BUCD 
WHERE EXTYPE <> 'R' ; 
END FOR ; 
RETURN 
( 
SELECT JSON_OBJECT ( 
'data' : 
JSON_ARRAYAGG ( 
JSON_OBJECT ( 
'userId' VALUE A . AUTHORIZATION_NAME , 
'status' VALUE A . STATUS , 
'previousSignOn' VALUE A . PREVIOUS_SIGNON , 
'signonInvalidAttempts' VALUE 
A . SIGN_ON_ATTEMPTS_NOT_VALID , 
'userClass' VALUE A . USER_CLASS_NAME , 
'specialAuths' VALUE JSON_ARRAY ( SELECT NULLIF ( 
TRIM ( FRAGMENT ) , '' ) 
FROM TABLE ( 
CISTOOLS . SPLIT_STRING ( 
A . SPECIAL_AUTHORITIES , ' ' ) 
) 
WHERE TRIM ( FRAGMENT ) <> '' ) , 
'groupProfile' VALUE A . GROUP_PROFILE_NAME , 
'daysUntilPwExpires' VALUE 
A . DAYS_UNTIL_PASSWORD_EXPIRES , 
'text' VALUE A . TEXT_DESCRIPTION , 
'homeDir' VALUE A . HOME_DIRECTORY , 
'locale' VALUE A . LOCALE_PATH_NAME , 
'localPwMgmt' VALUE A . LOCAL_PASSWORD_MANAGEMENT , 
'mapicsAttributes' VALUE ( 
SELECT JSON_ARRAYAGG ( 
JSON_OBJECT ( 
MU . ENVID VALUE JSON_ARRAY ( JSON_OBJECT ( 
'userId' VALUE MU . F0BUCD , 
'userName' VALUE MU . F0H1TX , 
'operatorId' VALUE MU . GUAAHY , 
'userType' VALUE MU . EXTYPE , 
'userDept' VALUE JSON_OBJECT ( 
'deptCode' VALUE NULLIF ( 
MU . EXDEPT , '' ) , 
'deptDescription' VALUE NULLIF ( 
MU . EDDESC , '' ) ABSENT ON NULL 
) , 'userEmpNo' VALUE MU . EXU10A , 
'status' VALUE MU . EXSTAT , 
'startMenu' VALUE NULLIF ( MU . GUADMW , '' ) , 
'roles' VALUE ( 
SELECT JSON_ARRAYAGG ( 
JSON_OBJECT ( 
'roleCode' VALUE NULLIF ( 
R . EUROLE , '' ) , 
'roleDescription' VALUE 
NULLIF ( R . ERDESC , '' ) 
ABSENT ON NULL 
) FORMAT JSON 
) 
FROM TABLE ( 
SELECT DISTINCT EUROLE , 
ERDESC 
FROM SESSION . MAPICS_USERS 
C 
WHERE C . F0BUCD = 
MU . F0BUCD 
AND C . ENVID = 
MU . ENVID 
) R ) FORMAT JSON , 
'isGroupId' VALUE MU . F0UGRP FORMAT JSON 
ABSENT ON NULL 
) ) 
) FORMAT JSON 
) 
FROM TABLE ( 
SELECT DISTINCT F0BUCD , ENVID , F0H1TX , 
GUAAHY , EXTYPE , EXDEPT , 
EDDESC , EXU10A , EXSTAT , 
GUADMW , F0UGRP 
FROM SESSION . MAPICS_USERS 
WHERE F0BUCD = A . AUTHORIZATION_NAME 
) MU ) FORMAT JSON 
) 
) , 
'errors' : JSON_ARRAY ( ) 
) 
FROM QSYS2 . USER_INFO_BASIC A ) ; 
END  ; 

GRANT ALTER , EXECUTE   
ON SPECIFIC FUNCTION SAILPOINT.V2_ESALLUSERS 
TO AMAPICS WITH GRANT OPTION ; 

GRANT EXECUTE   
ON SPECIFIC FUNCTION SAILPOINT.V2_ESALLUSERS 
TO PUBLIC ;