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)?

**jamesjogi08** · 14-04-15, 17:53

Kann mir irgendjemand einen Tip geben?

**B.Hauser** · 14-04-15, 20:32

Zitat von jamesjogi08

Kann mir irgendjemand einen Tip geben?

Wofür? Ein bisschen genauer solltest Du schon sein.

**kitvb1** · 15-04-15, 08:25

Zitat von jamesjogi08

Kann mir irgendjemand einen Tip geben?

Bayern wird wieder Meister.

**holgerscherer** · 15-04-15, 09:48

Zitat von kitvb1

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

Thema: RPG-Programm alle 30 Sekunden ausführen

Thread Tools

Bewerten Sie diesen Thema

Display