SQL、AS400 数据库同步问题
使用环境:SQL Server ,AS400 DB2
上海道仑软件公司开发的数据库同步软件
运行程序:AS400 RPGLE数据库操作触发器
问题:在SQL端进行删除操作时,在AS400端的程序触发器捕捉到77952576一串数字,
在Insert、update时能捕捉到SQL的关键字,而删除却捕不到
请指教。
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(2)
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
AS400 Trigger脚本定义有问题.