× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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

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.