RE: CHAIN to a DS

How about:

1) Not having to update anything!

create view MASTERFILE as
   select 'LIB1', A.* from lib1/file A
    union all
  select 'LIB2', B.* from lib2/file B
    union all
  select 'LIB3', C.* from lib3/file C
...and so on.

2) Use a triger on each file to keep the master constantly up to date.

3) SQL

  update masterfile A
     set row = ( xxxx )
     where <snip>

 followed by an 
  insert into masterfile A
    <snip>


The SQL option 3 offers lost of ways to handle it.  You could run the
statement once for every TRANS file, or you may be able to do them all in
one shot.


Charles
  

> -----Original Message-----
> From: CarollaT@xxxxxxxxxxxxxx [mailto:CarollaT@xxxxxxxxxxxxxx]
> Sent: Friday, September 03, 2004 3:14 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: CHAIN to a DS
> 
> 
> [Bill Heinz wrote]
> 
> Would CPYF FROMFILE(FILE1) TOFILE(FILE2) MBROPT(*UPDADD) work for you?
> 
> [/]
> 
>  
> 
> No, because there is one additional field in the to-file, 
> which indicates
> which library the TRANS file was in.  
> 
>  
> 
> Basically, I have 60+ of these TRANS files, in different 
> libraries, and the
> file I am updating is one file containing all records from 
> all files.  I
> want to update the master file based on updates/adds only, 
> because this
> program will generate a web page throughout the day 
> (currently every half
> hour, we want it every 15 minutes or less)  indicating to 
> individuals (three
> letter ones, CEO, CIO, etc.) our performance.  
> 
>  
> 
> Besides, I don't think that 60+ CPYF commands would run near 
> as fast as
> using the journaling approach.  
> 
> Thanks
> 
>  
> 
> Tony Carolla
> 
> MedAmerica Billing Services, Inc.
> 
> --
> 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.
>