SQL、AS400 數(shù)據(jù)庫同步問題

szhyl

使用環(huán)境：SQL Server ,AS400 DB2
               上海道侖軟件公司開發(fā)的數(shù)據(jù)庫同步軟件
運(yùn)行程序：AS400 RPGLE數(shù)據(jù)庫操作觸發(fā)器

問題：在SQL端進(jìn)行刪除操作時(shí)，在AS400端的程序觸發(fā)器捕捉到77952576一串?dāng)?shù)字，
      在Insert、update時(shí)能捕捉到SQL的關(guān)鍵字，而刪除卻捕不到
      請(qǐng)指教。

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'                       調(diào)用刪除程序，關(guān)鍵如何取得該數(shù)據(jù)表的第一個(gè)字段？  
C                   PARM                    @@IDDD                 
C     @MAIN         ENDSR