1
RepMark.wss
  ВВЕДИТЕ значение для изменения
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000

XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
// в 992^X - идент.подполя, в котором надо менять
// в 992^y - значение, которое надо менять
// записи должна быть DISC
IF
if p(v991^A) then '1' else '0' fi
//-------------------- специальность
PUTFLD
if v991^1<>'' then 'Замена специальности ',v991^A,' на ',v991^1,if v992<>'' then ' для ',if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,v992^Y fi else 'Удаление специальности ',v991^A fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^A,"^B"v991^1,'^CC',v992,"^W"v991^W
FI
IF
if p(v991^B) then '1' else '0' fi
//------------------------- направление
PUTFLD
if v991^2<>'' then 'Замена направления ',v991^B,' на ',v991^2,if v992<>'' then ' для ',if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,,v992^Y fi else 'Удаление направления ',v991^B fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^B,"^B"v991^2,'^CN',v992,"^W"v991^W
FI
IF
if p(v991^3) then '1' else '0' fi
//---------------------- кафедра читающая
PUTFLD
'Замена кода кафедры читающей ',v991^C,' на ',v991^3,if v992<>'' then ' для ',if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,,v992^Y fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^C,"^B"v991^3,'^CH',v992,"^W"v991^W
FI
IF
if p(v991^5) then '1' else '0' fi
//----------------------- факультет
PUTFLD
'Замена кода факультета ',v991^E,' на ',v991^5,if v992<>'' then ' для ',,if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,v992^Y fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^E,"^B"v991^5,'^CA',v992,"^W"v991^W
FI
IF
if p(v991^7) then '1' else '0' fi
//----------------------- форма обучения
PUTFLD
'Замена формы обучения ',v991^O,' на ',v991^7,if v992<>'' then ' для ',,if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,v992^Y fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^O,"^B"v991^7,'^CO',v992,"^W"v991^W
FI
IF
if p(v991^6) then '1' else '0' fi
//----------------------- Вид обучения
PUTFLD
'Замена вида обучения ',v991^V,' на ',v991^6,if v992<>'' then ' для ',,if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,v992^Y fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^V,"^B"v991^6,'^CV',v992,"^W"v991^W
FI
IF
if p(v991^8) then '1' else '0' fi
//----------------------- Семестр
PUTFLD
'Замена семестра ',v991^F,' на ',v991^8,if v992<>'' then ' для ',,if v992^X: 'O' then 'формы обучения ' else if v992^X: 'V' then 'вида обучения ' else if v992^X: 'A' then 'факультета ' else if v992^X: 'C' then 'специальности ' else if v992^X: 'N' then 'направления ' else if v992^X: 'F' then 'семестра ' else if v992^X: 'B' then 'кафедры ' fi fi fi fi fi fi fi,v992^Y fi
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^F,"^B"v991^8,'^CF',v992,"^W"v991^W
FI
IF
if p(v991^4) then '1' else '0' fi
//------------------ имя дисциплины 
PUTFLD
'Замена имени дисциплины ',v991^D,' на ',v991^4
PUTFLD
'LINKCORRREPMARK1',/"^A"v991^D,"^B"v991^4,'^CD',v992,"^W"v991^W
FI
GETFLD
4000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX