Ours does
CHGUSRPRF USRPRF(&USER) PASSWORD(&USER) PWDEXP(*YES)
We exclude as invalid user profiles anyone with *SECOFR to prevent that
kind of hacking.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "R. Bruce Hoffman,
                    Jr."                      To:     <midrange-l@midrange.com>
                    <rbruceh@attglobal.       cc:
                    net>                      Fax to:
                    Sent by:                  Subject:     Re: Re-set User Id.
                    midrange-l-admin@mi
                    drange.com


                    01/29/2002 03:16 PM
                    Please respond to
                    midrange-l






pgm parm(&user)
dcl &user *char 10
chgusrprf &user status(*enabled)
return
endpgm

compile as USRPRF(*OWNER) and the owner as QSECOFR.

teehee!


===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - iSeries Administrator
 -- IBM Certified Specialist - RPG IV Developer

"Suppose you were an idiot...
  And suppose you were a member of Congress...
  But I repeat myself."
    - Mark Twain

----- Original Message -----
From: "Jon Paris" <Jon.Paris@Partner400.com>
To: "Midrange-l" <midrange-l@midrange.com>
Sent: Tuesday, January 29, 2002 3:11 PM
Subject: Re-set User Id.


> I need to set up a system whereby someone who does not have security
officer
> type access can re-set someone's user id.  Not change the password or
> anything - just re-enable it.  Anyone have an example that can achieve
this?
> In particular, this needs to be initiated from a PC program if possible.
>
> Jon Paris
> Partner400
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.







As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.