Можно написать такое пакетное задание (строки в блокноте):
0
REP
40^F
F
(if p(v40) then if p(v40^F) then if v40^F.1='*' then &uf('3') else v40^F fi else # fi fi/)
Запустите его на всю БД (не забудьте сначала копию)
Имейте ввиду, что этой глобальной снимаются долги у читателей.
но у выданной книги в электроном каталоге еще есть статус выданной у конкретного экземпляра: поле 910^A=1.