DBRLOCKLIST()
 Return an array of the current lock list
------------------------------------------------------------------------------
 Syntax

     DBRLOCKLIST() --> aRecordLocks

 Returns

     DBRLOCKLIST() 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