SQL、AS400 数据库同步问题

发布于 2022-08-23 21:27:37 字数 310 浏览 15 评论 2

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(2

云柯 2022-08-26 19:18:33

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

我很坚强 2022-08-26 08:58:43

AS400 Trigger脚本定义有问题.

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文