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.