0
/* убираем префикс
CHA
951^I
*
'http://shgpi.edu.ru/biblioteka/kat/'
''
/* создаем подполе ^A
REP
951
F
(if p(v951)
then
v951,,,
if p(v951^I) and a(v951^A)
then
'^A',,&uf('G0v',v951^I,,,'-',,,&uf('G2/',,v951^I),,,
fi
fi/)
Примерно так. В операторе REP формат, конечно одной строкой. У меня для