RE: Update A File After A Couple Other Chains

Sounds like the chain isn't finding the record.

Are you checking %found()?


But Booth has a point.  Consider doing your first chain non-locking,
then chain again right before the update.  Be sure to consider how you
are going to make sure that the record hasn't been changed or deleted
since you first read it.


HTH,


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

-----Original Message-----
From: rpg400-l-bounces+cwilt=meaa.mea.com@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces+cwilt=meaa.mea.com@xxxxxxxxxxxx] On 
Behalf Of Mike
Sent: Thursday, October 05, 2006 3:04 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Update A File After A Couple Other Chains

I keep getting a "Update operation without a prior read." error

On 10/5/06, Wilt, Charles <CWilt@xxxxxxxxxxxx> wrote:

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.

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

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