RE: enable user profile -- MIDRANGE-L

Title: RE: enable user profile

<<...>>

I created this command/CL program many moons ago to allow operators and mill supervisors to reenable a user profile/reset a password. It simply does the following: 1) if the 'User profile reset option' is *ENABLE, the CL program does a CHGUSRPRF &usrprf STATUS(*ENABLED), 2) if the 'User profile reset option' is *PASSWORD, the CL program does a CHGUSRPRF &usrprf PASSWORD(&usrprf) and PWDEXP(*YES). This changes the user's password to the same as their user profile name and sets their profile to expired so the next time they signon, they are forced to enter a new password, 3) if the 'User profile reset option' is *BOTH, then the program does both steps 1 and 2. Additionally, the CL programs sends a message to QSYSOPR like the following:

From . . . :   AMCS           03/07/00   13:15:23
Job 381066/AMCS/AITDPC17S1 enabled user profile AMCS. The last succesfull
signon for user AMCS was 03/07/00 at 08:01:49. The number of invalid
signon attempts were 00000000000.

-----Original Message-----
From:   JGracetri@aol.com [SMTP:JGracetri@aol.com]
Sent:   Tuesday, March 07, 2000 11:23 AM
To:     MIDRANGE-L@midrange.com
Subject:        enable user profile

I need to enable user profiles.

Can I write a cl which will allow the operator to enable disabled profiles.

I have tried adopted auth, but I must be doing something wrong.

I get this message when the job runs

Additional Message Information

Message ID . . . . . . :   CPF2228       Severity . . . . . . . :   40
Message type . . . . . :   Escape
Date sent . . . . . . :   03/07/00      Time sent . . . . . . :   11:07:33

Message . . . . :   Not authorized to change user profile.
Cause . . . . . :   Object management (*OBJMGT) and use (*USE) authority are
   required for each user profile being changed.
Recovery . . . :   Have the security officer give you the required authority
   to change the user profile.

the programs arer owned by a profile which can enable user profiles.

thanks jeff g.

Bottom
Press Enter to continue.

F3=Exit F6=Print F9=Display message details F12=Cancel
F21=Select assistance level

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---