Trigger Example? 1

[Skittle]

I need to modify a file so that each time a field is changed, it records a copy of the record in another file.

Does anybody have an example of how to set up an AS400 trigger? - preferably in AS400 SQL.

Dazed and confused

 

[Mercury2]

CREATE TRIGGER MyLib/MyTrigger                 
AFTER Update ON MyFile                                         
REFERENCING NEW ROW AS NRow                                     
            OLD ROW AS ORow                                     
FOR EACH ROW MODE DB2SQL                                        
BEGIN                                                           
INSERT INTO MySpyFile ( Col1, Col2, ..., ColN )
               VALUES ( NRow.Col1, NRow.Col2, ..., NRow.ColN );
END

Check out

http://www.redbooks.ibm.com/abstracts/sg246503.html?Open

 

[Skittle]

Many thanks.



Dazed and confused