Update Function ES_V2_GET_ALL_USERS
This commit is contained in:
@@ -1 +1,218 @@
|
||||
牄禗袬蒨@\蚕謨@^@
|
||||
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 ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user