Формат распределения по горизонтали читается так
(
if p(v40) then
if
(v40^f:'*') and /* если у читателя есть издание на руках */
(v40^e<&uf('3')) and /* и дата возврата еще не просрочена (он не должник, а просто держатель) */
((&uf('Av1000^a#1')='') or (v40^d>=&uf('Av1000^a#1'))) and /* что храниться в поле 1000, я не знаю, по этому последние 2 условия прокомментировать не могу */
((&uf('Av1000^b#1')='') or ((&uf('Av1000^c#1')='') or (v40^k=&uf('Av1000^c#1'))))
then
if v40^v<>'' then
v40^v /* возвращаем место выдачи */
else '*'
fi/
fi
fi
)
Таким образом получаем, что файл STF, возможно, должен выглядеть так, как прикрепленный.