Hallo,

ich habe in kurzer Zeit 3 Mail's erhalten, die (alle ein wenig anders) mir sehr geholfen haben. Danke !

Hier für alle, die evtl. noch nach mir eine Lösung suchen, die "Pointer-Version" (von Birgitta):

* Definiert den fixen Teil des Trigger Buffers = Parameter 1
* Datenstruktur QDBTB
/COPY QSYSINC/QRPGLESRC,TrgBuf

* Länge des Buffers
D trigBufLen s 10i


D newRecord e ds extname(FILEA)
prefix(NEW_)
based(pNewRecord)
D oldRecord e ds extname(FILEA)
prefix(OLD_)
based(pOldRecord)


* Definieren Eingangs-Parameter
C *entry plist
C parm QDBTB (Trigger Buffer)
C parm trigbuflen

* Einlesen des alten und neuen Satzes in die Externen Datenstrukturen
* 1. Neuer Satz : Pointer Triggerbuffer + Offset Beginn Neuer Satz
* 2. Alter Satz : Pointer Triggerbuffer + Offset Beginn Alter Satz

C eval pNewRecord =
%addr(QDBTB) + QDBNRO (Neuer Satz)
C eval pOldRecord =
%addr(QDBTB) + QDBORO (Alter Satz)


MfG
Detlev