DBRLOCKLIST() function
 Return an array of the current Lock List
------------------------------------------------------------------------------
 Syntax

     DBRLOCKLIST() --> aRecordLocks

 Returns

     Returns an array of the locked records in the current or aliased work
     area.

 Description

     DBRLOCKLIST() is a database function that returns a one-dimensional
     array that contains the identities of record locks active in the
     selected work area.

 Examples

     PROCEDURE PrintCurLocks()

        LOCAL aList
        LOCAL nSize
        LOCAL nCount

        aList := DBRLOCKLIST()
        nSize := LEN( aList )

        ? "Currently locked records: "
        FOR nCount := 1 TO nSize
           ?? aList[ nCount ]
           ?? SPACE( 1 )
        NEXT
        ?

        RETURN

 Status:  New

 See also:  RLOCK(), UNLOCK, DBRLOCK(), DBRUNLOCK()