<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Francisco<br>
<br>
Gracias por la respuesta, finalmente encontré mi error<br>
El problema estaba que cuando controlaba por el npost no habia
incluído el prefijo de indización<br>
Ahora el formato funciona correctamente y copio abajo por si algún
colega le sirve<br>
<br>
Saludos<br>
Ernesto spinak<br>
<b><big><font face="Courier New, Courier, monospace"><br>
( if p(v10) then <br>
<br>
if npost(<font color="#cc0000">|AU_|</font>V10^*)
>1 then <br>
<br>
,'<a
href="/cgi-bin/wxis1660.exe/iah/?IsisScript=iah/iah.xis&base=',v5003[1],<br>
'&lang=e&nextAction=lnk&exprSearch=',s(mpu,v10^*,mpl),'&indexSearch=AU">',<br>
mpl,V10^*,'</a>', |, |v10^r, <br>
<br>
else <br>
v10^*, |, |v10^r<br>
fi<br>
<br>
if iocc <nocc(v10) then ' ; ' else mpl, '.
<br> ' fi,<br>
<br>
fi),</font></big></b><br>
<hr size="2" width="100%"><br>
<br>
<br>
<br>
El 23/02/2012 12:00, Francisco J D M Lopes Santos escribió:
<blockquote
cite="mid:842986661.74493.1330005618381.JavaMail.root@pombo.bireme.br"
type="cite">
<style type="text/css">p { margin: 0; }</style>
<div style="font-family: Arial; font-size: 12pt; color: #000000"><span>Hola
Ernesto,<br>
<br>
Todo bien, como te va?<br>
Estimo!<br>
<br>
Te contesto en portugues porque espanhol y ingles no los
domino bien.<br>
<br>
<br>
Como não tinhamos a base nem a FST e plataforma que você usou,
usamos a base CDS fornecida com o WinISIS.<br>
<br>
O processo de teste e comprovação usado é o seguinte:<br>
<br>
1- Inverter a base<br>
2- Aplicar seu formato de prova<br>
3- Compactar o invertido<br>
4- Aplicar seu formato de prova<br>
5- Comparar resultados<br>
<br>
O teste foi realizado com o CISIS versão 1030 e com o CISIS
versão Lind, ambas 5.52 para plataforma Windows.<br>
<br>
-Dos resultados obtidos concluimos que a função <font
style="font-weight: bold;" size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">npost</span></font>
funciona em invertidos compactados ou não, inclusive 'lind' ou
'não lind' (qualquer tipo de invertido).<br>
<br>
Anexamos a captura das telas dos testes (teste_1030.txt e
teste_lind.txt) e a seguir é mostrada a sequencia de comandos
utilizada.<br>
<br>
Para 1030<br>
</span>
<div style="margin-left: 40px;"><span
id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;"><br>
c:\utl\cisis\1030> more teste2.bat<br>
mx what<br style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
</span></font></span><span
id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">more
..\cds\cds.fst</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">del
..\cds\cds.iy0</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">mx ..\cds\cds
"fst=@" fullinv=..\cds\cds tell=100</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">dir
..\cds\cds.*</span></font></span><br style="font-family:
Courier New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">mx ..\cds\cds
"pft=( f(npost(v70),1,0),'-',v70/)" now</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">mkiy0
..\cds\cds</span></font></span><br style="font-family:
Courier New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">dir
..\cds\cds.*</span></font></span><br style="font-family:
Courier New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">del
..\cds\cds.cnt</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">del
..\cds\cds.ifp</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">del
..\cds\cds.l0?</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">del
..\cds\cds.n0?</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">dir
..\cds\cds.*</span></font></span><br style="font-family:
Courier New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"><font size="2"><span
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">mx ..\cds\cds
"pft=( f(npost(v70),1,0),'-',v70/)" now</span></font></span><br
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">
<span id="0b348432-6776-4165-9653-078698292799"></span></div>
<span id="0b348432-6776-4165-9653-078698292799"><br>
Para Lind<br>
</span>
<div style="margin-left: 40px;"><span
id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2"><br>
C:\utl\cisis\lind>more teste2.bat</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">mx what</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">more
..\cds\cds.fst</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">del
..\cds\cds.iy0</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">mx
..\cds\cds "fst=@" fullinv=..\cds\cds tell=100</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">dir
..\cds\cds.*</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">mx
..\cds\cds "pft=( f(npost(v70),1,0),'-',v70/)" now</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">mkiy0
..\cds\cds</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">dir
..\cds\cds.*</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">del
..\cds\cds.cnt</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">del
..\cds\cds.iyp</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">del
..\cds\cds.ly?</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">del
..\cds\cds.n0?</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">dir
..\cds\cds.*</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"><font
style="font-family: Courier
New,courier,monaco,monospace,sans-serif;" size="2">mx
..\cds\cds "pft=( f(npost(v70),1,0),'-',v70/)" now</font></span><br>
<span id="0b348432-6776-4165-9653-078698292799"></span></div>
<span id="0b348432-6776-4165-9653-078698292799"><br>
Saludos a todos,<br>
<span name="x"></span>Marcos Luis Mori e Francisco José Lopes<br>
---<br>
BIREME / OPS / OMS<br>
<a class="moz-txt-link-freetext" href="http://www.bireme.org">http://www.bireme.org</a><br>
<span name="x"></span><br>
</span><br>
<hr id="zwchr"><b>De: </b><a class="moz-txt-link-abbreviated" href="mailto:spinaker@adinet.com.uy">spinaker@adinet.com.uy</a><br>
<b>Para: </b>"reddes bvs-tech"
<a class="moz-txt-link-rfc2396E" href="mailto:reddes.bvs-tech@listas.bireme.br"><reddes.bvs-tech@listas.bireme.br></a><br>
<b>Enviadas: </b>Terça-feira, 7 de Fevereiro de 2012 10:25:18<br>
<b>Assunto: </b>[Reddes.bvs-tech] CISIS Format npost<br>
<br>
Estimados<br>
<br>
Una pregunta: <br>
¿la instrucción npost(<format>) funciona sobre un I/F
compacto con <br>
mkyi0 ?<br>
<br>
Tengo un I/F comun creado con 1030 o 1660<br>
<br>
mx mibase "pft=( f(npost(v76),1,0),'-',v76/)" funciona<br>
<br>
pero si el IF es iy0 no da resultados<br>
<br>
Entiendo que no funciona con LIND pero por que no funciona con
los I/F <br>
normales?<br>
<br>
Saludos<br>
Ernesto Spinak<br>
<br>
_______________________________________________<br>
Reddes.bvs-tech mailing list<br>
<a class="moz-txt-link-abbreviated" href="mailto:Reddes.bvs-tech@listas.bireme.br">Reddes.bvs-tech@listas.bireme.br</a><br>
<a class="moz-txt-link-freetext" href="http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech">http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech</a><br>
</div>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">--
.^. .^.
( ) ( )
=== ===
=[=]================================[=]=
| | Ernesto Spinak | |
| | <a class="moz-txt-link-abbreviated" href="mailto:spinaker@adinet.com.uy">spinaker@adinet.com.uy</a> | |
| | Montevideo, Uruguay | |
| | tel/fax (598) 2622-3352 | |
| | celular (598) 99612238 | |
=[=]================================[=]=
=== ===
( ) ( )
V V </pre>
</body>
</html>