zOs/TX/WK972DDL

set current sqlid = 'S100447';
drop   view $creator.vqz91wk972 ;
$@[
if $phase > 0 then $@=[
set current schema = $creator;
create view $creator.vqz91wk972 as
    select 'abc' abc,23 int from $creator.Tqz91wk970A1;
TERMINATOR? ;
CREATE TRIGGER $creator.vqz91wk972upd
  INSTEAD OF update ON $creator.vqz91wk972
  REFERENCING New       as n   old       as o
  FOR EACH row       MODE DB2SQL
    BEGIN ATOMIC
    update tqz91wk970a1 set WK970CHB = n.abc
        where wk970CHB = o.abc
    ;
    values raise_error('77CDE' ,'signal trigger $creator.vqz91wk972upd'
       || ' o.abc=' || o.abc || ' n.abc=' || n.abc
       || ' phase=$phase') ;
--  select * from sysibm.sysDummy1 ;
    end
   ?
TERMINATOR; ?
commit;
select * from $creator.vqz91wk972
    fetch first 5 rows only;
-- Update $creator.vqz91wk972 set abc = 'qrs' ;
$]
$]