[Stackoverflow] [Progress OpenEdge ABL] How to implement FIND CURRENT & CURRENT-CHANGED in Progress4GL?

preetSherman

Guest

Dec 7, 2021

I tried reading the Progress knowledge base for FIND CURRENT statement. It didn’t help much. Can anyone tell me what does FIND CURRENT statement do and why/in which locking scenarios we use it? Also, it would be really helpful if it can be explained with the simple example. Note: Any example using the Sports database, which is not shown in the knowledge base. I implemented the below code, but it doesn’t seems to reach the CURRENT-CHANGED statement when I compile the procedure ( I’m using the DB I’ve created with the logical name “Personal”).

Thank you.

Code:

 FIND FIRST personal WHERE personal firstNAME = "Ganesh" EXCLUSIVE-LOCK.
 UPDATE personal.
 FIND CURRENT personal EXCLUSIVE-LOCK.
 UPDATE personal
 IF CURRENT-CHANGED personal THEN DO:
    MESSAGE "Record is changed"
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK
    DISPLAY personal.
 END