What can be done if we want to update a record locked by other program or application in RPGLE

Question

Suppose I want to update a record , but that record is being locked by some other application or program , what can be done to make sure that I can update that record in the next iteration?

You're a very frequent poster lately and I get the impression you're abusing Stackoverflow helpers to do your homework instead you taking your time and learn system and SQL basics from the actual documentation provided by IBM. Stack Exchange is meant as a last resort, and not a free Q&A game. There is a reason that a question should include some proof that you tried to resolve the issue on your own but got stuck. — PoC, Jul 10 '22 at 09:42

score 1 · Accepted Answer · answered Jul 11 '22 at 16:23

If this program was running in batch and it was critical that the record in question gets updated, you could use the (E) extender on your Chain and monitor for the %Error. Something like this:

// This record MUST be updated
Dou %Error = *Off;
  Chain(E) (FileKey) CriticalFile
Enddo;

// At this point, we've gotten past the file lock
If %Found(CriticalFile);
  Update CriticalFileRec;
Endif;

The Do-Until will continuously loop until a successful chain is achieved.

score 0 · Answer 2 · answered Jul 10 '22 at 09:37

0

Nothing. A lock is issued by another application and that application needs to free it.

answered Jul 10 '22 at 09:37

PoC

521
3
13

score 0 · Answer 3 · answered Jul 11 '22 at 15:28

The rule to follow is that record locks should never be retained during key think time. That is the job should have no record locks when it runs the exfmt statement to write the display format and wait for the user to press the enter key. This includes any updates which have not yet been committed when running under commitment control. Always run SQL COMMIT before a blocking DSPF read.

What can be done if we want to update a record locked by other program or application in RPGLE

3 Answers3