RE: Re-set User Id.

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