Re: CHAIN to a DS

[RPower@xxxxxxxxxx]

You can chain to an update file without performing an actual update yes. 
Just don't update the record.  One thing I would watch for is to make sure 
that you chain to the correct record you wish to update just in case you 
may still be pointing to the record you don't want to update.  HTH,

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




CarollaT@xxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/09/2004 12:45 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
CHAIN to a DS






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.




This e-mail communication and accompanying documents is intended only for the 
individual or entity to which it is addressed and may contain information that 
is confidential, privileged or exempt from disclosure under applicable law.  
Any use of this information by individuals or entities other than the intended 
recipient is strictly prohibited.  If you have received this in error, please 
notify the sender and delete all the copies (electronic or otherwise) 
immediately.