Re: Handling a File Lock

I'm sorry, I found the program I was looking for...

First, I executed.

OVRDBF     FILE(myFile) WAITRCD(*IMMED)

Instead of using the Monitor block... I simply used Chain(E).

Then if locked, I popped up a window showing what had the lock.

D SysInfo        SDS
D   SdProgram       *PROC
D  @MSGDTA               91    170


 * Retrieve User and Job that has record locked.
C                   Eval      pos = %scan('job' : @MSGDTA)
C     ' '           CheckR    @MSGDTA       End
C                   Eval      workdata = %subst(@MSGDTA:pos+4:End-pos)
C                   Eval      W2JOB# = %subst(workdata:1:6)
C                   Eval      str = 1
C     '/'           Scan      workdata:str  fnd
C                   If        %found
C                   Eval      str = fnd + 1
C     '/'           Scan      workdata:str  fnd
C                   Eval      end = fnd -1
C                   Eval      len = (End - str) + 1
C                   Eval      W2USER = %subst(workdata:Str:Len)
C                   EndIf
C                   DoW       KeyPressed <> PreviousKey
C                   ExFmt     W2
C                   EndDo
C                   EndSr

Michael Schutte