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



 http://tinyurl.com/anqtt 
 
( http://www.martinvt.com/Code_Samples/Trigger/trigger.html )
 
The above is  a trigger program that Pete Hall originally wrote. 
 
 
Pete's site has an explanation:
 
http://www.pbhall.us/trigger.html
 
 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: MA
Date: 12/03/05 17:05:46
To: RPG programming on the AS400 / iSeries
Subject: Trigger Program
 
Hello,
 
I need a standard trigger program to update fileB when
fileA gets updated. Can you pls point me to a place
where I can find that.
 
Thanks
Mike
 
 
--- "Raul A. Jager W." <raul@xxxxxxxxxx> wrote:
 
> Asuming you want to add the user, time, date and
> program that did the
> last update, the trigger will be your best option.
> For user and
> date-time it is direct, create a D line with a
> variable alpha 10
> inz(*user) and write it to your file.  For date use
> either %date(),
> %time() or %timestamp().
> In order to write wich program was used you need to
> call an API.
>
> To find out the some of the programs doing currently
> the update you can
> journal the file.
>
> Raul.
>
> Mahesh Pawar wrote:
>
> >can you let me knwo how.?
> >
> &gt;FrankKany@xxxxxxxxxxx wrote:  I think that a
> trigger program might help.
> >
> >Frank W. Kany IV
> >Senior Programmer/Analyst
> >Unipres USA, Inc.
> >(615) 325-8428 - Office
> >(615) 517-1742 - Cell
> >http://www.unipres.com
> >
> >
> >
> >Mahesh Pawar
> >
> >Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> >12/02/2005 05:55 AM
> >Please respond to
> >RPG programming on the AS400 / iSeries
> >
> >
> >To
> >RPG programming on the AS400 / iSeries
> >cc
> >
> >Subject
> >How to find who is updating particular PF ?
> >
> >
> >
> >
> >
> >
> >Hi all,
> >
> >
> >I need to add 2 new fields to a sales extract file
> and also populate
> >them.The problem is I am not able to figure out how
> the file is getting
> >updated.(which programs is updating this file)
> >
> >
> >Whats known:
> >
> >The sales Extract file is journalled and the
> journal entries are created
> >by a program which is a part of the datamirroring
> software. There is a
> >constantly running batch job (also a part of
> Datamirror) which is most
> >likely monitoring updates to the sales file.
> >The object locks for this batch job has a *USRQ
> object which leads me to
> >believe that the data from the sales file is
> written to the extract file
> >using the *USRQ object. Since the Datamirroring
> package is a 3rd party
> >tool, I do not have access to the source code.
> >
> >I have verified that the Sales extract file is not
> DIRECTLY
> >referenced/updated thru programs (scanned source
> members and also did a
> >dsppgmref) / queries / Sqlpkg / dataareas /
> triggers).
> >
> >How do user queues work?? Is there anything else
> that I need to check.
> >
> >Will appreciate if anyone could help. Thanks in
> advance.
> >
> >Thanks & Regards
> >Mahesh Pawar
> >
> >
>
> --
> 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.
>
>
 
 
 
 
__________________________________________
Yahoo! DSL ? Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com
 
--
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.