Re: Get Record Creation Date

Of course you can use RRN in your temporary online environment if you
don't have autonome terrorists like Deiter in your environment.


On Sun, Jan 5, 2014 at 9:47 PM, CRPence <CRPbottle@xxxxxxxxx> wrote:

On 05-Jan-2014 09:41 -0800, William Salim wrote:

Before this I also use RRN, but as Birgitta said what about if
reorganized or perhaps data deleted. So that why I asked to this
forum.

Of course /deleted/ records would have no impact, *if* the file is
defined with Reuse Deleted Records attribute turned off [i.e.
REUSEDLT(*NO)], at least *until* the data is reorganized.

Still thinking using the trigger combine with RRN or not...

If the RRN is acceptable [I agree with both Birgitta and Dieter that
using RRN should be avoided], then a simple means to circumvent the lack
of the year data is to create a file that defines the range of RRN from
each year of data. Use that new file to provide data for the missing
year information.

Given the assumption that the first 12000 rows are from year=2012,
the next 13000 are from year=2013, and some 14 recently added rows are
from year=2014:

create table yearMap
( fromRRN dec(7), toRRN dec(7), isYear dec(4) )
;
insert into yearMap values
( 1, 12000, 2012 )
, ( 12001, 25000, 2013 )
, ( 25001, 25014, 2014 )
, ( 25015, 9999999, default )

Then the reporting can use the effect of the following query [using
whatever technique is required or desired to minimize changes to the
reporting program; e.g. OPNQRYF]:

select D.*
from mmddDBF as D
inner join
yearMap as Y
on rrn(D) between fromRRN and toRRN
order by Y.isYear, D.monthFld, D.dayFld

Of course if the mapping of the data by RRN to year is that simple,
rather than creating a table to store the year data and joining to that
new table, the use of an expression for the ORDER BY is an option; e.g.:

select D.*
from mmddDBF as D
order by
case rrn(D)
when rrn(D) between 1 and 12000
then dec( 2012, 4)
when rrn(D) between 12001 and 25000
then dec( 2013, 4)
when rrn(D) between 25001 and 25014
then dec( 2014, 4)
/* otherwise the NULL value */
end
, D.monthFld
, D.dayFld

--
Regards, Chuck
--
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.

--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>