CHGUSRAUD USRPRF (xxxxxxx) OBJAUD(*ALL) AUDLVL(*CMD)How can I write the CL?
First, run the following command:
DSPUSRPRF *ALL OUTFILE(QTEMP/USERS)
Then, run a program that does something like the following:
PGM DCL VAR(&SECOFR) TYPE(*CHAR) VALUE('*SECOFR') DCLF FILE(QTEMP/USERS) LOOP: RCVF MONMSG MSGID(CPF9999) EXEC(GOTO CMDLBL(END)) /* IF THE USER IS IN THE SECOFR USER CLASS */ IF (&UPUSCL *EQ SECOFR) THEN(DO) CHGUSRAUD USRPRF(&UPUPRF) OBJAUD(*ALL) + AUDLVL(*CMD) MONMSG CPF0000 ENDDO /* PROCESS THE NEXT PROFILE */ GOTO CMDLBL(LOOP) END: ENDPGM
Dig Deeper on iSeries system and application security
Related Q&A from Carol Woodbury
Before changing password levels and upgrading operating systems on the AS/400, ensure the clients connecting to the NetServer do not need the old ... Continue Reading
Look in the audit journal (QAUDJRN) on the AS/400 for an authority failure message with the name of the library as the object name. Use the ... Continue Reading
The UPPWEI field corresponds to the password expiration interval field, and its values "0" and "-1" represent the *SYSVAL and *NOXMAX commands. Continue Reading
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.