Who Is Holding Record Lock? -SQL Perspective

[Taylor iSeries <tayloriseries@xxxxxxxxx>]

Hi

In traditional RPG, it was easy to display which user is holding a record.

I SDS
I 91 170 MSGTXT
.
.
.C KEY  CHAIN  FILE   9990
C *IN90 IFEQ  '1'
C MOVEL  MSGTXT   ERRMSG
C END 
 
Then send MSGTXT to the screen informing the user which job had the record lock.
 
How do you retrieve this information using SQL.  For example, if the code is, 
 ExecSqlUPDATELibrary/File    SetAgMayor = ' YES', AgMayorlcd = :Today,  
In a record lock, SQLSTT = 57033, but how does the program retrieve the name of the job holding the record lock?
 
Thank youIf  (sqlstt <> '00000');          whereAgid# = :Agid#: