Запрос:
"IDD=щщщ"
Записи:
1
0000001038
Задание:
0
DEL
991
*


ADD
991

'^A9^B10^CF^W1^!МДФ С/Д^/1-79 01 06^+Д/О^XI^Yщщщ'

//12 PUTLOG 
// ^W - признак корректировки поля 90 
// 9.1 - изменение поля 90 по признаку ^W, формирование поей 69 заново, группы
// поле 90 не меняется
// для повтор-ся поля 90
// стартует из RepMark1-VUZ
// корректирока кафедры происходит при создании поля 69 заново
//14 условия замены в 991
// ! факультет / специальность | направление + ФО = ВО
IF
if v991^!='' or v991^!=&uf('+97',v90^A) then if v991^/='' or v991^/=&uf('+97',v90^C) then if v991^|='' or v991^|=&uf('+97',v90^N) then if v991^+='' or v991^+=&uf('+97',v90^O) then if v991^=='' or v991^==&uf('+97',v90^V)  then  '1' fi fi fi fi fi
REP
991
1
mpu,v991

// в 992 условия отбора, если заданы
DEL
992
*


// условие корректировки по подполю I отбрасываю - оно для записей каталога
// в 992^X - идент.подполя, в котором надо менять
// в 992^y - значение, которое надо менять
IF
if v991^X: 'I' then '0' else '1' fi
ADD
992

if v991^X<>'' then '^',v991^X,v991^Y fi

FI
IF
if v992='' or v992: '^B' or v992<>'' and v90: v992 then '1' fi
//................................................ изменяю поле 90, если задано подполе W
IF
if v991^W='1' and s('A C N V O F'): v991^C then '1' else '0' fi
DEL
1090
*


ADD
1090

mpu,(v90/)

IF
if v991^C: 'A' then '1' fi
REP
90^A
F
(if p(v90) then if v90^A<>'' then if &uf('Av991^A#1')=&uf('+97',v90^A) then &uf('Av991^B#1') else v90^A fi else # fi fi/)

FI
IF
if v991^C: 'C' then '1' fi
REP
90^C
F
(if p(v90) then if v90^C<>'' then if &uf('Av991^A#1')=&uf('+97',v90^C) then &uf('Av991^B#1') else v90^C fi else # fi fi/)

FI
IF
if v991^C: 'N' then '1' fi
REP
90^N
F
(if p(v90) then if v90^N<>'' then if &uf('Av991^A#1')=&uf('+97',v90^N) then &uf('Av991^B#1') else v90^N fi else # fi fi/)

FI
IF
if v991^C: 'V' then '1' fi
REP
90^V
F
(if p(v90) then if v90^V<>'' then if &uf('Av991^A#1')=&uf('+97',v90^V) then &uf('Av991^B#1') else v90^V fi else # fi fi/)

FI
IF
if v991^C: 'O' then '1' fi
REP
90^O
F
(if p(v90) then if v90^O<>'' then if &uf('Av991^A#1')=&uf('+97',v90^O) then &uf('Av991^B#1') else v90^O fi else # fi fi/)

FI
IF
if v991^C: 'F' then '1' fi
REP
90^F
F
(if p(v90) then if v90^F<>'' then if &uf('Av991^A#1')=v90^F then &uf('Av991^B#1') else v90^F fi else # fi fi/)

FI
IF
if &uf('+97',v90^A)=v1090^A and &uf('+97',v90^C)=v1090^C and &uf('+97',v90^N)=v1090^N and &uf('+97',v90^V)=v1090^V and &uf('+97',v90^O)=v1090^O and v90^F=v1090^F then else '1' fi
PUTLOG
'Откорректирована запись студента ',v30,' MFN=',f(val(mfn),0,0)
FI
DEL
1090
*


//................................................................... конец изменения поля 90
FI
// формирование заново поля 69
DEL
69
*


// надстройка - учет повторяемости поля 90
DEL
9000
*


ADD
9000

(v90/)

DEL
9001
*


ADD
9001

(v90/)

//.............цикл по повторениям поля 90
REPEAT
DEL
90
*


ADD
90

&uf('Av9000#1')

// сначала в 115, чтобы  не повторять подполя B и D
DEL
115
*


ADD
115
XXXXXXXXXXXXXXXXXXX
if a(v54) or &unifor('Av54#1')<>'' and &unifor('Av54^C#1')<>'' then if p(v90)  then  if val(&uf('IMAIN,LinkGroup,0'))=1 then if v90^E<>'' then  &unifor('7VUZ,?VGR=',,v90^E,,,'?,(v69/)') fi else if &unifor('JVUZ,?',v90^a"-",,v90^n"-",v90^c"-" ,v90^v"-",v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",,v90^n"-",v90^c"-" ,v90^v"-",v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",,v90^n"-",v90^c"-" ,v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",,v90^n"-",v90^c"-" ,v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v90^a"-",,v90^n"-",,v90^c"-" ,v90^v"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",,v90^n"-",v90^c"-" ,v90^v"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",v90^n"-",,v90^v"-",,v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",v90^n"-"v90^v"-",,v90^o"-",v90^f"-",,,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",v90^c"-",,v90^v"-",,v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",v90^c"-"v90^v"-",,v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",,v90^v"-",,v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^a"-",,v90^v"-",,v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",,v90^o"-",v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v90^a"-",,v90^o"-",v90^f"-",'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",,v90^v"-",,v90^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^a"-",,v90^v"-",,v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^a"-",,,v90^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^a"-",,,v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^v"-",,v90^o"-",v90^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^v"-",,v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^v"-",,,v90^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^v"-",,v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',v90^o"-",v90^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v90^o"-",v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v90^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,,v90^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,fi fi fi
XXXXXXXXXXXXXXXXXXX
// если в специальности есть точка, то добавляю специальность до точки 
IF
if &uf('IMAIN,DefaultModeSpec,1')='1' then '1' fi
IF
if v90^C<>'' and v90^C:'.' then '1' fi
DEL
1090
*


ADD
1090

mpu,v90

REP
1090^C
1
&uf('G0.',v1090^C)

ADD
115

if a(v54) or &unifor('Av54#1')<>'' and &unifor('Av54^C#1')<>'' then if p(v1090)  then  if val(&uf('IMAIN,LinkGroup,0'))=1 then if v1090^E<>'' then  &unifor('7VUZ,?VGR=',,v1090^E,,,'?,(v69/)') fi else if &unifor('JVUZ,?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v1090^a"-",,v1090^n"-",,v1090^c"-" ,v1090^v"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",v1090^n"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",v1090^n"-"v1090^v"-",,v1090^o"-",v1090^f"-",,,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",v1090^c"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",v1090^c"-"v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^o"-",v1090^f"-",'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^v"-",,v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,v1090^v"-",,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,,v1090^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^v"-",,v1090^o"-",v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^v"-",,,v1090^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^v"-",,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^o"-",v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,fi fi fi

FI
FI

IF
if &uf('IMAIN,DefaultModeSpec,1')='2' then '1' fi
// если специальность кончается не на 00, то расширяю на 00
IF
if v90^C<>'' then if v90^C*4.1<>'0' or v90^C*5.1<>'0' then '1' fi fi
DEL
1090
*


ADD
1090

v90

REP
1090^C
1
v1090^C.4,'00'

ADD
115

if a(v54) or &unifor('Av54#1')<>'' and &unifor('Av54^C#1')<>'' then if p(v1090)  then  if val(&uf('IMAIN,LinkGroup,0'))=1 then if v1090^E<>'' then  &unifor('7VUZ,?VGR=',,v1090^E,,,'?,(v69/)') fi else if &unifor('JVUZ,?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v1090^a"-",,v1090^n"-",,v1090^c"-" ,v1090^v"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^n"-",v1090^c"-" ,v1090^v"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",v1090^n"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",v1090^n"-"v1090^v"-",,v1090^o"-",v1090^f"-",,,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",v1090^c"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",v1090^c"-"v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^v"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^o"-",v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',v1090^a"-",,v1090^o"-",v1090^f"-",'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,v1090^v"-",,v1090^f"-")>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,v1090^v"-",,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^a"-",,,v1090^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^a"-",,,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^v"-",,v1090^o"-",v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^v"-",,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^v"-",,,v1090^f"-",,)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^v"-",,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',v1090^o"-",v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,v1090^o"-",v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,if &unifor('JVUZ,?',,v1090^f"-",)>'0' then &uf('+7U12#',&unifor('7VUZ,!?',,,v1090^f"-",,'!,@6869')) fi,,,,,,,,,,,,,,fi fi fi

FI
FI
DEL
115
*


ADD
115

&uf('+7G12'),,(G12/)

REPEAT
ADD
69

if a(v69) OR ( &uf('+97',v90^A)= &uf('+97',&unifor('Av115^A#1')) or s(&unifor('Av115^A#1'))='' ) and ( &uf('+97',v90^N)= &uf('+97',&unifor('Av115^N#1')) or s(&unifor('Av115^N#1'))='' ) and  ( &uf('+97',v90^O)= &uf('+97',&unifor('Av115^O#1')) or s(&unifor('Av115^O#1'))='' ) and  ( &uf('+97',v90^V)= &uf('+97',&unifor('Av115^V#1')) or s(&unifor('Av115^V#1'))='' ) and ( val(v90^F)=val(&unifor('Av115^F#1'))  or s(&unifor('Av115^F#1'))='' ) then if ( &uf('IMAIN,DefaultModeSpec,1')='3' ) and  ( &uf('+97',v90^C)= &uf('+97',&unifor('Av115^C#1')) or s(&unifor('Av115^C#1'))='' ) OR  ( &uf('IMAIN,DefaultModeSpec,1')='2' ) and ( &uf('+97',v90^C.4)= &uf('+97',&unifor('Av115^C.4#1')) or s(&unifor('Av115^C#1'))='' ) OR  ( s(&unifor('Av115^C#1')): '.' and &uf('+97',v90^C)=&uf('+97',&unifor('Av115^C#1')) or &uf('G0.',&uf('+97',v90^C))=&uf('G0.',&uf('+97',&unifor('Av115^C#1'))) or s(&unifor('Av115^C#1'))='' ) then  if rsum((if p(v69) then if &uf('+97',v69^B)= &uf('+97',&unifor('Av115^B#1')) and &uf('+97',v69^D)= &uf('+97',&unifor('Av115^D#1')) then '1,' else '0,' fi fi))=0 then if &unifor('Av115^B#1')<>'' then '^B',&unifor('Av115^B#1') fi,,,if &unifor('Av115^D#1')<>'' then '^D',&unifor('Av115^D#1') fi,,,  fi fi fi

DEL
115
1


UNTIL
if p(v115) then '1' fi
DEL
1090
*


// Удаление 69 в соответствии с изучаемым языком
DEL
69
F
if v920:'VUZ' then else (if p(v69) then if v69^d:':' then if &unifor('Av26#1')<>'' then if &unifor('DRDR,@'mfn,',v26|, |'):&unifor('G2:'v69^d) then'0'else'1' fi else '1' fi else '0' fi fi/) fi
XXXXXXXXXXXXXXXXXXX
DEL
9000
1


UNTIL
if p(v9000) then '1' fi
//.............конец цикла по повторением поля 90
DEL
90
*


ADD
90

(v9001/)

DEL
9001
*


DEL
115
*


FI
FI
DEL
992
*


DEL
991
*