Trigger problem, OS390/DB2 v7

[ulfnsc]

Trigger problem, OS-390/DB2 v7
Hej
Trigger problem.
OS-390/DB2 v7

(GiltigFom and GiltigTom IS NULL)
When the trigger below is executed it is only the first CASE that is SET.
-----------

DROP TRIGGER TR_INSTAANST

CREATE TRIGGER tr_insTAAnst NO CASCADE BEFORE INSERT ON TAAnst 
REFERENCING NEW as NEW_VAR
FOR EACH ROW MODE DB2SQL
WHEN (NEW_VAR.A06_GiltigFom IS NULL OR NEW_VAR.A06_GiltigTom IS NULL)
BEGIN ATOMIC
SET NEW_VAR.A06_GiltigFom =
CASE
WHEN NEW_VAR.A06_GiltigFom IS NULL THEN CURRENT DATE
END,
NEW_VAR.A06_GiltigTom =
CASE
WHEN NEW_VAR.A06_GiltigTom IS NULL THEN '2999-12-31'
END; 
END

--------------

Any help would be appreciated.
/uffe

 

[cicscoboldb2]

You could try writting 2 triggers as in -

CREATE TRIGGER tr_insTAAnst1 NO CASCADE BEFORE INSERT ON TAAnst
REFERENCING NEW as NEW_VAR
FOR EACH ROW MODE DB2SQL
WHEN (NEW_VAR.A06_GiltigFom IS NULL)
BEGIN ATOMIC
SET NEW_VAR.A06_GiltigFom = CURRENT DATE;
END

CREATE TRIGGER tr_insTAAnst2 NO CASCADE BEFORE INSERT ON TAAnst
REFERENCING NEW as NEW_VAR
FOR EACH ROW MODE DB2SQL
WHEN (NEW_VAR.A06_GiltigTom IS NULL)
BEGIN ATOMIC
SET NEW_VAR.A06_GiltigTom = '2999-12-31';
END

I have found DB2 is happy enough to have a bunch of triggers on any given table without too much performance hit.

Cheers,
Steve.