SQL、AS400 数据库同步问题

szhyl

使用环境：SQL Server ,AS400 DB2
               上海道仑软件公司开发的数据库同步软件
运行程序：AS400 RPGLE数据库操作触发器

问题：在SQL端进行删除操作时，在AS400端的程序触发器捕捉到77952576一串数字，
      在Insert、update时能捕捉到SQL的关键字，而删除却捕不到
      请指教。

qingzhou

AS400 Trigger脚本定义有问题.

szhyl

H DATEDIT(*YMD/)                                                  
FSQLPBLOT  IF   E           K DISK    RENAME(SQLPBLOT:SQLREC)     
D                SDS                                             
D  PGID#            *PROC                                         
D  WSID#                244    253                                
D  USER#                254    263                                
D  TIME#                282    287  0                             
D*                                                               
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  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                          *                              
D EXTDS         E DS                  EXTNAME(SQLPBLOT)         
D  LENG           DS                                             
D   LEN                   1      4B 0                           
DT                S               T                              
D*SQL SERVER->AS400 变量定义                                    
D                 DS                                               
D   ##IDDD                1      9  0                              
D                 DS                                               
D   @@IDDD                1      9                                 
C*****************************************************************
C                   EXSR      #PARM                                
C                   EXSR      #MAIN                                
C                   EVAL      *INLR=*ON                           
C                   RETURN                                         
C*****************************************************************
C*PLIST/LIST                                                      
C*****************************************************************
C     #PARM         BEGSR                                          
C     *ENTRY        PLIST                                          
C     BUFFER        PARM                    BUFFER                 
C     LENG          PARM                    LENG                  
C                   EVAL      EXTDS=%SUBST(BUFFER:NEWOFF+1:NEWLEN)
C     @PARM         ENDSR                                          
C*****************************************************************
C*MAIN PROCESS LOOP                                                
C*****************************************************************
C     #MAIN         BEGSR                                          
C                   Z-ADD     *ZEROS        ##IDDD                 
C                   Z-ADD     LOTIDDD       ##IDDD                 
C                   MOVE      ##IDDD        @@IDDD                 
C                   CALL      'MPBLOTTR3C'                       调用删除程序，关键如何取得该数据表的第一个字段？  
C                   PARM                    @@IDDD                 
C     @MAIN         ENDSR