Hola
¿Y si utilizas el comando CPYTOIMPF? Si te vale tienes el parámetro
RMVBLANK que hace lo que quieres
Saludos
El 30/01/17 a las 18:03, Joxean Muguruza (EKINFORMATIKA, S.L.) escribió:
Gracias, lo voy a probar.
Bueno.
Siempre tienes la posibilidad de añadir un carácter a fin de registro
en el que almacenas el Hexadecimal ‘0D’ (un CR).
Al ejecutar el CPYTOSTMF le indicas que agrege como ENLINFMT(*LF) y
ya tienes los dos caracteres, y no pierdes los espacios…
Saludos,
F.Muru
*De:*forum.help400-boun...@listas.combios.es
<mailto:forum.help400-boun...@listas.combios.es>
[mailto:forum.help400-boun...@listas.combios.es] *En nombre de *Joxean
Muguruza (EKINFORMATIKA, S.L.)
*Enviado el:* lunes, 30 de enero de 2017 16:02
*Para:* 'forum.help400'
*Asunto:* RE: Tratamiento de un fichero Continuo.
Hola y gracias a todos,
La situación que tengo es que el último campo para un tipo de registro
es de 7 dígitos de los cuales 6 van con valor y el séptimo es blanco,
tiene que ser un fichero continuo puesto que cada registro es de
longitud diferente. Parece que según lo expuesto no tengo forma de
salvar esta situación previo a la generación del fichero, lo tengo que
realizar una vez pasado a texto en el IFS.
No es lo que quisiera pero..
Saludos,
En la copia de fichero usando el *CRLF o *LF o *CR o *LFCR ya
indica que :
“los registros del archivo de base de datos se transforman en líneas
de texto de archivo continuo de longitud variable a
medida que se copian. *Se recortan todos los blancos de cola de cada
registro* del archivo de base de datos. A continuación,
los datos se convierten al formato de datos de destino (si se
especifica) y se añade el carácter de fin de línea al final de la
línea de texto. La línea de texto se copia en el archivo continuo. “
La única excepción es que se indique ENDLINFMT(*FIXED)… pero supongo
que esto no te interesa, ya que no te añade los
caracteres de fin de línea. Otra posibilidad es añadir una posición
más en la que siempre se meta un carácter (p.ej. $ ).
*De:*forum.help400-boun...@listas.combios.es
<mailto:forum.help400-boun...@listas.combios.es>
[mailto:forum.help400-boun...@listas.combios.es] *En nombre de *Alex
Martínez
*Enviado el:* lunes, 30 de enero de 2017 12:35
*Para:* forum.help400
*Asunto:* Re: Tratamiento de un fichero Continuo.
Yo te recomendaría que visualizaras en hexadecimal el final del
archivo a ver si hay "algo extra" además del CR+LF
El 30 de enero de 2017, 11:42, Joxean Muguruza (EKINFORMATIKA, S.L.)
<jmugur...@netekin.com <mailto:jmugur...@netekin.com>> escribió:
Buenos días,
Estoy teniendo un problema a la hora de recuperar un fichero continuo
con un aplicativo para incorporarlo,
La situación que se crea es en un registro cuyo último campo es de 7
caracteres de longitud es valor que utiliza ocupa 6 por la izquierda y
el 7 es un blanco.
La transferencia al IFS la hago con el comando CPYTOSTMF en el valor
ENDLINFMT estamos poniendo *CRLF para que ponga fin de registro y
salto de campo.
Pero al editar el fichero, el registro con este campo tiene una
posición menos, no mantiene el blanco del último carácter del campo.
Se puede orientar esta situación.
Geacias,
Joxean Muguruza
*E-mail: jmugur...@netekin.com <mailto:jmugur...@netekin.com>*
*Departamento de análisis y programación.*
*___________________________*
*EKINFORMATIKA, S.L.*
*C/ Jose Arana 15, Entlo. , Oficina 4*
*20001 San Sebastián*
*Tlfno: 943.28.22.21 <tel:943%2028%2022%2021> Fax: 943.32.72.00
<tel:943%2032%2072%2000>*
*E-mail:jmugur...@netekin.com <mailto:e-mail%3ajmugur...@netekin.com>*
*Web: **www.netekin.com <http://www.netekin.com/>*
**
Confidencialidad
Este correo electrónico y, en su caso, cualquier fichero anexo al
mismo, contiene información de carácter confidencial exclusivamente
dirigida a su destinatario o destinatarios y propiedad de Ekin. Queda
prohibida su divulgación, copia o distribución a terceros sin la
previa autorización escrita de Ekin, en virtud de la legislación
vigente. En el caso de haber recibido este correo electrónico por
error, se ruega notificar inmediatamente esta circunstancia mediante
reenvío a la dirección electrónica del remitente y la destrucción del
mismo.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.