Re: obtaining system uptime

[Anton Gombkötö <Gombkoetoe@xxxxxxxxxx>]

I don't know a sysval, too, but i'd prefer to retrieve the controlling
subsystem (QCTLSBSD) and read the first message in the job's joblog, which
tells when the controlling subsystem started.

That does not necessarily mean that the AS/400 did an IPL, but it may be the
fact in James' environment.


To wait in a RPG program can be achieved by e.g. a call to QCMDEXC with a
DLYJOB, you might wait n seconds for a data queue entry or for end-of-file,
maybe there are some more possibilities to wait with a minimum of cpu load.

Best regards,

--
Anton Gombkötö
mailto://Gombkoetoe@ASsoft.com

AS Software
Gesellschaft m.b.H.
http://www.ASsoft.com
Jedleseer Straße 3
A-1210  Wien
Tel.:  +43 1 278 15 01-0
Fax:  +43 1 278 15 01-22


-----Ursprüngliche Nachricht-----
Von: "Tom Hightower/Solutions_Inc" <tomh@simas.com>
An: <rpg400-l@midrange.com>
Gesendet: Mittwoch, 05. Jänner 2000 13:26
Betreff: Re: obtaining system uptime


> I don't know if there's a qsysval for it or not, but you may be able to
get
> it by reading throught the QHST* log files.
>
>
>
>
>
> James David Rich <james@dansfoods.com> on 01/05/2000 06:18:24 AM
> To:     RPG400-L@midrange.com
> cc:
>
> Subject:        obtaining system uptime
>
>
>
> I need to get the system uptime or the time when the system was last
> booted into a program.  An all night review of the books at publib.ibm.com
> gives me nothing useful.
>
> I also need something to wake up my program every 120 seconds or
> so.  Something like signal handlers.
>
> Anyone know how to do this?
>
>
> James Rich
> james@dansfoods.com
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>
>
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---