0
// запускается на записи каиалога, где есть поле 691
DEL
1691
*

// цикл по полям 691
REPEAT
DEL
111
*


// в 111 название дисциплины
ADD
111

&uf('G0(',&uf('Av691^D#1'))

CORREC
'VUZ'
''
'DISCN=',v111

//в записи DISC
// в G5-название G6-идент G7-кафедра,,,,можно и другие поля
REP
3
1
&uf('+7W5#',v3^A),&uf('+7W6#',v3^0),&uf('+7W7#',v5),

END
// обновляю сначала в 111
DEL
111
*


ADD
111

&uf('Av691#1')

REP
111^D
1
G5

REP
111
1
v111,if a(v111^I) then '^I',G6 fi,,,if a(v111^B) then '^B',G7 fi

ADD
1691

v111

DEL
691
1


UNTIL
if p(v691) then '1' fi
ADD
691

(v1691/)

DEL
111
*


DEL
1691
*