RE: Get Record Creation Date

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.