GS
17-01-06, 10:19
Hallo Zusammen,
ich benutze im ILE-RPG-PGM eine Dummy-Datei SOURCEDAT
Diese Datei überschreibe ich mit
EVAL BLDEXC = 'OVRDBF FILE(SOURCEDAT) TOFILE(+
TESTDDS/QDDSSRC) MBR(FFOTEILP02)'
CALLP QCMDEXC(BLDEXC:%LEN(%TRIMR(BLDEXC)))
beim anschl Lesen
DECLARE SOURCEDAT CURSOR FOR SELECT * FROM TESTDDS/QDDSSRC
C+ FETCH NEXT FROM SOURCEDAT INTO :QDDSSRC
wird zwar die richtige Sourcedatei gelesen aber immer
das älteste Member
beim normalen READ klappt es
beim Debuger bekomme ich folgende Meldung
>
Zugriff nach Eingangsfolge für Datei QDDSSRC verwendet.<
Liegt das an der Datei QAQQINI ??
Danke
Gruss
GS
ich benutze im ILE-RPG-PGM eine Dummy-Datei SOURCEDAT
Diese Datei überschreibe ich mit
EVAL BLDEXC = 'OVRDBF FILE(SOURCEDAT) TOFILE(+
TESTDDS/QDDSSRC) MBR(FFOTEILP02)'
CALLP QCMDEXC(BLDEXC:%LEN(%TRIMR(BLDEXC)))
beim anschl Lesen
DECLARE SOURCEDAT CURSOR FOR SELECT * FROM TESTDDS/QDDSSRC
C+ FETCH NEXT FROM SOURCEDAT INTO :QDDSSRC
wird zwar die richtige Sourcedatei gelesen aber immer
das älteste Member
beim normalen READ klappt es
beim Debuger bekomme ich folgende Meldung
>
Zugriff nach Eingangsfolge für Datei QDDSSRC verwendet.<
Liegt das an der Datei QAQQINI ??
Danke
Gruss
GS