Use DSPUSRPRF specify the following paramters
DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE) OUTFILE(S2KLIB/USERPRF)
The *outfile options will create an as400 table. In this case, i have created outfile = USERPRF in S2KLIB library. Then use Query/400 or SQL to print a report. Specify the field: UPPWEX = ‘*YES’ to filter those whose passwords had expired. Of course, include your userid and etc infor that will help you identify the user in particular
If you use either SQL/Query/400 you could embed the DSPUSRPF and RUNQRY (for Query/400) or STRQMQRY for SQL into a CL. Put in the necessary MONMSG commands and you are done.
If your company’s policy is to delete userid whereby password had expired and last changed password > 90 days (assume that policy is to change password every 90 days), youi can also embed DLTUSRPRF UPUPRF into the above CL. The password last changed date is also inside the table you create with DSPUSRPRF command with *BASIC mode