PowerBuilder and SVN – List of locked (checked out) objects

When using SVN it can be useful to get a list of all currently locked (reserved checked out) objects.
Therefore I wrote this little batch (working with SVN 1.4.3)

file: snv_show_locked.bat
@set SVNPATH=%1
@FOR /F "tokens=3,8" %%x in ('svn list -R -v %SVNPATH%') DO @ if "%%x"=="O" ( @FOR /F "tokens=1,2,3" %%i in ('svn info %SVNPATH%/%%y') DO @if "%%i %%j"=="Lock Owner:" echo %%y %%k )

Usage:
snv_show_locked svn://servername/directory