Re: Update A File After A Couple Other Chains

[Mike <koldark@xxxxxxxxx>]

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.