Lo he probado y me sigue saliendo igual debe ser de otra manera.
Pues los blancos a eliminar no son de derecha ni de izquierda, son en medio, y en
diferentes posiciones.
este es parte del programa que ejecuto:
D CAMBIO S 14 INZ( '<TIPO>A</TIPO>' )
C CAMBIO:14 SCAN STRING:1 POS 4 0
C IF POS < > 0
C EVAL %SUBST(STRING:POS:14) = '14 blancos'
C ENDIF
14 = Longitud del cambio
STRING = 1500 posiciones segun archivo.
1 = Desde el principio de la serie
POS = 0 si no encuentra la b�squeda
Algo si ha encontrado la serie , se queda con la posici�n inicial donde
aparace
digamos la mas a la izquierda.
Ejemplo:
1� La cadena esta asi:
<NVA_MAR_FAM_SUB> <CODMAR>00</CODMAR><CODFAM></CODFAM><CODSUB></CODSUB><DESCRIP>MENAJE
Y MESA</DESCRIP> <TIPO>A</TIPO> </NVA_MAR_FAM_SUB>
2� Despues del eval queda asi.
<NVA_MAR_FAM_SUB> <CODMAR>00</CODMAR><CODFAM></CODFAM><CODSUB></CODSUB><DESCRIP>MENAJE
Y MESA</DESCRIP> </NVA_MAR_FAM_SUB>
Saludos
Paco Medina
Dpto.Informatica
Exclusivas Camacho, S.Ltda.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
