Txaro,
para
usar con FTP existe el comando "LOCSIte Trim 0" (de 400 a pc) y el "quote site
trim 0" de pc a 400, que se acerca en algo a lo que buscas, pero quiza no sea la
solucion completa.
como
ha comentado otro compa�ero, puedes quiza necesitar acompa�ar esto con poner un
blanco en la ultima posicion que tu quieres dar al registro de pc (p.e. la posic
100).
esto
se puede hacer facilmente (es un decir) con un programa de pc hecho con
VisualBasic, VisualC o incluso perl etc.
en un
tema parecido, para enviar por comunicaciones ficheros de pc a la seguridad
social (RED), hace a�os tuvimos que hacer esto mismo porque el fichero de pc
terminaba en una posic no fija, asi que simplemente le ponemos un blanco en la
posic deseada. si no encuentras otra solucion esta puede valer siempre que
puedas ejecutar el pgm de pc en la secuencia adecuada.
el
codigo en vb seria mas o menos asi (te lo pongo en vb porque es lo mas sencillo,
solo que debes compilarlo)
Size%
= 100 'tama�o que queremos obligar
Open "C:\TEMP\Fentrada.txt" For Input As #1
Open "C:\TEMP\Fsalida.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, reg1$
If Len(reg1$) < Size% Then
reg2$ = reg1$ & Space(Size% - Len(reg1$)) 'ajusta tama�o
Else
reg2$ = reg1$ 'reg no cambiado
End If
Print #2, reg2$
Loop
Close #1, #2
Open "C:\TEMP\Fsalida.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, reg1$
If Len(reg1$) < Size% Then
reg2$ = reg1$ & Space(Size% - Len(reg1$)) 'ajusta tama�o
Else
reg2$ = reg1$ 'reg no cambiado
End If
Print #2, reg2$
Loop
Close #1, #2
si no
tienes vb me lo dices, intento compilarle y te mando el exe (solo necesitaras
los runtimes de vb que son faciles de pillar)
de
todas formas recuerdo que hay otras formas de conseguir esto pero no recuerdo
bien los detalles y no te quiero confundir.
por
supuesto, siempre puedes hacer esto parecido con un pgm de 400 despues de
recibir el file.
Saludos,
Guillermo Andrades, CPI
Software http://www.cpis.es
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]En nombre de Txaro Tellechea
Enviado el: mi�rcoles, 25 de septiembre de 2002 9:33
Para: [EMAIL PROTECTED]
Asunto: Re: Problemas en la conservaci�n de los caracteres en blancos finales de un fich.con CPYTOPCDCon la opci�n de *NOTEXT, consigo reg. de longitud fija de 1022, pero no la longitud de 100 que es la que yo tengo definida en el fich. del As/400 de partida ...----- Original Message -----From: "Juan Carlos Paredes" <[EMAIL PROTECTED]>To: <[EMAIL PROTECTED]>Sent: Tuesday, September 24, 2002 6:03 PMSubject: RE: Problemas en la conservaci�n de los caracteres en blancos finales de un fich.con CPYTOPCDEn el par�metro TRNFMT (Formato de datos PC) del mandato CPYTOPCD,
especif�cale *NOTEXT. Esto hace que el sistema asuma el fichero como de
longitud fija.
Un saludo.
Juan Carlos
> -----Mensaje original-----
> De: Txaro Tellechea [SMTP:[EMAIL PROTECTED]]
> Enviado el: martes, 24 de septiembre de 2002 16:59
> Para: [EMAIL PROTECTED]
> Asunto: Problemas en la conservaci�n de los caracteres en blancos
> finales de un fich.con CPYTOPCD
>
> Hola,
>
> El problema que se me plantea es el siguiente:
>
> Tengo en el AS/400 generado un fichero con una longitud de reg. de 100
> caracteres, con la peculiaridad de que en las �ltimas posiciones son
> blancos. Para verlo m�s intuitivamente os remito un ejemplo:
> ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
> ...+... 8 ...+... 9 ...+... 100
> AAAAAAAAA 0000810 AAAAAAAAAAA AA
> BBBBBB 0000100 BBBBBBBBBB BBBBBBB 1
> CCCCCC 0000150 CCCCCC CCCCC 2
> DDDDDD 0000008 DDDDDDD DDDDDD 3
>
> Aqu� tenemos un fichero con 4 registros. Necesito transferir este fichero
> en modo ASCII, para lo cual uso el mandato CPYTOPCD. Pero aqu� es donde
> aparecen los problemas. El fichero ASCII que yo obtengo en la carpeta del
> AS/400, no respeta la longitud del fichero de 100 caracteres; sino que la
> longitud final de cada registro es la siguiente posici�n al �ltimo
> car�cter significativo de cada registro. Es decir el 1� registro finaliza
> en la posici�n 73, en 2� reg. en la posici�n 85 ... ( En la transferencia
> con CLIENT ACCESS me sucede lo mismo, no puedo usar el Client Access
> Express).
>
> �C�mo puedo yo transferir dicho fichero a modo ASCII, de manera que se
> respete la longitud de cada registro a 100 caracteres incluyendo a su vez
> los caracteres blancos finales?
>
> Agradeciendo la colaboraci�n, os env�o un Saludo
> Txaro Tellechea,
_____________________________________________________
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]?body=AVE
