× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.