Hallo Forum.

Ein Bild sagt mehr als tausend Worte...
deshalb etwas Code:

D File E DS ExtName(Datei)
D UFile E DS Extname(Datei) Prefix(U)

C *Entry Plist
C Parm File
C Parm UFile

C select
C when Fld01 <> UFld01
C eval Fld01 = UFld01
C when Fld02 <> UFld02
C eval Fld02 = UFld02
C when Fld03 <> UFld03
C eval Fld03 = UFld03
C* usw.
C endsl
C if file <> UFile
C update Datei
C endif



Dieses "Program" wird aus einer DDS
generiert und als "Server-Program" für Datei-Updates eingesetzt.
Der Update erfolgt nur für die tatsächlich geänderten Felder
aus der Datei-Datenstruktur UFile.
(Natürlich fehlt da einiges an Code- aber ich hoffe, das wesentliche kommt rüber.)
Und Jetzt die Frage an *ALL:
Wie kann ich den Select/Update entsprechend dem obigen Beispiel mit Embedded SQL erledigen?
Geht das überhaupt?

Gruss Joe