Hallo Herr Fuerchau.

Ich muss Ihnen absolut Recht geben, mein Beispiel ging total daneben. Natürlich kein Select(when) sondern if...
Und ausserdem waren die DS falsch definiert.
Deshalb hier die überarbeitete Version.

Sinn und Zweck: Für jede Datei soll ein zentrales "GET", "UPDATE", "INSERT", "DELETE" -Programm verwendet werden.

+++++++++++++++++++++++++++++++++++++++++++
Irgend ein Verarbeitungsprogramm

D PARMA E DS EXTNAME(Datei) Prefix(A)
D PARMN E DS EXTNAME(Datei)

C* füllen Keyfelder in "PARMA"
C CALL "GET"
C PARM PARMA
C Move PARMA PARMN
C* Verarbeitung z.B. Bildschirmausgabe von "PARMN"
C* Ändern von Felder(n) in "PARMN"
C* Aufrufen UPDATE-Programm
C CALL "UPD"
C PARM PARMA
C PARM PARMN

++++++++++++++++++++++++++++++++++++++++++++++
Programm "UPD"
++++++++++++++++++++++++++++++++++++++++++++++
FDatei UF E K DISK
D PARMA E DS EXTNAME(Datei) Prefix(A)
D PARMN E DS EXTNAME(Datei) Prefix(N)
C *ENTRY PLIST
C PARM PARMA
C PARM PARMN
C If PARMN <> PARMA
C Key Chain Datei
C* jetzt stehen Fld01,Fld02... zur Verfügung
C If NFLD01 <> AFld01
C eval Fld01 = NFld01
C endif
C If NFLD02 <> AFld02
C eval Fld02 = NFld02
C endif
C update Datei
C endif

++++++++++++++++++++++++++++++++++++++++++++++
Programm "GET"
++++++++++++++++++++++++++++++++++++++++++++++
FDatei IF E K DISK
D PARMA E DS EXTNAME(Datei)
C *ENTRY PLIST
C PARM PARMA
C Key Chain Datei ***Keyfelder werden in PARMA übergeben
C Return

++++++++++++++++++++++++++++++++++++++++++++++

Soviel zum Programmcode.
Der funktioniert übrigens und ist täglich im Einsatz.

Gruss Joe


Hallo *ALL.
Ich weiss dass dieses Forum kein RPG-Seminar ist wie bei anderen Beiträgen schon mehrmals angemerkt wurde.
Ich möchte nur erfahren, ob SQL die Möglichkeit bietet, innerhalb
eines Update Feldbedingungen abzufragen um nur bestimmte
Felder zu verändern.

Gruss Joe