Morning All,
I have a problem where a certain section of Code used for Locking works ok
on Standard Engine 5.06 (-250),
but on On-Line experiences a problem, as it gets a different Error Code
returned, looking at the ISAM code
of this new error code (-243 on Online) it indicates a locking problem.
How many other error codes out represent
a locking problem ?? How come the detection of a locking problem in
Standard Engine does not work on Online ??
Any suggestions or help would be appreciated.
Please find enclosed section of locking code :-
LET g_error = -250
WHILE g_error = -250
WHENEVER ERROR CONTINUE
CLOSE s01_daily_paymts
OPEN s01_daily_paymts
FETCH s01_daily_paymts INTO f_c_daily_paymts.*
LET g_error = STATUS
WHENEVER ERROR STOP
IF g_error = -250
THEN
MESSAGE "Record currently lock by another user, please wait
..."
SLEEP 1
MESSAGE " "
SLEEP 1
ELSE
END IF
END WHILE
IF g_error != 0
THEN
LET p_error_desc = "Unable to lock Payment Advice for Transfer"
LET p_key_data = f_c_daily_paymts.advice USING "<<<<<<<", ", ",
f_c_daily_paymts.contract_no
CALL serious_error ( g_error, p_module, p_version,
p_error_desc, p_key_data )