>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 >