RE: Get Record Creation Date

["Briggs, Trevor (TBriggs2)" <TBriggs2@xxxxxxxxxxx>]

William,
As I understand it, your requirements are:
1) You must achieve A.
2) To achieve A you may not use any facilities that are easy, logical or
efficient.
Good luck with finding that new position!

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of William Salim
Sent: Monday, January 06, 2014 10:36 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Get Record Creation Date

Hi Guys, just at home already from work. And the result is i cannot do
the
trigger process, this is not allowed.
So I use the RRN process but adding more steps.

Every records that the app read will log to the work file the flag for :
1. Last RRN that read
2. months+day KEY
3. Logged 1 row last record to work file

the process is when its normal will use the RRN,
IF RRN not found or being reorganized then
    chain to months+days and trace
    if found()
       do until found or eof
            check the records compare to DS that record in work file
            if found()
               log to work file
               leave
            endif
            if not found() and eof()

*someone delete the record (Manual auditing)*
            endif
       enddo
     endif
ELSE
     select where rrn(file) >= last RRN from work file
ENDIF

I use SQLRPGLE process, SELECT to get the RRN and Logical file contain
month+day.

Not sure it is, but as long as it is run, i will keep my eyes closed at
hopefully wake up at another place :)

Good night guys



On Mon, Jan 6, 2014 at 9:53 PM, D*B <dieter.bender@xxxxxxxxxxxx> wrote:

> @Charles: thanks for assistence. We use this technique at many
customers
> in SQL only environments, so I didn't have an example for the DDS/RLA
> versions.
> @Buck: first time I succeeded to convince management for using
journaling
> of all tables is > 20 years ago. We've had had a CISC D60 and there
was
> nearly no measurable impact. If you have slow disks, creating an ASP
of its
> own for the receivers will compensate this. Disk space requirements
could
> be minimized by an appropriate reorg process.
> Your recommendation to have a 1 h limited try with measurments is a
good
> one.
>
> D*B
> --
> This is the RPG programming on the IBM i (AS/400 and 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.