× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. April 2007

RE: Triggers prevent requested operation

In our case, we keep the triggers active on development because it makes
it easier to see if programs in development do what they are supposed to
do (our triggers just write before and after images when a file gets
updated, and images of added and deleted records in some of the control
files).

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Captain Jerry
Sent: Tuesday, April 24, 2007 8:45 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Triggers prevent requested operation

*Thanks Francis,*
**
*This is what I'll have to work out, after I figure out how Ops. is
performing the refresh, and after I decide if I really need the Triggers
on
Development at all.*
**
*Jerry*


On 4/24/07, Lapeyre, Francis <FLAPEYRE@xxxxxxxx> wrote:

We do the same thing. I use Extractor/400 to bring the files over from
production into a temporary library, but before I copy them back to
the
development library from the temporary library, I disable the trigger.
After the copy completes, the trigger is re-enabled:

http://code.midrange.com/index.php?id=847ff25a64

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Captain Jerry
Sent: Tuesday, April 24, 2007 8:13 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Triggers prevent requested operation

*Thanks Jonathan,*
**
*Actually Simon's suggestion is the way I'll have to go, because I
don't
want the Trigger to fire for every Delete of a Clear. It happens when
Ops.
does their weekly refresh of the file from Production to Development.
(Actually, now I'm wondering why I need the Triggers on Development at
all?) Still thinking!*
**
*Jerry*


On 4/24/07, Jonathan Mason <jonathan.mason@xxxxxxxxxxxxxxxx> wrote:

Hi Jerry

Alternatively if you want the *DELETE trigger to run for each record
you
could use SQL to delete every record in the file:

DELETE FROM library/file

Hope it helps

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Captain Jerry
Sent: 24 April 2007 05:31
To: RPG programming on the AS400 / iSeries
Subject: Re: Triggers prevent requested operation

Hmmmm... Thanks Simon.... I'm going to have to think about this.
Jerry


On 4/23/07, Simon Coulter <shc@xxxxxxxxxxxxxxxxx> wrote:


On 24/04/2007, at 12:54 PM, Captain Jerry wrote:

I have a Trigger on a file which fires on a Delete Record.
All's
well,
unless I do a Clear Physical File Member (CLRPFM) ~ The Trigger
doesn't like
that.

It's not the TRIGGER that doesn't like it--it's the SYSTEM. The
presumption is that IF you added a *DELETE trigger then you
probably
want it to fire for every record deletion. Because CLRPFM does not
DELETE records but rather truncates the data space there is no
physical
delete operation thus the trigger won't fire. If the trigger isn't
fired how can the trigger program perform whatever action you
desire
when a delete occurs. Nett result is that some operations are not
allowed on a file that has a trigger.


#3 is my problem. How can I get around this? There must be a
trick,
but I
can't find one.

You can't CLEAR a file with a *DELETE trigger so do what the
message
help text tells you and remove the trigger, clear the file, and
add
the
trigger back again. NOTE: I am not recommending this
practice--simply
telling you how you can accomplish it.


Regards,
Simon Coulter.

--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 3 9899 0985 Mobile: +61 0411 091 400 /"\
Fax: +61 3 9899 0985 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \

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


--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




--
Sci-Fi Movie Survival Tips...

#21 Never mate with an alien, No matter how hot it is.
#22 If you discover that you can fly, Don't do it in commercial
airspace.
#23 If you can see bits of flesh caught in it's teeth, You're
standing
too
close.
#24 If a giant asteroid is heading for Earth, Duck and cover won't
help.
#25 When building a robot don't give it a brain, And if you do don't
give
it
a weapon.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




--
Sci-Fi Movie Survival Tips...

#21 Never mate with an alien, No matter how hot it is.
#22 If you discover that you can fly, Don't do it in commercial
airspace.
#23 If you can see bits of flesh caught in it's teeth, You're standing
too
close.
#24 If a giant asteroid is heading for Earth, Duck and cover won't
help.
#25 When building a robot don't give it a brain, And if you do don't
give it
a weapon.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.