Re: CHAIN to a DS

[Bill Heinz <bheinz@xxxxxxxxxxxxxxxxxxxx>]

Would CPYF FROMFILE(FILE1) TOFILE(FILE2) MBROPT(*UPDADD) work for you?

CarollaT@xxxxxxxxxxxxxx wrote:

> I have written some code that takes records in a temp file, and either
> updates or adds them to another file.  It's the same old, "If the record
> exists, update, else write" scenario.  The top factor for this little module
> is speed - We want this thing to scream, so I am trying to cut every corner
> I can, then I will document the you-know-what out of it later.  
>
>
>
> Basically, I have the output/update file prefixed with a 'D', and I read the
> input record, attempt a chain to the output/update file, and move the fields
> (450+) from the input file to the output file (in case the chain found a
> record), and conditionally write or updated, based on %FOUND.  
>
>
>
> So I am thinking about this, and I know that you can CHAIN, and read the
> resulting record into a data structure.  What I am wondering is, since both
> files have the same format, and field names, can I CHAIN to the
> output/update file, but read the record in to a DS, and _not_ udpate the
> fields in the record format.  Does every successful chain have to send the
> fields to the input record fields?  If not, then I would attempt the chain,
> and skip moving the 450+ fields to the output buffer, with the prefix.  
>
>
>
> Thanks in advance for your help.  
>
>
>
> 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.
>