36er Umstellung

[DKSPROFI]

Moin,

mit DIM multiplizieren Sie jede Datenstruktur auf 999 Vorkommen ;-)

Es kommt bei einzelnen Kunden vor, daß bis zu 800 Sätze da drin sthen

Wie genau wollen Sie die eingelesenen Felder verarbeiten? Evtl. ist OCCUR Ihr Freund!

Die Datei hat 45 Felder, davon müssen bis zu 10 geändert werden.

[RobertMack]

wie geändert? Hab's noch nicht nachvollzogen...

Feldverwendung/Prüfung/Änderung über die Vorkommen hinweg, z.B. IF AFELD(1) <> AFELD(4)
oder erst nachdem alle Vorkommen eigens geprüft wurden, z.B.
DO 5 $I
$I OCCUR DS
IF AFELD <> IRGENDWAS, merke $I
ENDDO
$I = gesuchtes Vorkommen

[DKSPROFI]

Also:

Programmlauf ALT:

Datei A wird gelesen (Aktuelles KD-Sortiment)

Satzauschluß

Ausgabe 1

Datei A wird erneut gelesen (Aktuelles KD-Sortiment)

Satzauschluß

Ausgabe 2

Datei A wird nochmal gelesen (Aktuelles KD-Sortiment)

Satzauschluß

Ausgabe 3

usw.

Unsere Idee ist:

Datei A wird gelesen (Aktuelles KD-Sortiment)

Satzauschluß

Merken 1
Merken 2
Merken 3
usw.

Aus Merken 1 ($X) weiter
Aus Merken 2 ($X) weiter
Aus Merken 3 ($X) weiter
usw.

In Merken 2 - 5 wird dann eine weitere Verarbeitung gestartet.

Von Merken 1 - x sind aber verschieden Felder zu aktualisieren




Wir wollen eigentlich nur einmal statt fünfmal nach den selben Kriterien lesen.

Hoffentlich habe ich mich verständlich ausgedrückt

[RobertMack]

...leider nicht ;-)

Ich rate jetzt mal:

Sie wollen beim Einlesen prüfen, ob ein Satz ausgeschlossen wird oder in eine von vier Gruppen paßt?

Und dann die vier Gruppen einzeln verarbeiten?

[Pikachu]

Wozu überhaupt Indizes? Ihr könnt die einzelnen Felder in den Datenstrukturen doch direkt über ihre Namen ansprechen.

Nachtrag: Die Datenstrukturen lassen sich mit MOVE OR_REC AA_REC usw. füllen.

[DKSPROFI]

Wozu überhaupt Indizes? Ihr könnt die einzelnen Felder in den Datenstrukturen doch direkt über ihre Namen ansprechen.

Nachtrag: Die Datenstrukturen lassen sich mit MOVE OR_REC AA_REC usw. füllen.

Genau das mache wir. Jetzt wollen wir aber aus der DS nur einzelne Felder haben, also aus DS1(5) das 3 feld, aus DS4(3) das 10 feld usw.

[Pikachu]

Setze den Index einmal direkt hinter die Datenstruktur (anstelle von hinter das Feld): z.B. EVAL AA_DS($X).AA_FELD = Neu

[DKSPROFI]

Setze den Index einmal direkt hinter die Datenstruktur (anstelle von hinter das Feld): z.B. EVAL AA_DS($X).AA_FELD = Neu

VIELEN HERZLICHEN DANK!!!!!!!! Das wars, vielen Dank auch alle anderen Antworten.