hteufl
02-09-18, 10:21
Hallo!
Ich habe ein für mich unerklärbares Phänomen von CL Variablen gefunden. Und zwar habe ich irrtümlich in einer IF Abfrage eine Variable QTIME verwendet die so nicht im Programm deklariert war. Beim Compilieren wurde das Programm mit einem 00 Fehlercode korrekt umgewandelt. Ich wollte daher wissen warum das Programm die Variable akzeptiert hat. Das Programm hat natürlich nicht funktioniert, weshalb ich erst beim Programmdebug auf diesen Umstand gestoßen bin. Vielleicht hat einer von Euch Spezialisten eine Erklärung für mich!
Anbei ein Ausschnitt aus dem CL Code:
PGM
DCL VAR(&ENDSTS) TYPE(*CHAR) LEN(1)
DCL VAR(&ERROR) TYPE(*CHAR) LEN(1) VALUE('0')
DCL VAR(&QDATETIME) TYPE(*CHAR) LEN(20)
DCL VAR(&QTIME) TYPE(*CHAR) LEN(6)
DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&WS) TYPE(*CHAR) LEN(10)
/*-------------------------------------------------------------------*/
/* Standardfehlerbehandlung */
/*-------------------------------------------------------------------*/
/* CPF0001 .. Fehler im Befehl xxx gefunden. */
MONMSG MSGID(CPF0001) +
EXEC(GOTO CMDLBL(PROTOK))
/*-------------------------------------------------------------------*/
RTVJOBA JOB(&WS) USER(&USER)
RTVNETA SYSNAME(&SYSNAME)
/*-------------------------------------------------------------------*/
/* Kontrolle ob ein Systemabschluss erfolgt */
/*-------------------------------------------------------------------*/
START:
RTVJOBA ENDSTS(&ENDSTS)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&QTIME)
RTVSYSVAL SYSVAL(QDATETIME) RTNVAR(&QDATETIME)
IF COND(&ENDSTS *NE '1') +
THEN(DO)
/*-------------------------------------------------------------------*/
/* Daten in TSPL02/TSPL07 korrigieren */
/*-------------------------------------------------------------------*/
SELECT
WHEN COND((&QTIME *GT '000000') *AND +
(&QTIME *LT '080000')) +
THEN(DO)
DLYJOB RSMTIME('08:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '080000') *AND +
(QTIME *LT '090000')) +
THEN(DO)
TSPL02E UPDATE(J)
DLYJOB RSMTIME('09:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '090000') *AND +
(&QTIME *LT '100000')) +
THEN(DO)
TSPL02E UPDATE(J)
DLYJOB RSMTIME('10:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '200000')) +
THEN(DO)
TSPL02E UPDATE(J)
ENDDO
ENDSELECT
/*-------------------------------------------------------------------*/
ENDDO /* enddo &ENDSTS *NE '1' */
ENDPGM
Wie beschrieben lässt sich das Programm trotz Fehler (meine Meinung) compilieren und ausführen. Natürlich funktioniert die Zeitabfrage 08:00:00/09:00:00 nicht!
Das Ganze läuft unter dem Betriebssystem V7R3M0 und allen aktuellen PTFs!
Vielen Dank im Voraus
Hermann
Ich habe ein für mich unerklärbares Phänomen von CL Variablen gefunden. Und zwar habe ich irrtümlich in einer IF Abfrage eine Variable QTIME verwendet die so nicht im Programm deklariert war. Beim Compilieren wurde das Programm mit einem 00 Fehlercode korrekt umgewandelt. Ich wollte daher wissen warum das Programm die Variable akzeptiert hat. Das Programm hat natürlich nicht funktioniert, weshalb ich erst beim Programmdebug auf diesen Umstand gestoßen bin. Vielleicht hat einer von Euch Spezialisten eine Erklärung für mich!
Anbei ein Ausschnitt aus dem CL Code:
PGM
DCL VAR(&ENDSTS) TYPE(*CHAR) LEN(1)
DCL VAR(&ERROR) TYPE(*CHAR) LEN(1) VALUE('0')
DCL VAR(&QDATETIME) TYPE(*CHAR) LEN(20)
DCL VAR(&QTIME) TYPE(*CHAR) LEN(6)
DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&WS) TYPE(*CHAR) LEN(10)
/*-------------------------------------------------------------------*/
/* Standardfehlerbehandlung */
/*-------------------------------------------------------------------*/
/* CPF0001 .. Fehler im Befehl xxx gefunden. */
MONMSG MSGID(CPF0001) +
EXEC(GOTO CMDLBL(PROTOK))
/*-------------------------------------------------------------------*/
RTVJOBA JOB(&WS) USER(&USER)
RTVNETA SYSNAME(&SYSNAME)
/*-------------------------------------------------------------------*/
/* Kontrolle ob ein Systemabschluss erfolgt */
/*-------------------------------------------------------------------*/
START:
RTVJOBA ENDSTS(&ENDSTS)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&QTIME)
RTVSYSVAL SYSVAL(QDATETIME) RTNVAR(&QDATETIME)
IF COND(&ENDSTS *NE '1') +
THEN(DO)
/*-------------------------------------------------------------------*/
/* Daten in TSPL02/TSPL07 korrigieren */
/*-------------------------------------------------------------------*/
SELECT
WHEN COND((&QTIME *GT '000000') *AND +
(&QTIME *LT '080000')) +
THEN(DO)
DLYJOB RSMTIME('08:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '080000') *AND +
(QTIME *LT '090000')) +
THEN(DO)
TSPL02E UPDATE(J)
DLYJOB RSMTIME('09:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '090000') *AND +
(&QTIME *LT '100000')) +
THEN(DO)
TSPL02E UPDATE(J)
DLYJOB RSMTIME('10:01:00')
GOTO CMDLBL(START)
ENDDO
WHEN COND((&QTIME *GE '200000')) +
THEN(DO)
TSPL02E UPDATE(J)
ENDDO
ENDSELECT
/*-------------------------------------------------------------------*/
ENDDO /* enddo &ENDSTS *NE '1' */
ENDPGM
Wie beschrieben lässt sich das Programm trotz Fehler (meine Meinung) compilieren und ausführen. Natürlich funktioniert die Zeitabfrage 08:00:00/09:00:00 nicht!
Das Ganze läuft unter dem Betriebssystem V7R3M0 und allen aktuellen PTFs!
Vielen Dank im Voraus
Hermann