Re: Processes two members of the same file in a RPG program.

[Tom Jedrzejewicz <tomjedrz@xxxxxxxxx>]

If you choose this solution, you will need the overrides in place when
you are compiling as well.  You may want a quick CL program to
compile.


On Thu, 11 Nov 2004 14:22:26 +0100 (CET),
martin.effenberg@xxxxxxxxxxxxx <martin.effenberg@xxxxxxxxxxxxx> wrote:
> Am 11.11.2004 um 12:41 Uhr haben Sie geschrieben:
> > I have a requirement where I need to read records from one member of a
> file, then write the record to another member of the same file and then
> once written to the other member, remove the records from the first
> member.
> Regards,
> Venky
> 
> hi venky,
> just do a
> OVRDBF FILE(TEST1) TOFILE(TEST) MBR(TEST1) OVRSCOPE(*JOB)
> OVRDBF FILE(TEST2) TOFILE(TEST) MBR(TEST2) OVRSCOPE(*JOB)
> in your calling cl
> 
> then declare the 2 files as follows:
> ftest1 if e disk rename(format:format1)
> ftest2 uf a e disk rename(format:format2)
> 
> then you can read from format1
> and write to format2
> 
> don't forget the
> DLTOVR FILE(TEST1) LVL(*JOB)
> DLTOVR FILE(TEST2) LVL(*JOB)
> 
> after calling the rpg
> 
> -Martin
> 
> 
> 
> 
> --
> 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.
> 
> 


-- 
Tom Jedrzejewicz
tomjedrz@xxxxxxxxx