<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:Consolas;
        panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
        {font-family:"Courier New \, serif";}
@font-face
        {font-family:"Courier New \, serif \;";}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";
        color:black;}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
pre
        {mso-style-priority:99;
        mso-style-link:"HTML - wstępnie sformatowany Znak";
        margin:0cm;
        margin-bottom:.0001pt;
        font-size:10.0pt;
        font-family:"Courier New";
        color:black;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
        {mso-style-priority:99;
        mso-style-link:"Tekst dymka Znak";
        margin:0cm;
        margin-bottom:.0001pt;
        font-size:8.0pt;
        font-family:"Tahoma","sans-serif";
        color:black;}
span.HTML-wstpniesformatowanyZnak
        {mso-style-name:"HTML - wstępnie sformatowany Znak";
        mso-style-priority:99;
        mso-style-link:"HTML - wstępnie sformatowany";
        font-family:Consolas;
        color:black;}
span.TekstdymkaZnak
        {mso-style-name:"Tekst dymka Znak";
        mso-style-priority:99;
        mso-style-link:"Tekst dymka";
        font-family:"Tahoma","sans-serif";
        color:black;}
span.Stylwiadomocie-mail21
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail22
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail23
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail24
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail25
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail26
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail27
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail28
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail29
        {mso-style-type:personal;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.Stylwiadomocie-mail30
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-size:10.0pt;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
        {page:WordSection1;}
/* List Definitions */
@list l0
        {mso-list-id:244412847;
        mso-list-template-ids:1272603932;}
@list l1
        {mso-list-id:499468719;
        mso-list-template-ids:210156688;}
@list l1:level1
        {mso-level-tab-stop:36.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level2
        {mso-level-tab-stop:72.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level3
        {mso-level-tab-stop:108.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level4
        {mso-level-tab-stop:144.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level5
        {mso-level-tab-stop:180.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level6
        {mso-level-tab-stop:216.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level7
        {mso-level-tab-stop:252.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level8
        {mso-level-tab-stop:288.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
@list l1:level9
        {mso-level-tab-stop:324.0pt;
        mso-level-number-position:left;
        text-indent:-18.0pt;}
ol
        {margin-bottom:0cm;}
ul
        {margin-bottom:0cm;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body bgcolor=white lang=PL link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Hi everybody<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>I had the problem with changing the structure of cds/isis database.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>Ernesto Spinak spend a lot of time and effort and showed me step by step how to overcome this problem<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>I hope it can be usefull for anyone who may have the same or similar problem.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>Below is the problem and Ernesto’s great solution:</span><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p></o:p></span></p><p class=MsoNormal><a name="_MailEndCompose"></a><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'>thanks<o:p></o:p></p><div class=MsoNormal align=center style='text-align:center'><hr size=2 width="100%" align=center></div><p class=MsoNormal><span lang=EN-US><br></span><b><span lang=EN-US style='color:red'>PROBLEM</span></b><span lang=EN-US style='color:#1F497D'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>We have a database named agwb, with the structure<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     1</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «´╗┐¯ö»¯êÜab┼éo┼ä»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 20  «39»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 30  «VI»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 40  «3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>..</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     2</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼ä»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 20  «59»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 30  «VI»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 40  «3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>..</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     3</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 20  «54»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 30  «VI»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 40  «3»</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>We want to join all records with the same value of v10, into a single records with fields  v10,v30,v40 converted in a single filed v100 with subfields</span><span lang=EN-US style='color:#1F497D'> (as repeatable group)</span><span lang=EN-US>, like<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     3</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>..</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     4</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a106^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>..</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>mfn=     5</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a106^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>100  «^a107^bVI^c3»</span></b><b><span lang=EN-US><br></span></b><b><span lang=EN-US style='font-family:"Courier New , serif","serif"'>..<o:p></o:p></span></b></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:red'>AND ERNESTO’s SOLUTION<o:p></o:p></span></b></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'><b><u><span lang=EN-US>// You need the CISIS utilties of (c) Bireme in your PC</span></u></b><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><br>1) first you have to convert a group of fields into a single subfielded field<br>   the proc is simple because there are no repeatable fields involved, <br>   otherwise the strategy would be more complex.<br><br><b>mx agwb </b></span><b><a href="mailto:proc=@subfields.prc"><span lang=EN-US>proc=@subfields.prc</span></a></b><b><span lang=EN-US> create=zzz1 now -all tell=100</span></b><span lang=EN-US><br><br><b><u>File: subfields.prc</u></b><o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>'d20d30d40'</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>'<100>^a',v20,'^b',v30,'^c',v40,'</100>'</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>Now you have a dbase  zzz1 with contents<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US>mfn=     1<br> 10  «´╗┐¯ö»¯êÜab┼éo┼ä»<br>100  «^a39^bVI^c3»<br>..<br>mfn=     2<br> 10  «¯ö»¯êÜab┼éo┼ä»<br>100  «^a59^bVI^c3»<br>..<br>mfn=     3<br> 10  «¯ö»¯êÜab┼éo┼äa»<br>100  «^a54^bVI^c3»</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><br>2) the following step is more tricky<br>   if field v10 were a common Isis field (char are ascii or ansi, or non graphic Unicode, Utf)<br>   you could use the parameter  join= of mx, but for this you need a classic Inverted File which fails<br>   because the non-standard characters<br>   Therefore we had to circumvent this problem using another strategy<br>    Also: We have the database ordered by v10, so all the contigous records belong to the same group<br>    Otherwise we should to order the database using the command   msrt.exe)<br><br>    The idea is to browse the database in ascending MFN order and if field v10 or record xx is the same as record xx -1, theN we carry over the data from the previous record and add to the actual record.<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mx zzz1 </span></b><b><span style='font-size:13.5pt;font-family:"Courier New , serif","serif"'><a href="mailto:proc=@carryover.prc"><span lang=EN-US>proc=@carryover.prc</span></a></span></b><b><span style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> <span lang=EN-US>copy=zzz1 now -all tell=100</span></span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><b><u><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>file: carryover.prc</span></u></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>if ref(mfn-1,v10)=s(v10) then</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> 'd100',</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> '<100>',  ref(mfn-1,v100+|%|),  '</100>'</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>  '<100>', v100, '</100>'</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>fi,</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><br>In the example, v10 of MFN 3 and 4 are the same, then MFN=4 carry the contents of MFN=3 and places it<br>as the first occ of the field V100. <br>(note: the concatenation of strings with % is a trick to preserve the order)<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mfn=     3</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>..</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mfn=     4</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>100  «^a106^bVI^c3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>..</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mfn=     5</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> 10  «¯ö»¯êÜab┼éo┼äa»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>100  «^a54^bVI^c3%^a106^bVI^c3»</span></b><span lang=EN-US><br></span><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>100  «^a107^bVI^c3»</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><br>3) Explode of chains with % as repeatable field and clean file from spaces, etc<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mxcp zzz1 create=final repeat=% clean<br><br>mfn=     3<br> 10  «¯ö»¯êÜab┼éo┼äa»<br>100  «^a54^bVI^c3»<br>..<br>mfn=     4<br> 10  «¯ö»¯êÜab┼éo┼äa»<br>100  «^a54^bVI^c3»<br>100  «^a106^bVI^c3»<br>..<br>mfn=     5<br> 10  «¯ö»¯êÜab┼éo┼äa»<br>100  «^a54^bVI^c3»<br>100  «^a106^bVI^c3»</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><br>4) export the file to an ISO standard<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mx final iso=nwagb.iso now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>ready!!!<br><br>If you find this excercise interesting, I'd appreciate you communicate it to the ISIS list<br>in order to give some feedback to the list and show colleagues that this List works<br><br>Regards from Montevideo<br>Ernesto Spinak<br><br><br>so you should do  the following command <o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mxcp zzz1 create=zzz2 repeat=% clean</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>then <o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx zzz2 "proc=if ref(mfn+1,v10)=s(v10) then 'd.' fi"  copy=zzz2 now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>then<o:p></o:p></span></p><p class=MsoNormal><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx zzz2 iso=zzz2.iso now -all tell=100<br>mx iso=zzz2.iso create=final now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>Now it works<br>The set of commands are:<o:p></o:p></span></p><div class=MsoNormal align=center style='text-align:center'><hr size=2 width="100%" align=center></div><ol start=1 type=1><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx agwb  </span></b><b><span style='font-size:13.5pt;font-family:"Courier New"'><a href="mailto:proc=@subfields.prc"><span lang=EN-US>proc=@subfields.prc</span></a></span></b><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>   create=zzz1 now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New , serif","serif"'>mx zzz1 </span></b><b><span style='font-size:13.5pt;font-family:"Courier New , serif","serif"'><a href="mailto:proc=@carryover.prc"><span lang=EN-US>proc=@carryover.prc</span></a></span></b><b><span style='font-size:13.5pt;font-family:"Courier New , serif","serif"'> <span lang=EN-US>copy=zzz1 now -all tell=100</span></span></b><span lang=EN-US><o:p></o:p></span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New \, serif \;"'>mxcp zzz1 create=zzz2 repeat=% clean</span></b><span lang=EN-US><o:p></o:p></span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx zzz2 "proc=if ref(mfn+1,v10)=s(v10) then 'd.' fi"  copy=zzz2 now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx zzz2 iso=zzz2.iso now -all tell=100</span></b><span lang=EN-US><o:p></o:p></span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l1 level1 lfo3'><b><span lang=EN-US style='font-size:13.5pt;font-family:"Courier New"'>mx iso=zzz2.iso create=final now -all tell=10</span></b><span lang=EN-US><o:p></o:p></span></li></ol><div class=MsoNormal align=center style='text-align:center'><hr size=2 width="100%" align=center></div><p class=MsoNormal>V                                  V <o:p></o:p></p></div></body></html>