Security Administrator Menu

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  

Dig deeper on Security Tools

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close