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

Charles,

I get SQL0577. Loosely translated it says "It is not allowed to modify SQL
data". Between the probable causes it states, further in the message body,
that "A Before Trigger has been activated that has sentences that modify
data" (again, a very loose translation)

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


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

Luis,

Ok, I haven't tried the SQLRPGLE yet...

What's the error you get???

Charles

On Thu, Mar 11, 2010 at 9:38 AM, Luis Rodriguez <luisro58@xxxxxxxxx>
wrote:

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.

--
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.

--
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.