Hi
ich glaube ich habe einen Denkfehler bei einem OPNQRYF finde den einfach nicht. Hier die relevanten Zeilen aus dem RPG Programm:
Code:
fafkdn if e k disk usropn
// Geänderte Kunden suchen
cmdtxt = 'OPNQRYF FILE((STDPROD/AFKDN)) KEYFLD((KUKDN)) ' +
'QRYSLT(''KUDNEU *GE ''''' + %editc(pdat:'Z') +
''''' *OR KUDAEN *GE ''''' + %editc(pdat:'Z') + ''''''')';
dsply %subst(cmdtxt:1:52);
dsply %subst(cmdtxt:53:52);
dsply %subst(cmdtxt:105:52);
// Geänderte Kunden suchen
callp cmd(cmdtxt:512);
// Datei öffnen
open afkdn;
// Schleife zum Lesen der Datei
dou %eof(afkdn);
// Lesen des Satzes
read afkdnss;
Die DSPLY sind nur zum Debuggen.
Das Programm verarbeitet ALLE Sätze aus AFKDN. Wenn ich den mit DSPLY angezeigten OPNQRYF manuell ausführe und ein CRYFRMQRYF mache bekomme ich nur diejenigen die ich will.
Bookmarks