re:How to unlock a record in an interactive job after 'x' amount

I think I saw this technique in an ancient book by IBM.  It was some sort 
of design concepts book and I think it came out in S/34 time or earlier.
You read the file without a lock, spash the data on the screen and wait 
for input, saving a copy of the original data in a data structure or some 
such thing.  When it comes time to update the record you chain again and 
compare for any critical updates.  Like if they were changing the customer 
address and someone else has changed it in the meanwhile.  If there was 
another update you error back to the screen.  If not, you update the 
record.  In the olden days you opened the file twice in your program; once 
as read only and once as update.  Now we have the no lock option on a 
chain on an update file.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Ron Harvey <ron.harvey2@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/07/2004 10:21 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
re:How to unlock a record in an interactive job after 'x' amount






Andy,

As Bob pointed out, the best solution is not to lock the record in the 1st 
place. Personally, I rarely if ever, lock a database record during any 
function requiring a person to do something (like EXFMT).

Ron




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