AS400の挿入時に更新トリガー

Question

AS400で現在挿入されている行のフィールドを更新しようとしています。私はバージョン4.5,5.3、および7.1を使用しています。

私のテストでは、CRTDTフィールド（NUMERIC 7,0）を含むテーブルWC（Work Center）を作成しました このテーブルに新しいレコードを挿入するとき、このフィールドの値が小さいそれが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が定義されていないか、使用できないというエラーを取得しています。 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 ***