RE: Re-READ the current record -- RPG400-L

If you are having problems with interlocking between each thread, then why don't you use monitor end-mon within a dou loop for whatever the error code is for a lock

This is what I found in one of our programs
c monitor
c key chain FileA
*
c on-error 1218 : 1222
C eval *in20 = *on
C callp SndErrMsg('CPF9897':
C 'Error: FileA presently in use by someone else)

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Friday, March 02, 2012 11:20 AM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Re: Re-READ the current record

that is the currently logic in our billing process. It is causing interlocking between each thread.

"Michael Schutte" wrote in message
news:mailman.579.1330704969.14575.rpg400-l@xxxxxxxxxxxx...

I would do what someone else suggested. read with the lock. if no need for update, then unlock.

reade (key) file
If not %EoF()
If not needUpdate()
Unlock file
endif
endif

On Fri, Mar 2, 2012 at 11:09 AM, Hockchai Lim <lim.hock-chai@xxxxxxxxxxxxxxx

wrote:

Yes, that is my second choice. This gets quite ugly also. sigh...
I'm just keep thinking, come on now, reading the current record just
can't be that hard to do in RPG now. But, unfortunately, I've not
come up with any easy solution.

"Paul Therrien" wrote in message
news:mailman.570.1330704246.14575.rpg400-l@xxxxxxxxxxxx...

Would it work in your situation to do your read loop over an input
only file and then chain with rrn to the physical file when you know
you need to update the data?
Then you would not have record lock issues at all.

Paul Therrien
Ext: 551

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Brian May
Sent: Friday, March 02, 2012 10:00 AM
To: RPG programming on the IBM i / System i
Subject: RE: Re-READ the current record

No, I said readp not readpe. readp is not keyed so it just moves up
to the record above the current. The only way you could get EOF on
readp is if you were already on the first record of the file. In that
case, it wouldn't matter.

Brian May
IBM i Modernization Specialist
Profound Logic Software, Inc.
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Hockchai Lim
Sent: Friday, March 02, 2012 9:53 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Re-READ the current record

yes, that is what I'm afraid of and that is what I come up with. It
is quite ugly. It gets even uglier because I'll also have to consider
readp(n)
could encounter %eof condition. From what I know, when %eof is
encountered, the cursor is lost. So, I'll have to position it to the
top of the file and do a reade. what in the world...

"Brian May" wrote in message
news:mailman.562.1330703018.14575.rpg400-l@xxxxxxxxxxxx...

you will have to do a readp(n) to move the cursor up one, and then reade.

Brian May
IBM i Modernization Specialist
Profound Logic Software, Inc.
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Lim Hock-Chai
Sent: Friday, March 02, 2012 9:36 AM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Re: Re-READ the current record

two problems with this:
1) reade is usually performed in a loop and I need the record to know
if I need to perform the update.
2) setll/chain won't work if the file that it is looping thru does not
have a unique key.

"Khalid Hachi" wrote in message
news:mailman.553.1330702034.14575.rpg400-l@xxxxxxxxxxxx...

Setll (mykey1) MYFILE;
If %Equal(MYFILE) and needUpdated();
//Read with Lock
reade (mykey1) MYFILE;
Endif;

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
De
la part de Hockchai Lim Envoyé : 2 mars 2012 10:13 À :
rpg400-l@xxxxxxxxxxxx
Objet : Re-READ the current record

Is there a way to re-READ the current record (without using CHAIN)
that the RPG program has just READ?

For example:

reade(n) (mykey1) MYFILE; //read it with no lock
if not %eof() and needUpdated();
==> Need to re-read with locked how???
endif;

--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.1913 / Virus Database: 2114/4846 - Release Date:
03/02/12

--
This is the RPG programming on the IBM i / System i (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.

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.1913 / Virus Database: 2114/4846 - Release Date:
03/02/12
--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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 IBM i / System i (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.

Disclaimer: This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.