QAUDLVL avec
CHGUSRAUD USRPRF(User-Profile-name) AUDLVL(*CREATE *DELETE *AUTFAIL) » CdJrn = “DO” CHGUSRAUD USRPRF(User-Profile-name) AUDLVL(*SECURITY) » CdJrn = “SV”
CdJrn “SV” » Mdl QSYS/QASY_SV_J5 à dupliquer
CdJrn “DO” » Mdl QSYS/QASY_DO_J5 à dupliquer
CdJrn “AF” » Mdl QSYS/QASY_AF_J5 à dupliquer
ou CPYAUDJRNE “AF”
Select job_name, authorization_name
from table(QSYS2.Active_Job_Info()) as T1
join QSYS2.User_Info as T2 using(AUTHORIZATION_NAME)
where SPECIAL_AUTHORITIES LIKE '%ALLOBJ%'
AND NO_PASSWORD_INDICATOR = 'NO'