RE: Update A File After A Couple Other Chains

Mike,

Sure, chain keeps the record locked until you read another record from
the same file or issue the UPDATE.

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike
Sent: Thursday, October 05, 2006 12:07 PM
To: RPG programming on the AS400 / iSeries
Subject: Update A File After A Couple Other Chains

I have some code to update a file. The problem is that I need 
to collect
additional information before I can update the file. So here 
is what I do
now. The read is way up in the code.

         iActCd = w2InvstTyp;
         if w2InvstDsc = ' ';
           chain (w2InvstTyp) NCACTCR;
           iActCdDsc = aCodeDesc;
         else;
           iActCdDsc = w2InvstDsc;
         endif;

         monitor;
           update NIMASTR;
           error = *OFF;
         on-error *FILE;                  // Handle uncaught 
exceptions
           error = *ON;
           w2Error = 'File error code ' + %char(%status());
         endmon;

So, my question is, can you do an update after the chain has 
been long done?
Or what would be a better way to process this?

-- 
Mike Wills
http://mikewills.name - Blog
http://theriverbendpodcast.com - Podcast
-- 
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.