>PROCEDURE GetNextId(cKeyName)
>
>LOCAL nRetVal
>nRetVal = 0
>
>SELECT 0
>USE SysKeys
>
>LOCATE FOR KeyName = cKeyName
>
>IF FOUND()
>  nRetVal = SysKeys.Id + 1
>  REPLACE IN SysKeys Id WITH nRetVal NEXT 1
>ENDIF
>
>RETURN nRetVal
>