Hi all

We want to know which users are locking a file.

What we do now:

1- Execute LIST.READU. We can get the PID of the session that is locking the file.

2- With this PID we can execute a LISTU command or run a ps BASH command

3- Parse the output so we can pair PIDs and usernames

This is quite convoluted, and, also, we have discovered that the LIST.READU output has changed in the newer Universe version (even with the INTERNAL parameter) so we have to keep check of the system version to get the PIDs.

Is there a way to ask the system what are the users that are locking a file?

Hi all

We want to know which users are locking a file.

What we do now:

1- Execute LIST.READU. We can get the PID of the session that is locking the file.

2- With this PID we can execute a LISTU command or run a ps BASH command

3- Parse the output so we can pair PIDs and usernames

This is quite convoluted, and, also, we have discovered that the LIST.READU output has changed in the newer Universe version (even with the INTERNAL parameter) so we have to keep check of the system version to get the PIDs.

Is there a way to ask the system what are the users that are locking a file?

Hi Hector,

I'm not sure if the following meets your requirements, but if you do a READU using the LOCKED clause, the STATUS() returns the user holding the lock. And the USERINFO() function and LISTUSER command can be used to return additional information.

>COPYP BP LOCK.TEST2 (TSN

     LOCK.TEST2
      OPEN 'VOC' TO F.FILE ELSE STOP "CANNOT OPEN VOC"
      READU REC FROM F.FILE,'LIST'
      LOCKED
         USERNO = STATUS()
         CRT "USER HOLDING LOCK IS ":USERNO
         RET = USERINFO(2,USERNO,USERINFO)
         PID = USERINFO<1,3>
         CRT "PID IS ":PID
         EXECUTE "LISTUSER PID ":PID
      END ELSE STOP 'CANNOT READ LIST'
   END
>RUN BP LOCK.TEST2
USER HOLDING LOCK IS -1
PID IS 16318604
UsrNo Pid...... UID.. UserName Type Acct.............. LogonTime...............
   -1  16318604     0 root     Phan /disk1/morrisn     Tue May 21 07:49:56 2024

Search lines returned: 1 (of 2)

Hope this helps.

Thanks,

Neil

Hi Hector,

I'm not sure if the following meets your requirements, but if you do a READU using the LOCKED clause, the STATUS() returns the user holding the lock. And the USERINFO() function and LISTUSER command can be used to return additional information.

>COPYP BP LOCK.TEST2 (TSN

     LOCK.TEST2
      OPEN 'VOC' TO F.FILE ELSE STOP "CANNOT OPEN VOC"
      READU REC FROM F.FILE,'LIST'
      LOCKED
         USERNO = STATUS()
         CRT "USER HOLDING LOCK IS ":USERNO
         RET = USERINFO(2,USERNO,USERINFO)
         PID = USERINFO<1,3>
         CRT "PID IS ":PID
         EXECUTE "LISTUSER PID ":PID
      END ELSE STOP 'CANNOT READ LIST'
   END
>RUN BP LOCK.TEST2
USER HOLDING LOCK IS -1
PID IS 16318604
UsrNo Pid...... UID.. UserName Type Acct.............. LogonTime...............
   -1  16318604     0 root     Phan /disk1/morrisn     Tue May 21 07:49:56 2024

Search lines returned: 1 (of 2)

Hope this helps.

Thanks,

Neil