RCVF - Aktuellen Satz kopieren

[kitvb1]

SQL ist eleganter
insert into where...

[Pikachu]

Beim CPYF kann man Zeichentests und Feldtests angeben.

[RobertMack]

Falls es eindeutige Schlüsselfelder (oder eine eindeutige Kombination aus Feldern) gibt:

LOOP: RCVF
MONMSG CPF0000 EXEC(GOTO ENDE)

IF COND(Deine Prüfung) THEN(DO)
CPYF FROMFILE(RCVF-Datei) TOFILE(Zieldatei)
INCREL( (*IF FELD1 *EQ &FELD1) (*AND FELD2 *EQ &FELD2) (*AND...) )
ENDDO
GOTO LOOP
ENDE:

Aus dem Kopf, bzgl. INCREL könnte auch *BCAT mit Feldinhalt erforderlich sein...

Und performant ist das auch nicht, aber zur Not... ;-)

[Fuerchau]

Nunja, CLP ist da etwas "armselig" aber natürlich für solche Sachen nicht gemacht.
Aber die einfachste Sache ist eben, eine Variable als Satzzähler zu verwenden.

Vorsicht:
Enthält die Datei gelöschte Sätze, stimmt dein Satzzähler nicht mehr !
Also einen RGZPFM vorab durchführen.

[holgerscherer]

Enthält die Datei gelöschte Sätze, stimmt dein Satzzähler nicht mehr !
Also einen RGZPFM vorab durchführen.

Jetzt greifen wir aber tief in die Steinzeit-Trickkiste ;-)
Sauberer wärs ja, wenn der OP das CL mit einem RPG verheiratet...

-h

[Pikachu]

Was für eine Bedingung ist denn das genau, die da dann für jeden gelesenen Satz erfüllt ist oder nicht?

[Fuerchau]

@Holger
Wenn man die Steinzeit noch mitgemacht hat kann das manchmal ganz hilfreich sein, was wären wir schließlich ohne diese.