在AS400中插入时更新触发器

Question

我正在尝试更新AS400中当前插入行的字段。 我正在使用版本4.5、5.3和7.1。

对于我的测试，我创建了一个包含CRTDT字段（NUMERIC 7,0）的表WC（工作中心），当在该表中插入新记录时，我想检查该字段的值是否小于200,000，如果是，加上1,000,000。

我的SQL是：

--  Generate SQL 
--  Version:                    V5R4M0 060210 
--  Generated on:               10/13/16 10:03:49 
--  Relational Database:        S65BEE7B 
--  Standards Option:           DB2 UDB iSeries 
CREATE TRIGGER RAVONLIB.WC_TRIGGER 
    AFTER INSERT ON RAVONLIB.WC 
    FOR EACH STATEMENT 
    MODE DB2SQL 
    SET OPTION  ALWBLK = *ALLREAD , 
    ALWCPYDTA = *OPTIMIZE , 
    COMMIT = *NONE , 
    DECRESULT = (31, 31, 00) , 
    DFTRDBCOL = *NONE , 
    DYNDFTCOL = *NO , 
    DYNUSRPRF = *USER , 
    SRTSEQ = *HEX   
    BEGIN ATOMIC 
IF WC.CRTDT<200000 THEN
    UPDATE RAVONLIB . WC SET CRTDT = 1000000 + CRTDT ; 
END IF;
END  ;

我收到一个错误，指出变量CRTDT未定义或不可用。 小于200000时正确更新CRTDT的正确语法是什么？

Answer 1

您应该使用BEFORE INSERT触发器。

此外，您需要在插入列值时对其进行修改...您无法在触发器中对刚刚插入的行运行SQL UPDATE语句。

最后，您需要一个行触发器，而不是一个语句触发器。

CREATE TRIGGER RAVONLIB.WC_TRIGGER 
    BEFORE INSERT ON RAVONLIB.WC 
    REFERENCING NEW AS new_row
    FOR EACH ROW MODE DB2ROW
    SET OPTION  ALWBLK = *ALLREAD , 
    ALWCPYDTA = *OPTIMIZE , 
    COMMIT = *NONE , 
    DECRESULT = (31, 31, 00) , 
    DFTRDBCOL = *NONE , 
    DYNDFTCOL = *NO , 
    DYNUSRPRF = *USER , 
    SRTSEQ = *HEX   
    BEGIN ATOMIC 
IF new_row.CRTDT<200000 THEN
    SET new_row.CRTDT = 1000000 + new_row.CRTDT ; 
END IF;
END  ;

Answer 2

FWiW，主要是教化的，因为考虑到我对已经接受的答案的评论，这几乎不是一个答案 ：正如在v5r3上所验证的，以下内容将OP的语句触发模拟为逻辑结论； 甚至不知道谁会拥有要测试的v4r5系统- “天哪！ ：

create table wc
( PKfld int not null
, CRTDT numeric(7)
, constraint WC_PK primary key (PKfld)
)             
;
CREATE TRIGGER wc_trg_ai                       
 After Insert on WC                            
REFERENCING NEW TABLE AS xt                    
FOR EACH STATEMENT  MODE DB2SQL                
SET OPTION COMMIT = *NONE                      
  BEGIN ATOMIC                                 
   update WC set WC.CRTDT = WC.CRTDT + 1000000 
   where WC.CRTDT<200000                       
     and exists ( select '1' from XT as xt     
                  where xt.PKfld = WC.PKfld ) ;
  END                                          
; -- semicolon as statement separator, not end of trigger-body
insert into wc values                                 
  (  1, '0000001'), (  2, '0200000'), (  3, '0000300')
, (  4, '0400000'), (  5, '0050000'), (  6, '0600000')
; -- per trigger dfn, the even-numbered key values will not see an UPDATE
select * from WC
; -- likeness of report from above query:
  PKFLD       CRTDT 
      1   1,000,001 
      2     200,000 
      3   1,000,300 
      4     400,000 
      5   1,050,000 
      6     600,000 
***  End of data  ***