× 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.



Why not simply:

CHAIN MyKey MyFileCLIREFF1 RecordIn;
Field1 = 'something else';
WRITE MyFormat

Of course the key of the new record must not create a duplicate.
But then I wonder, why copy a record to the same file with some value(s),
but not the key value(s), changed?

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 3-1-2011 at 9:27 Rory Hewitt wrote:

David,

As Dennis pointed out, doing a simple EVAL (RecordOut = RecordIn) will
simply copy the bytes, starting at the left-most byte.

However, if you either specifiy LIKEREC(*ALL) for both record formats or
use
EXTNAME rather than LIKEREC, then you could simply use EVAL. So a
follow-up
question would be why you're not using either of those methods - what
exactly are the differences between RecordIn and RecordOut? In the vast
majority of cases, they would be the same (for database files)...

Rory

p.s. There's nothing *wrong* with EVAL-CORR, but it's pretty rare that
you'd
need it.

On Mon, Jan 3, 2011 at 6:02 AM, David FOXWELL
<David.FOXWELL@xxxxxxxxx>wrote:


I was looking at the code I wrote last year. Well, last week actually,
but
it seemed a long time ago. There I was, like the next developper called
upon
todo the maintenance, and I said to myself, "Why has he put EVAL-CORR? -
that would suggest that the two DS were not the same". So, I went back
to a
move, as in my OP but then asked myself if was safe, hence my question.

--
This is the RPG programming on the IBM i / System i (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.



-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1191 / Virusdatabase: 1435/3350 - datum van uitgifte:
12/31/10



-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1191 / Virusdatabase: 1435/3350 - datum van uitgifte:
12/31/10




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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 copyright@midrange.com.

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