Re: How to unlock a record in an interactive job after 'x' amountoftime has passed

Just a thought here, but why wouldn't you retrieve the contents of the 
file using a CHAIN(N) with no lock to get the information for the screen 
while saving the original data file information in a data structure, allow 
the user to mess with the data on the screen, and when they are finished 
rechain to the file to lock the record, make sure no changes had occured 
to the record while they were on the screen (by comparing the original 
record you retrieved with the record you just got, in case something 
changed it, at which point you'd give the user a message stating that the 
record has changed since they retrieved it and do they wish to overwrite, 
display etc...) then load their changes to the record and update it. 
Hence, no record locks, and your program controls the access instead of 
letting the display handle it.  At least then you know what it is doing. 
Just a thought.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Andy Hautamaki" <ahautamaki@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/10/2004 12:51 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: How to unlock a record in an interactive job after 'x' amountoftime 
has passed






Hi Jonathan;

No. Its to do with a display file. A user is in a maintenance program and
for whatever reason is inactive in that application for 'x' amount of time
and has a record locked. (Goes for coffee, lunch or whatever) In the
meanwhile other applications are trying to grab that record and are
repeatedly trying to access the record. (Record lock, retry, record lock
retry, etc etc)

So what I was trying to find out was a graceful way of unlocking the 
records
from the maintenance program.

Charles on a previous thread suggested I search the midrange archives and 
I
came across the article by Shannon O'Donnell where using the display file
and the 'INVITE' keyword and creating the display file with a 'WAITRCD' 
set
at a certain 'x' value. (Thanks Charles, I should always look to the
archives first before asking the question to the group, I bury my head in
shame)

Dan suggested using the data queue from an example that Scott Klement had
posted a few years ago. Thanks Dan, that was something that shows promise
and I'm going to experiment with that.

I apologize if I didn't explain my question/problem thoroughly enough.


Andy



----- Original Message ----- 
From: "Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, October 07, 2004 10:57 AM
Subject: RE: How to unlock a record in an interactive job after 'x'
amountoftime has passed


> Hi Andy,
>
> I'm not sure if I've got the thread of this thread or not.  My first
> reaction was that you were talking about database record locks and not
> timing out of display files, which seems to be what most people are
> answering about.  Just in case it is database record locks, I'll add my
two
> pence (or cents for those in the US) worth...
>
> In RPG400 you would code an error indicator in the "less than" columns 
and
> test for that immediately after the chain or read.  For example:
>
> KEY         CHAINFILENAME                     9192--
> *IN92       IFEQ *ON
> ...error processing...
> ENDIF
>
> In RPG ILE you can achieve the same thing with the following
>
> Key Chain(E) FileName
> If %Error
> ...error processing...
> Else
> If %Found
> ...record found...
> Else
> ...record not found...
> EndIf
> EndIf
>
> This will pick up all errors associated with the Chain (or Read).  If 
you
> want to specifically test for a record lock then within you can use
>
> If %Status = 01218
>
> The WAITRCD attribute on the physical file is the length of the time 
that
> ANY program will wait for a record to become available if it is already
> allocated to, i.e. locked by, another job.  Whenever you do a Chain or
Read
> to an update file the program will wait this amount of time before
returning
> a "locked" error.  If you are using an error indicator or the (E) opcode
> extension and %Error function then error control is passed back to your
> program.  The default for the WAITRCD attribute always used to be 60
> seconds.
>
> Hope that helps
>
> Best regards
>
> Jonathan
> www.astradyne-uk.com
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx]On
> Behalf Of Andy Hautamaki
> Sent: 07 October 2004 14:45
> To: RPG400-L@xxxxxxxxxxxx
> Subject: How to unlock a record in an interactive job after 'x' amount
> oftime has passed
>
>
> Is there a way from a RPGLE interactive program to track how long it has 
a
> record locked in update and after a certain amount of time has elapsed,
> gracefully unlock the record. Then the interactive program would show 
some
> info message to inform the User that they will need to retrieve the
> transaction again.
>
> Thanks
> Andy
>
> --
> 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.
>
>

--
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 e-mail communication and accompanying documents is intended only for the 
individual or entity to which it is addressed and may contain information that 
is confidential, privileged or exempt from disclosure under applicable law.  
Any use of this information by individuals or entities other than the intended 
recipient is strictly prohibited.  If you have received this in error, please 
notify the sender and delete all the copies (electronic or otherwise) 
immediately.