Re: Update A File After A Couple Other Chains

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.