Re: Update A File After A Couple Other Chains

[Mike <koldark@xxxxxxxxx>]

After they hit enter on the screen, I chain update the fields, chain a
couple other files to get some info, then update the record (it doesn't like
this).

On 10/5/06, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
> No big problem there.
>
> Some may argue that there should be a maximum of some arbitrary number
> between the READ and the UPDATE.  In that case, break down everything
> between the read and the update into a subprocedure.
> dow ReadFile();  // subprocedure ReadFile reads the data, returns an
> indicator for EOF.
>   ProcessMain();  // main body.
>   update  NIMASTR;
>   // your good monitor stuff here...
> EndDo;
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> Mike <koldark@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 10/05/2006 12:07 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> 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.