CL und CHKOBJ

[Squall]

Hallo,

ich wollte mithilfe eines CL Programmes Prüfen ob eine Datei da ist um sie dann zu erstellen oder zu bearbeiten. Ich bekomme jedoch einen Fehler, hier der Auszug des Joblogs:
call odbccopycl parm(ztable aaw LIB test J ODBC WIN01)
Objekt AAW in Bibliothek LIB nicht gefunden.
Datei AAW in Bibliothek LIB erstellt.
Teildatei TEST zu Datei AAW in DOMMZO hinzugefügt.
Datei AAW in Bibliothek LIB bereits vorhanden.
Datei AAW in Bibliothek LIB nicht erstellt.
(C D I R) CPF7302 von ODBCCOPY bei 2200 empfangen.
D
(C D I R) CPF9999 von ODBCCOPYCL bei 2600 empfangen.
D

Hier ist mein Code:
PGM PARM(&FILEN &FILE &LIB &MBR &FCALL &ODBC &WIN)

DCL VAR(&FILEN) TYPE(*CHAR) LEN(255)
DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&FCALL) TYPE(*CHAR) LEN(1)
DCL VAR(&ODBC) TYPE(*CHAR) LEN(10)
DCL VAR(&WIN) TYPE(*CHAR) LEN(10)
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&NBR) TYPE(*CHAR) LEN(6)
DCL VAR(&TYP) TYPE(*CHAR) LEN(1)
DCL VAR(&SUBT) TYPE(*CHAR) LEN(1)
DCL VAR(&SWS) TYPE(*CHAR) LEN(8)
DCL VAR(&COR) TYPE(*CHAR) LEN(1) VALUE(N)
RTVJOBA JOB(&JOB) NBR(&NBR) TYPE(&TYP) SUBTYPE(&SUBT) SWS(&SWS)
SNDMSG MSG('VOM CL: JOB: ' *CAT &JOB *CAT ' NBR: ' *CAT +
&NBR *CAT ' TYPE: ' *CAT &TYP *CAT ' SUBT: ' *CAT +
&SUBT *CAT ' SWS: ' *CAT &SWS ) MSGTYPE(*INFO) TOUSR(USR)
CHKOBJ OBJ(&LIB/&FILE) OBJTYPE(*FILE) MBR(&MBR)
MONMSG MSGID(CPF9801) EXEC(GOTO NOTFOUND)
NOTFOUND: CRTSRCPF FILE(&FILE)
ADDPFM FILE(&FILE) MBR(&MBR) SRCTYPE(RPGLE)
OVRDBF FILE(&FILE) TOFILE(&FILE) +
MBR(&MBR) OVRSCOPE(*JOB)
CALL PGM(ODBCCOPY) PARM(&FILEN &FILE &LIB &MBR &FCALL &ODBC &WIN)
DLTOVR FILE(&FILE) LVL(*JOB)
ENDE: RETURN
FOUND: CHGVAR &FCALL VALUE('E')
RETURN
ENDPGM

Scheinbar sprint er 2 mal zu "NOTFOUND". Wo liegt der Fehler?

Gruß Martin

EDIT: Zeile 22 von ODBCCOPY is aus einer DS:
0022.00 D win 10A

EDIT2: Fehler behoben.

[Pikachu]

Hallo Martin!

Dein Programm ruft nach dem CHKOBJ auch dann den Befehl CRTSRCPF auf, wenn die Datei bereits vorhanden ist. Oder hast du da einen Teil des Quelltextes für das Beispiel entfernt? Außerdem ist beim CRTSRCPF und beim ADDPFM jeweils keine Bibliothek angegeben, die Teildatei wird deshalb wohl zu einer gleichnamigen Datei in einer anderen Bibliothek hinzugefügt. Ruft dieses Programm durch den CALL sich vielleicht selbst wieder auf?

Gruß
Jürgen

[Squall]

Ah hatte das AUT(*ALL) bei CHKOBJ vergessen.

Hab den Fehler schon gefunden(s.o.: EDIT2). Trotzdem danke für die Hilfe. :)

Gruß Martin