RE: Lost Qsecofr Password

If you are luck enough to have a profile with *ALLOBJ  but without *SECADMN You
can try this nifty little CL.
I like to call it SU cause it allows you to SuperUser (little Unix there) to the
security officer.
from there you can just change the profile.

/*   This program will allow your job to "Become" QSECOFR   */
/*    You need *ALLOBJ or authority to QSECOFR to run it  */

PGM
 DCL        VAR(&PRFHDL) TYPE(*CHAR) LEN(12)
 CALL       PGM(QSYGETPH) PARM('QSECOFR   ' '*NOPWD    ' &PRFHDL)
 CALL       PGM(QWTSETP) PARM(&PRFHDL)
 CALL       PGM(QCMD)
ENDPGM


Bryan Dietz
3X Corp.











Don <dr2@cssas400.com> on 03/30/99 04:37:17 PM

Please respond to MIDRANGE-L@midrange.com
                                                                                
                                                                                
                                                                                


                                                              
                                                              
                                                              
 To:      "Graap, Ken" <keg@gasco.gasco.com>                  
                                                              
 cc:      "'MIDRANGE-L@midrange.com'"                         
          <MIDRANGE-L@midrange.com>(bcc: Bryan                
          Dietz/Columbus/3X Corp)                             
                                                              
                                                              
                                                              
 Subject: RE: Lost Qsecofr Password                           
                                                              










Geez, guys,

I kinda miss the old days when you could just view the passwords in plain
text on the S/38....:)  Then 7.1 came out and it got a bit harder...:)

Don in DC



+---
| 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
+---






+---
| 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
+---