Security Administrator Menu
==============================================================
PWMNU Security administrator menu
Select one of the following:
1. Enable User Profile
2. Enable User Profile & Change Password with USRPRF (PWDEXP *YES)
3. Enable User Profile & Old Password & New Description
4. Enable User Profile & Change Password with USRPRF & New Description
5. Disable User Profile & New Description
6. Display User Profile
7. Display QSYSMSG *msgq
90. Sign off
Selection or command
===>
==============================================================
Commands for menu items in PWMNUQQ *MNUCMD object:
PWMNUQQ,1
0001 ?CPWE
0002 ?CPWEP
0003 ?CPWED
0004 ?CPWEPD
0005 ?CPWDD
0006 ?CPWDSP
0007 DSPMSG MSGQ(QSYS/QSYSMSG)
0090 SIGNOFF LOG(*LIST)
==============================================================
Command & Program sources:
1. Enable User Profile
Option 1. of PWMNU: CPWE *cmd & PWE *pgm
/* CPWE *cmd */
CMD PROMPT('ENABLE Only')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWE *pgm */
PGM PARM(&PR)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
DCL VAR(&OT) TYPE(*CHAR) LEN(50)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
RTVOBJD OBJ(&PR) OBJTYPE(*USRPRF) TEXT(&OT)
MONMSG MSGID(CPF9802) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
CHGUSRPRF USRPRF(&PR) +
STATUS(*ENABLED)
MONMSG MSGID(CPF2228) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
SNDPGMMSG MSG(&PR *TCAT ' of ' *CAT &OT *TCAT ' +
successfuly ENABLED.') TOPGMQ(*PRV)
E: ENDPGM
==============================================================
2. Enable User Profile & Change Password with USRPRF (PWDEXP *YES)
Option 2. of PWMNU: CPWEP *cmd & PWEP *pgm
/* CPWEP *cmd */
CMD PROMPT('ENABLE & PW = User Profile')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWEP *pgm */
PGM PARM(&PR)
DCL VAR(&OT) TYPE(*CHAR) LEN(50)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
RTVOBJD OBJ(&PR) OBJTYPE(*USRPRF) TEXT(&OT)
MONMSG MSGID(CPF9802) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
CHGUSRPRF USRPRF(&PR) PASSWORD(&PR) PWDEXP(*YES) +
STATUS(*ENABLED)
MONMSG MSGID(CPF2228) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
SNDPGMMSG MSG(&PR *TCAT ' of ' *CAT &OT *TCAT +
' successfuly ENABLED and PW changed to ' +
*CAT &PR *TCAT '.') TOPGMQ(*PRV)
E: ENDPGM
==============================================================
3. Enable User Profile & Old Password & New Description
Option 3. of PWMNU: CPWED *cmd & PWED *pgm
/* CPWED *cmd */
CMD PROMPT('ENABLE & Description Reset')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWED *pgm */
PGM PARM(&PR)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
DCL VAR(&OT) TYPE(*CHAR) LEN(50)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
RTVOBJD OBJ(&PR) OBJTYPE(*USRPRF) TEXT(&OT)
MONMSG MSGID(CPF9802) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
CHGUSRPRF USRPRF(&PR) STATUS(*ENABLED) ??TEXT(&OT)
MONMSG MSGID(CPF6801) EXEC(DO)
SNDPGMMSG MSG('Action Canceled. Operator pressed +
PF12.') TOPGMQ(*PRV)
GOTO CMDLBL(E)
ENDDO
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' +
successfuly ENABLED and Description +
reset.') TOPGMQ(*PRV)
E: ENDPGM
==============================================================
4. Enable User Profile & Change Password with USRPRF & New Description
Option 4. of PWMNU: CPWEPD *cmd & PWEPD *pgm
/* CPWEPD *cmd */
==============================================================
CMD PROMPT('ENABLE & PW=USRPRF & Descript.')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWEPD *pgm */
PGM PARM(&PR)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
DCL VAR(&OT) TYPE(*CHAR) LEN(50)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
RTVOBJD OBJ(&PR) OBJTYPE(*USRPRF) TEXT(&OT)
MONMSG MSGID(CPF9802) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
CHGUSRPRF USRPRF(&PR) PASSWORD(&PR) PWDEXP(*YES) +
STATUS(*ENABLED) ??TEXT(&OT)
MONMSG MSGID(CPF6801) EXEC(DO)
SNDPGMMSG MSG('Action Canceled. Operator pressed +
PF12.') TOPGMQ(*PRV)
GOTO CMDLBL(E)
ENDDO
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' +
ENABLED, PW=' *CAT &PR *TCAT ' and +
Description reset.') TOPGMQ(*PRV)
E: ENDPGM
==============================================================
5. Disable User Profile & New Description
Option 5. of PWMNU: CPWDD *cmd & PWDD *pgm
/* CPWDD *cmd */
CMD PROMPT('DISABLE Temporarily')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWDD *pgm */
PGM PARM(&PR)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
DCL VAR(&OT) TYPE(*CHAR) LEN(50)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
RTVOBJD OBJ(&PR) OBJTYPE(*USRPRF) TEXT(&OT)
MONMSG MSGID(CPF9802) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
CHGUSRPRF USRPRF(&PR) STATUS(*DISABLED) ??TEXT(&OT)
MONMSG MSGID(CPF6801) EXEC(DO)
SNDPGMMSG MSG('Action Canceled. Operator pressed +
PF12.') TOPGMQ(*PRV)
GOTO CMDLBL(E)
ENDDO
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' +
successfuly DISABLED and Description +
changed.') TOPGMQ(*PRV)
E: ENDPGM
==============================================================
6. Display User Profile
Option 6. of PWMNU: CPWE *cmd & PWE *pgm
/* CPWDSP *cmd */
CMD PROMPT('DISPLAY')
PARM KWD(PR) TYPE(*CHAR) LEN(10) +
PROMPT('User Profile')
/* PWDSP *pgm */
PGM PARM(&PR)
DCL VAR(&PR) TYPE(*CHAR) LEN(10)
CHKOBJ OBJ(&PR) OBJTYPE(*USRPRF)
MONMSG MSGID(CPF9801 CPF0001) EXEC(DO)
SNDPGMMSG MSG('User Profile ' *CAT &PR *TCAT ' not +
exist.')
GOTO CMDLBL(E)
ENDDO
DSPUSRPRF USRPRF(&PR)
MONMSG MSGID(CPF2228 CPF2217) EXEC(DO)
SNDPGMMSG MSG('You are not authorized to change ' *CAT +
&PR *TCAT ' this profile.')
GOTO CMDLBL(E)
ENDDO
E: ENDPGM