Re: Before Insert SQL Trigger can't use INSERT or UPDATE statements?

Charles,

Great minds think alike!!

Just made some tests (sorry it wasn't sooner, but had some
weird QTEMP problems creating the trigger).

Ok. It seems that calling a SQLRPGLE is out of the question. When inserting
data, it generates a error indicating that you can't call SQL sentences
doing UPDATE/INSERT, BUT, a conventional RLA RPGLE program works.

HTH,
Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


On Thu, Mar 11, 2010 at 8:44 AM, Charles Wilt <charles.wilt@xxxxxxxxx>wrote:

Another thought....

What if I place the INSERT/UPDATE of FILEB into a user defined
function or stored procedure.

Would that work?

Charles

On Thu, Mar 11, 2010 at 8:10 AM, Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:

All,

I was putting together a Before Insert SQL Trigger and was suprised to
learn that it can't use the INSERT or UPDATE statements...you get an
SQL0751 error:

-- Statements not allowed in an SQL BEFORE trigger are INSERT, UPDATE,
DELETE, ALTER TABLE, COMMENT ON, CREATE, DROP, GRANT, LABEL ON, RENAME,
REVOKE, REFRESH TABLE, and ALTER PROCEDURE.

What I was trying to do (error handling omitted, also note FILEB has
an identity column FILEB_ID)

create trigger FILEA_BEFORE_INSERT
before insert on FILEA
referencing NEW ROW as new_row
for each row mode DB2ROW

begin
if new_row.fileb_id = 0 then
insert into FILEB (fld1, fl2, fld3)
values (new_row.fld1, new_row.fld2, new_row.fld3);
new_row.fileb_id = indentity_val_local();
else
update FILEB
set (fld1, fld2, fld3) = (new_row.fld1, new_row.fld2, new_row.fld3)
where FILEB_ID = new_row.FILEB_ID;
end if;
end

I guess I'm going to have to use RPG for the trigger?

Charles

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.