触发器程序：MPPF10
MPPF10是要监控的表
PENGLEI 是把数据取出来后放的表
ADDPFTRG FILE(JJDTAL1/MPPF10) TRGTIME(*BEFORE) TRGEVENT(*INSERT) PGM(PAYPG
MLIB/MPPF10)                                                                    

 *------------------------------------------------------
FMPPF10    IF   E           K DISK                      
F*                                    INFSR(@FERF00)    
F*                                      参数表          
FPENGLEI   UF A E           K DISK                      
F                                                       
F                                                       
 *------------------------------------------------------
D Buffer          DS         32767      
D  FileName               1     10      
D  LibraryName           11     20      
D  MemberName            21     30      
D  TrgEvent              31     31      
D  TrgTime               32     32      
D  CommitLckLvl          33     33      
D  Filler1               34     36      
D  CCSID                 37     40B 0   
D  Filler2               41     48      
D  OldOff                49     52B 0   
D  OldLen                53     56B 0   
D  OldNullOffset         57     60B 0   
D  OldNullLength         61     64B 0   
D  NewOff                65     68B 0    
D  NewLen                69     72B 0    
D  NewNullOffset         73     76B 0    
D  Resv3                 81     96       
D  other                          *      
DExtDs          E Ds                  ExtName(MPPF10)              
D Leng            DS                                               
D  Len                    1      4B 0                              
DT                S               T                                
C                                                                  
 *---------------------------------------------------------------- 
C     *entry        Plist                                               
C     Buffer        Parm                    Buffer                      
C     LENG          Parm                    LENG                        
C*  判断                                                                
C                   Eval      ExtDs = %subst(Buffer:Newoff+1:NewLen)    
C*  得到新加的记录值                                                    
C                                                                       
C                   Eval      MP10PYAMTA=MP10PYAMT                      
C                   Eval      MP10PRACCA=MP10PRACC                      
C                   Eval      MP10PRNAMA=MP10PRNAM                      
C                   Eval      MP10PEACCA=MP10PEACC                      
C                   Eval      MP10PENAMA=MP10PENAM                      
 *                                                                      
C                   WRITE     PL                                       
C                                                                      
C                   EXSR      @EXIT                                    
C*------------------------------------------------------------------*  
 * @EXIT  　退出程序                                                *  
C*------------------------------------------------------------------*  
C     @EXIT         BEGSR                                              
C                   SETON                                        LR    
C                   RETURN                                             
C                   ENDSR                                              
C

PF:PENGLEI
*************** Beginning of data **********************************
     A          R PL                                                
     A                                                              
12P2 A            MP10PYAMTA    12P 2       COLHDG(' 付款金额 ')    
     A                                                              
32A  A            MP10PRACCA    32A         COLHDG(' 付款人帐号 ')  
     A                                                              
60O  A            MP10PRNAMA    62O         COLHDG(' 付款人名称 ')  
     A                                                              
32A  A            MP10PEACCA    32A         COLHDG(' 收款人帐号 ')  
     A                                                              
60O  A            MP10PENAMA    62O         COLHDG(' 收款人名称 ')  
     A                                                              
     A                                                              
     A          K MP10PRACCA                                        
     A          K MP10PEACCA                 

PF:MPPF10
*************** Beginning of data **********************************
     A          R MPR10                                               
     A                                                              
12P2 A            MP10PYAMT    12P 2       COLHDG(' 付款金额 ')    
     A                                                              
32A  A            MP10PRACC    32A         COLHDG(' 付款人帐号 ')  
     A                                                              
60O  A            MP10PRNAM    62O         COLHDG(' 付款人名称 ')  
     A                                                              
32A  A            MP10PEACC    32A         COLHDG(' 收款人帐号 ')  
     A                                                              
60O  A            MP10PENAM    62O         COLHDG(' 收款人名称 ')  
     A                                                              
     A                                                              
     A           K MP10PRACC