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