RE: Update A File After A Couple Other Chains

What if not %found(FileInQuestion) ?????????


Gerald



-----Original Message-----
From: rpg400-l-bounces+gmagnuson=knapheide.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+gmagnuson=knapheide.com@xxxxxxxxxxxx] On Behalf
Of Mike
Sent: Thursday, October 05, 2006 3:56 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Update A File After A Couple Other Chains

I mistyped that. Supposed to be "chain update file" not chain and update
file.

So looks like:

Chain FileInQuestion;
Chain OtherFileA;
Chain OtherFileB;
Update RecordOfFileInQuestion;

I thought that was supposed to work.

On 10/5/06, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:

There's your problem
Chain FileInQuestion;
Update RecordOfFileInQuestion;
Chain OtherFileA;
Chain OtherFileB;
Chain OtherFileC;
Update RecordOfFileInQuestion;  // again
You have two updates against 1 chain.  The first update released the

lock.

You have to rechain it.

Straight from the RPGLE Reference:
Consecutive UPDATE operations to the same file or record are not

valid.

Intervening successful read operations must be issued to position to

and

lock the record to be updated.

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 04:36 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
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.

--
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.