Anmelden

View Full Version : RPG-Programm alle 30 Sekunden ausführen


Zuther
10-03-15, 10:42
Hallo *all,

ich bräuchte eine Möglichkeit ein RPG-Programm alle 30 Sekunden kontinuierlich auszuführen.
Die Zeitangabe könnte auch länger sein.
Kann mir irgendjemand einen Tip geben?
Im Voraus besten Dank für Eure Bemühungen!
mfg
Hans
TheDevil
10-03-15, 10:46
Hallo.
Ein CL mit einem DLYJOB DLY(30)
Like this ...


Start: call RPG Programm
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIM)
DLYJOB DLY(30)
/* Nach 18 Uhr raus */
IF COND(&TIM *GT '180000') THEN(GOTO +
CMDLBL(ENDE98))
/* und wieder ab zum RPG */
goto START
ende98:
endpgm
Starten des CL´s evtl. über den jobsceduler ...

Gruß,
Ralf
Fuerchau
10-03-15, 10:55
Man kann das Kommando auch per QCMDEXC aufrufen:

d MYDLYJOB s 20 inz('DLYJOB DLY(30)')

d QCMDEXC pr extpgm('QCMDEXC')
d MYCMD 256 const
d MYCMDLEN 15p 5 const

QCMDEXC(MYDLYJOB:%size(MYDLYJOB);
Pikachu
10-03-15, 11:17
Wie wärs mit schlafen (sleep) (http://www.itjungle.com/fhg/fhg040109-story01.html)?
jamesjogi08
14-04-15, 17:53
Kann mir irgendjemand einen Tip geben?
B.Hauser
14-04-15, 20:32
Kann mir irgendjemand einen Tip geben?

Wofür? Ein bisschen genauer solltest Du schon sein.
kitvb1
15-04-15, 08:25
Kann mir irgendjemand einen Tip geben?
Bayern wird wieder Meister. ;)
holgerscherer
15-04-15, 09:48
Bayern wird wieder Meister. ;)

Einen Tip, keine Illusion ;-)

-h
malzusrex
15-04-15, 11:52
Und der HSV wird sich wohl mal Liga 2 anschauen.....