kretzsch
19-01-12, 11:32
Hallo liebe Leute,
Habe folgende Phänomene im RPGLE-Free-Format:
1. Mit Befehl readc wird(werden) nicht nur der(die) geänderte(n) Subfilesatz(sätze) gelesen, sondern es werden alle Sätze (vom ersten bis letzten Satz)gelesen. Woran könnte das liegen? Was muss ich evtl. zusätzlich irgendwo definieren?
2. Wird der ausgewählte Satz gelesen und die anschließende Subroutine verarbeitet, wird in der DOU-Schleife der nächste Subfilesatz gelesen. Unmittelbar vor dem readc-Befehl ist die Variable *inkl aus und nach diesem Lesevorgang ist die Variabel *inkl plötzlich an! Ich versteh die Welt nicht mehr!
readc bildf01;
dou %eof; <O:p
if not %eof;
select; <O:p></O:p>
when sfausw = '1';
<O:psfausw = ' ';
update bildf01;
exsr $uebl; <O:p></O:p>
when sfausw = '6';
sfausw = ' ';
update bildf01;
exsr $tag;
endsl;
readc bildf01; (hier passiert das mir unverständliche)
<O:pendif;
enddo;
Hat jemand eine Lösung oder muss ich zu fix-format zurück?
Habe folgende Phänomene im RPGLE-Free-Format:
1. Mit Befehl readc wird(werden) nicht nur der(die) geänderte(n) Subfilesatz(sätze) gelesen, sondern es werden alle Sätze (vom ersten bis letzten Satz)gelesen. Woran könnte das liegen? Was muss ich evtl. zusätzlich irgendwo definieren?
2. Wird der ausgewählte Satz gelesen und die anschließende Subroutine verarbeitet, wird in der DOU-Schleife der nächste Subfilesatz gelesen. Unmittelbar vor dem readc-Befehl ist die Variable *inkl aus und nach diesem Lesevorgang ist die Variabel *inkl plötzlich an! Ich versteh die Welt nicht mehr!
readc bildf01;
dou %eof; <O:p
if not %eof;
select; <O:p></O:p>
when sfausw = '1';
<O:psfausw = ' ';
update bildf01;
exsr $uebl; <O:p></O:p>
when sfausw = '6';
sfausw = ' ';
update bildf01;
exsr $tag;
endsl;
readc bildf01; (hier passiert das mir unverständliche)
<O:pendif;
enddo;
Hat jemand eine Lösung oder muss ich zu fix-format zurück?