Trigger nach Wechsel auf V5R2M0

[B.Hauser]

Hallo Klaus,

vielleicht hilft Dir das folgende Beispiel weiter.
Die Datenstruktur für Parameter 1 ist in der Bibliothek QSYSINC, Datei QRPGLESRC, Teil-Datei TrgBuf vorhanden:

Beispiel

 *Defintition Parameter
 /COPY QSYSINC/QRPGLESRC,TrgBuf            
D trigBufLen      s             10i 0      

 * Externe Datenstrukturen für Satz alt/neu
D newRecord     e ds                  extname(FILEA) prefix(NEW_)  
D                                     based(pNewRecord)            
D oldRecord     e ds                  extname(FILEA) prefix(OLD_)  
D                                     based(pOldRecord)            
 *----------------------------------------------------------------------------                              
C     *entry        plist                                    
C                   parm                    QDBTB            
C                   parm                    trigbuflen       

 * 1. Neuer Satz : Pointer Triggerbuffer + Offset Beginn Neuer Satz       
 * 2. Alter Satz : Pointer Triggerbuffer + Offset Beginn Alter Satz       
C                   eval      pNewRecord = %addr(QDBTB) + QDBNRO          
C                   eval      pOldRecord = %addr(QDBTB) + QDBORO          
                                                                          
 * Verarbeitung                                                           

C                   Return 

Birgitta