Article

Security Administrator Menu

Miroslava Baramova
 
==============================================================
 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  
Related Topics: Security Tools, VIEW ALL TOPICS

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

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: