IT Answers » Triggers

Trigger

swamy007 — Fri, 21 Sep 2012 09:02:50 +0000

Question Edited by MTidmarsh

Trigger over table that uses transaction inserts

KSC — Wed, 25 Jan 2012 17:23:41 +0000

I have a table that is being updated via JDBC. The program that is writing records (sql insert) is using transactions. This table has an after insert trigger on it.

When the trigger is disabled the table is updates correctly.

When the trigger is on we get the first record and the tigger locks the record and the insert of the other transaction rows never completes.

My trigger is defined like this.



 CREATE TRIGGER DECOURTTR 

 AFTER INSERT ON DECOURT 

 FOR EACH STATEMENT 

 MODE DB2SQL 

 SET OPTION ALWBLK = *ALLREAD , 

 ALWCPYDTA = *OPTIMIZE , 

 COMMIT = *NONE , 

 CLOSQLCSR = *ENDMOD , 

 DECRESULT = (31, 31, 00) , 

 DFTRDBCOL = *NONE , 

 DYNDFTCOL = *NO , 

 DYNUSRPRF = *USER , 

 SRTSEQ = *HEX 

 BEGIN ATOMIC 

 DECLARE P_ACTION CHAR ( 3 ) ; 

 SET P_ACTION = 'ADD' ; 

 CALL DECOURTPR ( P_ACTION ) ; 

 END ;

How do I need to redefine this to make it work? Kerwin

Execute trigger only on update of selected fields

r.otto — Wed, 22 Dec 2010 11:00:58 +0000

We have created some trigger programs in COBOL that should be executed only if certain fields change.

When creating a SQL-After trigger and -program on a file I can specify that the trigger should run only when specified fields are updated by using: AFTER UPDATE OF {fields} ON {file}.

Unfotunately when removing a SQL trigger from a file (RMVPFTRG) both the trigger and the trigger program no longer exist.

Is there a way to create a trigger that is likewise selectively executed by adding it with the ADDPFTRG command or in any other way? So if, for some reason, we need to remove the trigger temporary, the trigger and the trigger program do not have to be regenerated in SQL.

Create trigger using iSeries Navigator

Myhandle540 — Thu, 02 Dec 2010 02:28:08 +0000

I am trying to ceate a simple trigger to a table to update a history file with the old rate when the rate changes in the master table.
I have gone as far as creating the sql statement, but I am not able to make it to work (my sql is very limitted).
Would it be possible to have some example that I could reference?

Thanks,
Jose

How do I create a trigger in VB 6?

AnandaDebnath — Mon, 26 Jul 2010 03:57:27 +0000

HOW TO CREATE A TRIGGER IN VB6

After trigger select from other tables using joins

Pmnc8179 — Wed, 13 May 2009 15:48:02 +0000

Is it possible to create a trigger on table A if there is an insert, update, or delete then fire the trigger but in addition to the changes in table A I want to capture values from table B,C,D,E…. even if those records had no action applied to them. I tried declaring variables from the other tables and then referencing them latter. The trigger complies fine but does not do anything. I’am I going about this the wrong way? If the select statement is removed the triggers fires for all actions but of course does not contain values form other tables. By the way I’m a newbie, so if the syntax makes no sense that’s the reason.

create or replace
TRIGGER PMA_EH_ENTITY
AFTER INSERT OR UPDATE OR DELETE
ON EH_ENTITY
FOR EACH ROW
DECLARE
VRecordAction P_TABLE.RECORDACTION%TYPE := NULL;
VRecordName P_TABLE.RECORDNAME%TYPE := NULL;
VPKey P_TABLE.PKEY%TYPE := NULL;
VRecordData P_TABLE.RECORDDATA%TYPE := NULL;
EP_JUVENILE_FLAG “EH_ENTITY_PERSON”.”JUVENILE_FLAG”%TYPE := NULL;
EP_ENTITY_ID “EH_PERSON_IDENTITY”.”ENTITY_ID”%TYPE := NULL;
PI_NAME_FAMILY “EH_PERSON_IDENTITY”.”NAME_FAMILY”%TYPE := NULL;
G_CODE_GENDER “EH_ENTITY_GENDER”.”CODE_GENDER”%TYPE := NULL;
RC_CODE_RACE “EH_ENTITY_RACE”.”CODE_RACE”%TYPE := NULL;
R_BOOKING_ID “EH_BOOKING”.”BOOKING_ID”%TYPE := NULL;
R_START_DATE “EH_BOOKING”.”START_DATE”%TYPE := NULL;
BEGIN
VRecordName := ‘PMA’;
IF INSERTING OR UPDATING
THEN
IF INSERTING
THEN
VRecordAction := ‘I’;
ELSE
VRecordAction := ‘U’;
END IF;

SELECT “A1″.ENTITY_ID,AC.JUVENILE_FLAG,A8.NAME_FAMILY,A2.CODE_GENDER,A5.CODE_RACE,R.BOOKING_ID,R.START_DATE
INTO EP_ENTITY_ID,EP_JUVENILE_FLAG,PI_NAME_FAMILY,G_CODE_GENDER,RC_CODE_RACE,R_BOOKING_ID,R_START_DATE
FROM “EH_ENTITY” “A1″
LEFT OUTER JOIN EH_ENTITY_GENDER A2 ON (A1.ENTITY_ID = A2.ENTITY_ID)
LEFT OUTER JOIN EH_ENTITY_PERSON AC ON (A1.ENTITY_ID = AC.ENTITY_ID)
LEFT OUTER JOIN EH_ENTITY_RACE A5 ON (A1.ENTITY_ID = A5.ENTITY_ID)
LEFT OUTER JOIN EH_PERSON_IDENTITY A8 ON (A1.ENTITY_ID = A8.ENTITY_ID)
RIGHT JOIN EH_BOOKING R ON (A1.ENTITY_ID=R.ENTITY_ID);

VPKey := ‘’||(TO_CHAR(:new.ENTITY_ID))||’’;

VRecordData := REPLACE(REPLACE(REPLACE(‘’ || REPLACE(REPLACE(RTRIM(LTRIM(:new.ENTITY_ID)),’>’,”),’<’,”) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(EP_JUVENILE_FLAG)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(PI_NAME_FAMILY)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(G_CODE_GENDER)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(RC_CODE_RACE)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(R_BOOKING_ID)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(R_START_DATE)),’>’,’ ‘),’<’,’ ‘) || ‘’
,chr(13),”),chr(10),”),chr(9),’ ‘);
ELSIF DELETING
THEN
VRecordAction := ‘D’;
VPKey := ‘’||(TO_CHAR(:old.ENTITY_ID))||’’;
VRecordData := REPLACE(REPLACE(REPLACE(‘’ || REPLACE(REPLACE(RTRIM(LTRIM(:old.ENTITY_ID)),’>’,”),’<’,”) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(EP_JUVENILE_FLAG)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(PI_NAME_FAMILY)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(G_CODE_GENDER)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(RC_CODE_RACE)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(R_BOOKING_ID)),’>’,’ ‘),’<’,’ ‘) || ‘’
|| ‘’ || REPLACE(REPLACE(RTRIM(LTRIM(R_START_DATE)),’>’,’ ‘),’<’,’ ‘) || ‘’
,chr(13),”),chr(10),”),chr(9),’ ‘);
END IF;
INSERT INTO P_TABLE (RECORDACTION, RECORDNAME, PKEY, RECORDDATA)
VALUES (VRecordAction, VRecordName, VPKey, VRecordData);
EXCEPTION
— If an exception is raised, exit gracefully
WHEN OTHERS
THEN
NULL;
END;

Subscript beyond count on nested table (trying to update a column in a trigger for the same table as trigger)

APB — Sun, 01 Feb 2009 23:39:50 +0000

CREATE OR REPLACE PACKAGE trigger_api AS

PROCEDURE tab1_row_change (p_id IN ae_dt526.field1%TYPE,
p_action IN varchar2,
p_field13 IN varchar2,
p_blanket_ind IN varchar2
);

PROCEDURE tab1_statement_change;

END trigger_api;
/
CREATE OR REPLACE PACKAGE BODY trigger_api AS

TYPE t_change_rec is record (
field1 ae_dt526.field1%TYPE,
action tab1_audit.action%TYPE,
field13 tab1_audit.field13%TYPE,
blanket_ind tab1_audit.blanket_ind%TYPE
);

TYPE t_change_tab is table of t_change_rec;
g_change_tab t_change_tab := t_change_tab();

PROCEDURE tab1_row_change (p_id IN ae_dt526.field1%TYPE,
p_action IN varchar2,
p_field13 IN varchar2,
p_blanket_ind IN varchar2) IS
BEGIN

g_change_tab.extend;
g_change_tab(g_change_tab.last).field1 := p_id;
g_change_tab(g_change_tab.last).action := p_action;
g_change_tab(g_change_tab.last).field13 := p_field13;
g_change_tab(g_change_tab.last).blanket_ind := p_blanket_ind;

END tab1_row_change;

procedure tab1_statement_change is
l_count number(10);
v_blanket_ind varchar2(1);
begin
g_change_tab.extend;
–for i in g_change_tab.first..g_change_tab.last loop
— I am getting the subscript beyond count error here
— I realy need the first and last values to work.
for i in 1..6 loop
select count(*)
into l_count
from ae_dt526;

if i <= l_count then
select NVL(fpbpohd_blanket_ind,’N')
into v_blanket_ind
from fpbpohd
where fpbpohd_code = g_change_tab(i).field13;

g_change_tab(i).blanket_ind := v_blanket_ind;
–v_blanket_ind := ‘N’;

insert into tab1_audit(field1, action, field13, record_count,created_time, blanket_ind)
VALUES (g_change_tab(i).field1,g_change_tab(i).action, g_change_tab(i).field13,l_count,
sysdate, g_change_tab(i).blanket_ind);

end if;

end loop;
g_change_tab.delete;
end tab1_statement_change;

END trigger_api;
/

CREATE OR REPLACE TRIGGER tab1_aru_trg
after update on ae_dt526
for each row
begin

trigger_api.tab1_row_change(p_id=>:new.field1,p_action=>’UPDATE’,p_field13=>:new.field13,p_blanket_ind=>:new.field20);

end;
/
show errors
CREATE OR REPLACE TRIGGER tab1_asu_trg
AFTER UPDATE ON ae_dt526
BEGIN
trigger_api.tab1_statement_change;
END;
/

How to call trigger stored in database using Oracle Forms

RoseForHeba — Fri, 30 Jan 2009 09:47:20 +0000

how to call trigger stored in database using oracle forms

Update a field in one table after the change on a field in another table using a trigger in SQL

Tanjaatbrenlo — Wed, 17 Dec 2008 19:08:42 +0000

I have a WODet table and after the field “Complete” is changed to “True” I need to update my SODet table field “UD3″ to “True” using a trigger in SQL where
dbo.SalesOrderDetails.SalesOrderDetailID = dbo.WorkOrderDetails.SalesOrderDetailID

Thank you in advance

Writing a hidden trigger against a SQL table

SQL Server Ask the Experts — Wed, 10 Dec 2008 19:48:26 +0000

How do I write a hidden trigger against a SQL table?