0 IF if p(v200) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX IF if v200^R:'1' then '0' else '1' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 400 XXXXXXXXXXXXXXXXXXX if p(v200) then '^G'v200^g,"IBIS"n200^g,'^W'v200^a,if p(v200^!)then else'-'&unifor('R') fi,"^B"v200^b,"^H"v200^k,'^K'v200^m,if a(v200^m) then &unifor('IREQUEST,MaskStore,') fi,'^D'v200^d,if a(v200^d) then &unifor('3') fi,'^E'v200^e,if a(v200^e) then &unifor('3'),'^!' fi,'^V'v200^w,if a(v200^w) then &unifor('IREQUEST,MaskMrg,') fi,'^F******',"^C"d200,v200^f" ",v200^c,". "v200^h,": "v200^i,|. -|v200^j,'^I'&unifor('IMAIN,OtvFace,'),if &unifor('IMAIN,OtvFace,')='' then v200^l fi fi/ XXXXXXXXXXXXXXXXXXX REP 400^e F (if p(v400) then if p(v400^!) then if '01 03 05 07 08 10 12':v400^e*4.2 then if (val(v400^e*6)+20)>31 then if v400^e*4.2:'12'then f((val(v400^e.4)+1),0,0),'01'else v400^e.4,if v400^e*4.2:'10'then else'0'fi,f((val(v400^e*4.2)+1),0,0) fi,if val(v400^e*6)>=21 then else'0'fi,f((val(v400^e*6)+20-31),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if v400^e*4.2:'02' then if (val(v400^e*6)+20)>28 then v400^e.4,'03',if val(v400^e*6)>=18 then else'0'fi,f((val(v400^e*6)+20-28),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if (val(v400^e*6)+20)>30 then v400^e.4,if val(v400^e*4.2)>=9 then else'0'fi,f((val(v400^e*4.2)+1),0,0),if val(v400^e*6)>=20 then else'0'fi,f((val(v400^e*6)+20-30),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi fi fi else v400^e fi fi/) XXXXXXXXXXXXXXXXXXX CHA 400 * '^!' '' ADD 40 XXXXXXXXXXXXXXXXXXX (v400/) XXXXXXXXXXXXXXXXXXX DEL 400 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX NEWMFN if p(v200) and a(v200^!) then v200^g,"IBIS"n200^g fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 700 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^f,"^X"v200^x fi XXXXXXXXXXXXXXXXXXX CHA 700 F if v700^a:', 'then', 'else if v700^a:','then',' else if v700^a:' 'then' ' fi fi fi if v700^a:', 'then'^G'else if v700^a:','then'^G'else if v700^a:' 'then'^B'fi fi fi ADD 701 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^2,"^X"v200^x fi XXXXXXXXXXXXXXXXXXX ADD 701 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^3,"^X"v200^x fi XXXXXXXXXXXXXXXXXXX CHA 701 F (if v701^a:', 'then', 'else if v701^a:','then',' else if v701^a:' 'then' ' fi fi fi/) (if v701^a:', 'then'^G'else if v701^a:','then'^G'else if v701^a:' 'then'^B'fi fi fi/) ADD 200 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^c else "^V"v200^h,"^A"v200^i fi XXXXXXXXXXXXXXXXXXX ADD 923 XXXXXXXXXXXXXXXXXXX if (v200^v:'05' or a(v200^v)) and s(v200^h,v200^i)<>'' then "^H"v200^h,"^I"v200^i fi XXXXXXXXXXXXXXXXXXX ADD 461 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^X"v200^f,"^9"v200^x,"^C"v200^c fi XXXXXXXXXXXXXXXXXXX ADD 961 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^f,"^X"v200^x,'^ZДА' fi XXXXXXXXXXXXXXXXXXX ADD 961 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^2,"^X"v200^x fi XXXXXXXXXXXXXXXXXXX ADD 961 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^3,"^X"v200^x fi XXXXXXXXXXXXXXXXXXX CHA 961 F (if v961^a:', 'then', 'else if v961^a:','then',' else if v961^a:' 'then' ' fi fi fi/) (if v961^a:', 'then'^G'else if v961^a:','then'^G'else if v961^a:' 'then'^B'fi fi fi/) ADD 920 XXXXXXXXXXXXXXXXXXX if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then 'PAZK'else'SPEC' fi XXXXXXXXXXXXXXXXXXX ADD 210 XXXXXXXXXXXXXXXXXXX "^D"v200^j XXXXXXXXXXXXXXXXXXX ADD 215 XXXXXXXXXXXXXXXXXXX "^A"v200^s XXXXXXXXXXXXXXXXXXX ADD 903 XXXXXXXXXXXXXXXXXXX if v200^r:'1' then v200^a,if p(v200^!)then else'-'&unifor('R') fi, else v40^w fi XXXXXXXXXXXXXXXXXXX ADD 906 XXXXXXXXXXXXXXXXXXX v200^a XXXXXXXXXXXXXXXXXXX ADD 900 XXXXXXXXXXXXXXXXXXX "^B!!!"v200^v,"^B!!!05"n200^v XXXXXXXXXXXXXXXXXXX ADD 905 XXXXXXXXXXXXXXXXXXX "^0"v200^9 XXXXXXXXXXXXXXXXXXX ADD 910 XXXXXXXXXXXXXXXXXXX if p(v200^1)then'^AU^1'v200^1,'^21'else'^A'if v200^r:'1'then'9'else'1' fi fi,"^B"v200^b,'^C',v200^p,if a(v200^p) then &unifor('3') fi,"^D"v200^m,"^H"v200^k XXXXXXXXXXXXXXXXXXX ADD 907 XXXXXXXXXXXXXXXXXXX '^C!!! из RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v200^l fi XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC if p(v200^!) then v200^g,"IBIS"n200^g fi v200 "I="v200^a XXXXXXXXXXXXXXXXXXX ADD 910 XXXXXXXXXXXXXXXXXXX if p(v1001^1)then'^AU^1'v1001^1,'^21'else'^A1'fi,"^B"v1001^b,'^C',v1001^p,if a(v1001^p) then &unifor('3') fi,"^D"v1001^m,"^H"v1001^k XXXXXXXXXXXXXXXXXXX ADD 907 XXXXXXXXXXXXXXXXXXX '^C!!! из RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v1001^l fi XXXXXXXXXXXXXXXXXXX DEL 1001 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CHA 40 * '^W' '^A' DEL 200 1 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 907 F (if p(v907) then if v907^a.8 = &unifor(|3|d907) and v907^b = &unifor('IMAIN,OTVFACE,') and v907^C='К' and v907^D=&unifor('IMAIN,BIBSIGLA,') then '1'else'0'fi fi/) XXXXXXXXXXXXXXXXXXX ADD 907 XXXXXXXXXXXXXXXXXXX '^A',&unifor('3'),' '&unifor('39'),'^B',&unifor('IPRIVATE,FIO,'),'^CК^D',&unifor('IMAIN,BIBSIGLA,') XXXXXXXXXXXXXXXXXXX DEL 24 F (if p(v24) then if v24*2.1:' ' or v24*2.1:'-' or v24.2=&uf('IMAIN,BIBSIGLA,') then '1' else '0' fi fi/) XXXXXXXXXXXXXXXXXXX ADD 24 XXXXXXXXXXXXXXXXXXX (if p(v30) then if val(&uf('+95'v30))=24 and (&uf('+961*7.1#'v30)='F') then S(&uf('+961*8.2#'v30),' ',&uf('+961*0.6#'v30)) else if val(&uf('+95'v30))=24 and (&uf('+961*7.1#'v30)='E') then S(&uf('+961*8.2#'v30),'-',&uf('+961*0.6#'v30)) fi fi fi/) XXXXXXXXXXXXXXXXXXX ADD 1111 XXXXXXXXXXXXXXXXXXX '1' XXXXXXXXXXXXXXXXXXX REPEAT XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 2222 XXXXXXXXXXXXXXXXXXX &uf('AV30#'v1111) XXXXXXXXXXXXXXXXXXX ADD 24 XXXXXXXXXXXXXXXXXXX if val(&uf('+95'v2222))<24 then if v24:v2222 then else &unifor('IMAIN,BIBSIGLA,'),'+',v2222 fi else fi XXXXXXXXXXXXXXXXXXX DEL 2222 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 1111 1 &unifor('+X=#'v1111) XXXXXXXXXXXXXXXXXXX UNTIL if val(v1111)<=rsum((if p(v30) then '1;' else '0;' fi)) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 1111 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 1024 F (if p(v1024) then '0' else '1' fi/) XXXXXXXXXXXXXXXXXXX IF if p(v1024) then '0' else '1' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Поля 1024 нет ADD 1024 XXXXXXXXXXXXXXXXXXX &uf('+960*1.6#'&uf('+8ex64,md5_string,'&uf('R9'))) XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 11 1 &uf('+97'v11) XXXXXXXXXXXXXXXXXXX REP 12 1 &uf('+97'v12) XXXXXXXXXXXXXXXXXXX REP 96 1 &uf('+97'v96) XXXXXXXXXXXXXXXXXXX REP 97 1 &uf('+97'v97) XXXXXXXXXXXXXXXXXXX DEL 50 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 50 XXXXXXXXXXXXXXXXXXX if val(&UF('3C'&uf('3')'/'V21.4'0601'))< 2555 then 'До 7 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 2555 and val(&UF('3C'&uf('3')'/'V21.4'0601'))< 5475 then '7-14 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 5475 and val(&UF('3C'&uf('3')'/'V21.4'0601'))< 9125 then '15-24 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 9125 then '25 лет и старше' else fi fi fi fi XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Если число повторений поля 30 больше, чем поля 24, лишние нужно удалить из 24 // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Удаояются повторения поля 24, которые не являются результатом вычисления ни из какого повторения 30 поля ADD 1111 XXXXXXXXXXXXXXXXXXX '1' XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Счетчик по повторениям 30 поля REPEAT XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 2222 XXXXXXXXXXXXXXXXXXX &uf('AV30#'v1111) XXXXXXXXXXXXXXXXXXX ADD 3333 XXXXXXXXXXXXXXXXXXX '1' XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Счетчик по повторениям 24 поля REPEAT XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 4444 XXXXXXXXXXXXXXXXXXX &uf('AV24#'v3333) XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Здесь анализируем, можно ли вычислить 4444 из 2222 по принятому алгоритму DEL 24 F (if p(v24) then if v4444*3:&uf(|+961*0.|&uf(|+95|v4444*3)|#|v2222) and v24=v4444 then '1' else '0' fi fi/) XXXXXXXXXXXXXXXXXXX REP 3333 1 &unifor('+X=#'v3333) XXXXXXXXXXXXXXXXXXX DEL 4444 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX UNTIL if val(v3333)<=rsum((if p(v24) then '1;' else '0;' fi)) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 3333 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 2222 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 1111 1 &unifor('+X=#'v1111) XXXXXXXXXXXXXXXXXXX UNTIL if val(v1111)<=rsum((if p(v30) then '1;' else '0;' fi)) then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 1111 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX // XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX Удаляем повторения 907 поля более старые, чем 2 года (730) дней, если их больше одного IF if rsum ((if p(v907) then '1;' else '0;' fi))>1 then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX DEL 907 F (if p(v907) then if val(&uf('3C'&uf('3')'/'v907^A.8))>730 then '1' else '0' fi fi/) XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 1030^B F (if p(v1030^A) then if v1030^B='' then if val(&uf('+95'v1030^A))=24 and (&uf('+961*7.1#'v1030^A)='F') then S(&uf('+961*8.2#'v1030^A),' ',&uf('+961*0.6#'v1030^A)) else if val(&uf('+95'v1030^A))=24 and (&uf('+961*7.1#'v1030^A)='E') then S(&uf('+961*8.2#'v1030^A),'-',&uf('+961*0.6#'v1030^A)) else &unifor('IMAIN,BIBSIGLA,'),'+',v1030^A fi fi fi else v1030^B fi/) XXXXXXXXXXXXXXXXXXX IF if &uf('DRDREXT,/NCHB='v24'/,v24')<>'' then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v11 'NCHB='v24 REP 11 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v12 'NCHB='v24 REP 12 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v30 'NCHB='v24 REP 30 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v24 'NCHB='v24 REP 24 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v1024 'NCHB='v24 REP 1024 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' (v29/) 'NCHB='v24 REP 29 (v1001/) XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' v32 'NCHB='v24 REP 32 v1001 XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' (v51/) 'NCHB='v24 REP 51 (v1001/) XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' (v52/) 'NCHB='v24 REP 33 (v1001/) XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX CORREC 'RDREXT' (v33/) 'NCHB='v24 REP 33 (v1001/) XXXXXXXXXXXXXXXXXXX DEL 1001 XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX IF if &uf('DRDREXT,/NCHB='v24'/,v24')='' then '1' else '0' fi XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX NEWMFN 'RDREXT' XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 11 XXXXXXXXXXXXXXXXXXX v11 XXXXXXXXXXXXXXXXXXX ADD 12 XXXXXXXXXXXXXXXXXXX v12 XXXXXXXXXXXXXXXXXXX ADD 30 XXXXXXXXXXXXXXXXXXX v30 XXXXXXXXXXXXXXXXXXX ADD 24 XXXXXXXXXXXXXXXXXXX v24 XXXXXXXXXXXXXXXXXXX ADD 1024 XXXXXXXXXXXXXXXXXXX v1024 XXXXXXXXXXXXXXXXXXX ADD 29 XXXXXXXXXXXXXXXXXXX (v29/) XXXXXXXXXXXXXXXXXXX ADD 32 XXXXXXXXXXXXXXXXXXX v32 XXXXXXXXXXXXXXXXXXX ADD 51 XXXXXXXXXXXXXXXXXXX (v51/) XXXXXXXXXXXXXXXXXXX ADD 52 XXXXXXXXXXXXXXXXXXX (v52/) XXXXXXXXXXXXXXXXXXX ADD 33 XXXXXXXXXXXXXXXXXXX (v33/) XXXXXXXXXXXXXXXXXXX ADD 920 XXXXXXXXXXXXXXXXXXX 'RDREXT' XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX FI XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX REP 40 F (if p(v40) then if v40^A<>'' and v40^Y<>'1' then v40,'^Y1',&uf('D',v40^g,|,!I=|v40^a|!,if p(v60) then '^Z'v60 fi,if p(v900) then '^T',v900^T,if p(v900^B) then '^0'V900^B fi,if p(v900^C) then '^1'v900^C fi,if p(v900^2) then '^2'v900^2 fi,if p(v900^3) then '^3'v900^3 fi, if p(v900^4) then '^4'v900^4 fi,if p(v900^5) then '^5'v900^5 fi,if p(v900^6) then '^6'v900^6 fi,if p(v900^X) then '^7'v900^X fi,if p(v900^Y) then '^8'v900^Y fi,if p(v900^9) then '^9'v900^9 fi else '' fi,if p(v920) then '^X'v920 else '' fi|) else v40 fi fi/ ) XXXXXXXXXXXXXXXXXXX ADD 12002 XXXXXXXXXXXXXXXXXXX if p(v12002) then else &unifor('IMAIN,BIBSIGLA,') fi XXXXXXXXXXXXXXXXXXX REP 12000 F if p(v12000) then if v12000='' then &uf('+8ex64,md5_string,'&uf('+0')v30) else v12000 fi fi XXXXXXXXXXXXXXXXXXX ADD 12000 XXXXXXXXXXXXXXXXXXX if p(v12000) then else &uf('+8ex64,md5_string,'&uf('+0')v30) fi XXXXXXXXXXXXXXXXXXX DEL 12001 * XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 12001 XXXXXXXXXXXXXXXXXXX &unifor('3'),' ',&unifor('39') XXXXXXXXXXXXXXXXXXX NEWMFN 'RDR_BKP' XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ALL XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX ADD 10000 XXXXXXXXXXXXXXXXXXX &unifor('3'),' ',&unifor('39') XXXXXXXXXXXXXXXXXXX END XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXX