Wow super danke für deine Hilfe.

Dann wäre das eben das Programm was ich über den Jobfahrplan dann ganz normal von Mo-Fr. aufrufen kann ?

PGM
DCL VAR(&ZEITC) TYPE(*CHAR) LEN(6)
DCL VAR(&ZEITI) TYPE(*INT)
START:
CALL PGM(R4CV00ST) PARM('1' '000' '')
DLYJOB DLY(600)
GOTO CMDLBL(START)

RTVSYSVAL SYSVAL(QTIME) RTNVAR(&ZEITC)
CHGVAR VAR(&ZEITI) VALUE(&ZEITC)
IF (&ZEITI > 230000) THEN(GOTO ENDE)

ENDE: ENDPGM

Gruss
Franz