Re: Update A File After A Couple Other Chains

[Mike <koldark@xxxxxxxxx>]

So bascially in this case, get my information first then chain and update? I
am picking up some descriptions to add the the base file. Yes it isn't
"normalized" but that is what they do here.

On 10/5/06, Booth Martin <booth@xxxxxxxxxxxx> wrote:
> Make the chain a chain with an (n) no-lock extender.  Then, chain again
> at the time of updating.  If you have several lines of intervening code,
> as you have here, someone someday will mess it up and it will be a bear
> to find the problem.
>
> Mike wrote:
> > 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?
> >
> --
> 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.