I/O error while chaining due to rec lock

[MikeS]

Re: I/O error while chaining due to rec lock

In this piece of code here:

Open PLBSDML1; 
Setll (@Jur:#store) PLBSDML1; 
Dou %eof(PLBSDML1); 
ReadE (@Jur:#store) PLBSDML1; 
//If %found (PLBSDML1) DV02// 
If not %EOF (PLBSDML1) //DV02// 
And PXprom <> *Zero // Exclude Promotion price zero 
Or PXprce <> *Zero; // Exclude Permenemt price zero

The IF statement check on %EOF will not work correctly at End of File if PXPrce is populated from a previous read.

This statement should be:

If not %EOF (PLBSDML1) [B]AND[/B]
[B]( PXprom <> *Zero [/B]// Exclude Promotion price zero 
[B]Or PXprce <> *Zero); [/B]// Exclude Permenemt price zero

[kausix777]

Re: I/O error while chaining due to rec lock

I do think you could have optimised your code. Anyway, I think the lock is being put due to some chain operation earlier in the same code.
.
Have you debugged it to find the exact place where the error occurs?

[Devarshi]

Re: I/O error while chaining due to rec lock

I cannot replicate the lock in our test box which is a big pain. I will try changing the code as adviced and hope for the best.

Devarshi.