RE: Monitoring for a disabled user profile

["Nathan Simpson" <nathansimpson@xxxxxxxxxxxxxxx>]

That is fantastic Mary Jo. It is not what I had in mind but I think this is
better.

Thanks

Nathan

-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of Mary Jo Whitcomb
Sent: Thursday, 20 September 2001 21:39
To: midrange-l@midrange.com
Subject: Re: Monitoring for a disabled user profile


We use this:
0011.00              DCL        VAR(&CLOCKSTS) TYPE(*CHAR) LEN(10)
0012.00 TOP:
0013.00              RTVUSRPRF  USRPRF(CLOCK) STATUS(&CLOCKSTS) /* retrieve
+
0014.00                           clock profile */
0015.00 /* Do Loop                                                      */
0016.00              IF         COND(&CLOCKSTS = '*DISABLED') THEN(DO) /* +
0017.00                           check clock profile status */
0018.00              CHGUSRPRF  USRPRF(CLOCK) STATUS(*ENABLED) /* Change to
+
0019.00                           enabled  */
0020.00              CHGVAR     VAR(&CLOCKSTS) VALUE('          ') /* reset
+
0021.00                           variable - &clocksts */
0022.00              ENDDO
0023.00 /* End Do Loop
*
0024.00
0025.00              DLYJOB     DLY(300) /* wait 5 minutes */
0026.00              GOTO       CMDLBL(TOP) /* recheck clock status */
0027.00 ENDPGM

----- Original Message -----
From: "Nathan Simpson" <nathansimpson@optusnet.com.au>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, September 19, 2001 6:57 PM
Subject: Monitoring for a disabled user profile


> Hi,
>
> Is it possible to monitor for when a user profile becomes disabled and
then
> automatically run a command which will re-enable the password?
>
> I only want to run this command for when one particular user profile
becomes
> disabled.
>
> TIA
>
> Nathan Simpson
>
> _______________________________________________
> 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.