Re: Record lock on primary input

I am glad to hear my suggestion was helpful, John.

Thanks for the feedback ....


----- Original Message ----- From: "John Furniss" <JFurniss@xxxxxxxxxxxxxxxxx>
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, March 19, 2009 6:11 PM
Subject: RE: Record lock on primary input

Thanks so much to all who replied. You helped save my skin! I used the
snippet John McKay sent and it worked like a charm. Thanks again!

John Furniss
Applications Programmer
Allied Machine & Engineering, Corp
Phone: 330-343-4283, ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Thursday, March 19, 2009 1:38 PM
To: RPG programming on the IBM i / System i
Subject: RE: Record lock on primary input

I don't think the MONITOR op-code, which I mentioned earlier, could be
used in this case since the reads are implicit.

I had problems like this: Someone would bring up a customer record for
maintenance and walk away, the warehouse would try to invoice the same
customer and the system would (after a minute, I think) issue an error
(there was I think a re-try option). I fixed these problems by
modifying the maintenance program so that, when it did the first chain,
it did not lock the record but put the fields into a hold area (array in
this case). Then, when the user *finally* pressed Enter, retrieved the
record (with a lock), compared the retrieved record with the hold area
and, if no differences, allowed the update; otherwise, sent the
maintenance user a message to be a little quicker next time. Saved me
long walks to the warehouse (oh, I didn't write the original programs).

It looks like the program you showed is a batch program (at least the UP
says that to me). Since the batch programs are usually through with the
record in less than the wait time, I never bother putting those kinds of
checks there. I, also, don't bother putting the checks into things
like, say, maintenance of a Ship Via Code table since the other programs
that use it only access it as Input (no locks).

If you put in the PSSR routine, what do you plan to do there? As an
update primary, you can't read the record again. Better to fix the
cause of the problem.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Furniss
Sent: Thursday, March 19, 2009 12:14 PM
To: RPG programming on the IBM i / System i
Subject: RE: Record lock on primary input

List,
I should have been more specific. I need to debug a program
written by someone else that uses the RPG cycle. It have the main file
open for update so it is:

FMyfile UP E K Disk

I need to trap for a locked record. Someone else has the record on their
screen and has walked away. Has anyone coded something like this?

Thanks,

John Furniss
Applications Programmer
Allied Machine & Engineering, Corp
Phone: 330-343-4283, ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Thursday, March 19, 2009 1:09 PM
To: RPG programming on the IBM i / System i
Subject: Re: Record lock on primary input

John,

Attached is a document I wrote several years ago about the *PSSR. It
gets
more complicated than you probably want/need...

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