Программное получение количества ключей Pervasive файла.

Возник такой вопрос у клиента (тема I-Support 14921): как можно программно получить количество ключей в Pervasive(Btrieve) файле? Вопрос может быть решен двумя способами: 1) по самой БД и 2) по словарю, в котором она описана.
1) Программно получить статус файла в файл с предопределенным расширением. У меня, например, в Far-е на расширение *.dbt для этого настроена команда "butil -stat !.! > !.sta". Можно то же самое сделать в макросе, формируя выходной файл, например, в каталоге \TxtFile. Далее читаем его, ищем строку "Total Number of Keys" и узнаем количество ключей. Реализовать данный способ, кому хочется, предоставляю самостоятельно.
2) Для работы необходимо подключить макрос, который я прилагаю, и словарик def.def (тот же, который был в моем Примере по работе со словарями def от 26.04.05). Макрос получает информацию о количестве ключей из словаря. Словарь указан в макросе, для своих нужд его легко заменить на любой другой.
Макрос дан сразу с тестовым примером - там все просто.

 Макрос проверен на 5.1 и на 5.0.