Hallo,
ich muss euch leider nochmal mit einer Frage belästigen. Es geht um den Aufruf meines CL Programms.
Ich ruf das Programm damit auf:
Das Programm sieht so aus:PHP-Code:CALL PGM(DDSTEST) PARM('DOMMZO/TESTD' 'TESTD' 'TEST' 'TESTM' ' A ANFINR 2P 0 TEXT(''FIRMA'')' 0001.00 060914
Ich bekomme einen Error( (C D I R) CPF0001 von DDSTEST bei 1000 empfangen. ) beim CRTSRCPF.PHP-Code:PGM PARM(&FILE &MBR &TEXTF &TEXTM &SRCDTA &SRCSEQ &SRCDAT)
DCL VAR(&SRCDTA) TYPE(*CHAR) LEN(80)
DCL VAR(&SRCSEQ) TYPE(*DEC) LEN(6 2)
DCL VAR(&SRCDAT) TYPE(*DEC) LEN(6)
DCL VAR(&FILE) TYPE(*CHAR) LEN(20)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
DCL VAR(&TEXTF) TYPE(*CHAR) LEN(20)
DCL VAR(&TEXTM) TYPE(*CHAR) LEN(20)
CRTSRCPF FILE(&FILE) TEXT(&TEXTF)
ADDPFM FILE(&FILE) MBR(&MBR) TEXT(&TEXTM) SRCTYPE(PF)
OVRDBF FILE(&FILE) TOFILE(&FILE) +
MBR(&MBR) OVRSCOPE(*JOB)
CALL PGM(DDSWRITE) PARM(&FILE &MBR &SRCDTA &SRCSEQ &SRCDAT)
DLTOVR FILE(&FILE) LVL(*JOB)
ENDE: RETURN
ENDPGM
Habe schon versucht meinen Aufruf zu verändern mit ' ohne etc. aber der Fehler bleibt. Wenn ich den CRTSCRPF so ausführe und die Werte per Hand eintrage funktioniert alles einwandfrei. Wo liegt denn mein Fehler?PHP-Code:Ursache . . . . : Das CL-Programm DDSTEST in Bibliothek DOMMZO hat einen
Fehler bei Anweisung 1000 festgestellt. Der Nachrichtentext für CPF0001 ist:
Fehler in Befehl CRTSRCPF gefunden..
Danke für die Hilfe im Vorraus.
Gruß
Martin
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)




Mit Zitat antworten
Bookmarks