|
0001.00 /*************************************************************************** ***/ 0002.00 /* Re-enable user profiles and optionally reset the password to the user */ 0003.00 /* profile. */ 0004.00 /* */ 0005.00 /* By Chris Bipes 04/12/01 */ 0006.00 /* © CrossCheck, Inc., 6119 State Farm Drive, Rohnert Park, CA 94928 */ 0007.00 /*************************************************************************** ***/ 0008.00 PGM PARM(&usrprf &password) 0009.00 0010.00 DCL VAR(&usrprf ) TYPE(*CHAR) LEN(10) 0011.00 DCL VAR(&password) TYPE(*CHAR) LEN(10) 0012.00 0013.00 IF COND(&PASSWORD = ' ') THEN(DO) 0014.00 CHGUSRPRF USRPRF(&USRPRF) STATUS(*ENABLED) 0015.00 GOTO CMDLBL(ENDPGM) 0016.00 ENDDO 0017.00 0018.00 IF COND(&PASSWORD = '*SAME') THEN(DO) 0019.00 CHGUSRPRF USRPRF(&USRPRF) STATUS(*ENABLED) 0020.00 GOTO CMDLBL(ENDPGM) 0021.00 ENDDO 0022.00 0023.00 CHGUSRPRF USRPRF(&USRPRF) PASSWORD(&PASSWORD) + 0024.00 PWDEXP(*YES) STATUS(*ENABLED) 0025.00 0026.00 RETURN 0027.00 ENDPGM: ENDPGM Christopher K. Bipes mailto:ChrisB@Cross-Check.com Operations & Network Mgr mailto:Chris_Bipes@Yahoo.com CrossCheck, Inc. http://www.cross-check.com 6119 State Farm Drive Phone: 707 586-0551 x 1102 Rohnert Park CA 94928 Fax: 707 586-1884 -----Original Message----- From: Jon Paris [mailto:Jon.Paris@Partner400.com] Sent: Tuesday, January 29, 2002 12:11 PM To: Midrange-l 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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.