Re: Detecting Record Lock Conditions

["Booth Martin" <Booth@xxxxxxxxxxxx>]

please consider condemning a record lock for over a second or two as an
error situation. Find the programs that have an extended lock and repair
them. Do not accept extended record locking as acceptable behavior. If a
record lock is encountered, send a message to yourself and fix the
circumstance that allowed it.
 
 
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Monday, September 29, 2003 16:14:41
To: RPG400-L@xxxxxxxxxxxx
Subject: Detecting Record Lock Conditions
 
I'm trying to have a program detect if a record is locked. If the program
does find that the record it's trying to read is locked, it will wait 10
seconds before retrying to read the same record from the file.
 
Will placing the ITER operation accomplish this task in the code below?
Should it wait 15 seconds then SETLL on the record it was trying to read
then ITER?
 
Is there an easier alternative for checking for locked records?
 
Thanks,
 
Frank
 
 
=================================================
F Customer UF E DISK
 
D RecordLocked C CONST( 01218 )
*
/FREE
 
KeyFld1 = %DEC(Field1:3:0);
KeyFld2 = %DEC(Field2:7:0);
 
// Read CUSTOMER File
SETLL Custkey Customer;
DOU %EOF(Customer);
READ(E) Customer;
 
// Record Locked
IF %ERROR;
 
// Record IS Locked
IF %STATUS = RecordLocked;
*WAIT 15 SECONDS
ITER;
ENDIF;
 
ENDIF;
 
ENDDO;
 
===================================================