Re: Copiar archivos IFS

[Marti Riera]

Mauro,

Tu problema es que le debes indicar al mandato CPYFRMIMPF cual es el
separador de campos, como en el archivo txt que tienes no hay separadores de
campo el CPYFRMIMPF solo lee el primero y debe fallar. Si le dices que es
*FIXED entonces la cosa se complica mas ya que te pide un archivo de
definicion (que yo no he llegado a usar ya que es complicado de montar).

Lo que si funciona es añadir los caracteres de separacion de campo, en tu
caso es preferible punto y coma (;) Entonces te funciona sin problemas:

CPYFRMIMPF FROMSTMF('/home/temp/test.periodcomma.csv') TOFILE(TEMP/TEST)
MBROPT(*REPLACE) RCDDLM(*CRLF) STRDLM(*NONE) RMVBLANK(*NONE) FLDDLM(';')

Saludos


2009/3/30 Peñaherrera, Mauro <mpena...@dinersclub.com.ec>

>  ya le quite el campo fecha, ahora solo tengo datos numéricos, pero sigue
> dando error.
>
>
>
>                   Copiar de archivo importación
> (CPYFRMIMPF)
>
>
>
>
> Teclee elecciones, pulse
> Intro.
>
>
>
>
> Archivo continuo origen  . . . . >
> '/www/xxyy1.txt'
>
>
>
>
> Desde archivo:
>
>
>   Archivo  . . . . . . . . . . .
> Nombre
>
>     Biblioteca . . . . . . . . .     *LIBL       Nombre, *LIBL,
> *CURLIB
>
>   Miembro  . . . . . . . . . . .   *FIRST        Nombre, *FIRST,
> *ALL
>
> A archivo de base de
> datos:
>
>   Archivo  . . . . . . . . . . . > MMM01
> Nombre
>
>     Biblioteca . . . . . . . . . >   ARCHISYS    Nombre, *LIBL,
> *CURLIB
>
>   Miembro  . . . . . . . . . . .   *FIRST        Nombre, *FIRST,
> *FROMMBR...
>
> Sustituir o añadir registros . . > *REPLACE      *ADD, *REPLACE,
> *UPDADD
>
> Long registro arch continuo  . .   *TOFILE       Número,
> *TOFILE
>
> A CCSID  . . . . . . . . . . . .   *FILE         1-65533,
> *FILE
>
> Delimitador de registro  . . . . > *CRLF         Valor tipo carácter,
> *ALL...
>
> Formato reg arch importación . . > *FIXED        *DLM,
> *FIXED
>
> Delimitador de serie . . . . . . > *NONE         Valor tipo
> carácter...
>
>
> Más...
>
> F3=Salir   F4=Solicitud   F5=Renovar
> F12=Cancelar
>
> F13=Cómo utilizar esta pantalla        F24=Más
> teclas
>
> El parámetro FLDDFNFILE debe especificarse con
> DTAFMT(*FIXED).
>
>                   Copiar de archivo importación (CPYFRMIMPF)
>
>
>
> Teclee elecciones, pulse Intro.
>
>
>
> Eliminar blancos . . . . . . . . RMVBLANK     > *NONE
>
> Delimitador de campo . . . . . . FLDDLM       > *TAB
>
> Archivo de definición campos:    FLDDFNFILE
>
>   Archivo  . . . . . . . . . . .
>
>     Biblioteca . . . . . . . . .                  *LIBL
>
>   Miembro  . . . . . . . . . . .                *FIRST
>
> Coma decimal . . . . . . . . . . DECPNT         *PERIOD
>
> Formato de fecha . . . . . . . . DATFMT       > *ISO
>
> Formato de hora  . . . . . . . . TIMFMT         *ISO
>
>
>
>
>
> En ese campo solo tengo:
>
>
>
>              Especificar valor para parámetro DATFMT
>
>
>
> Teclee elección, pulse Intro.
>
>
>
>
>
> Formato de fecha . . . . . . . . > *ISO
>
>
>
>   *ISO
>
>   *USA
>
>   *EUR
>
>   *JIS
>
>   *MDY
>
>   *DMY
>
>   *YMD
>
>   *JUL
>
>   *YYMD
>
>
>
> Como le pongo *FIXED
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Marti Riera
> *Enviado el:* lunes, 30 de marzo de 2009 14:55
>
> *Para:* forum.help400
> *Asunto:* Re: Copiar archivos IFS
>
>
>
> Mauro,
>
> Es dificil ayudar, el tema de copiar archivo ASCII/EBCDIC, a veces puede
> ser duro, sigue leyendo los mensajes de error (hasta las notas de segundo
> nivel) ahi deberias obtener pistas.
>
> Tambien ten a mano la ayuda del mandato CPYFRMIMPF, ya que por ejemplo si
> hay fechas formato ISO por defecto en el comando el separador de fecha es /
> pero tus datos tienen -.
>
> Estos son los tipos de problemas que tendras que ir investigando hasta
> conseguir que funcione.
>
> Sino tambien puedes probar de subirlo en formato 
> CSV<http://es.wikipedia.org/wiki/CSV>
>
> Saludos
>
> 2009/3/30 Peñaherrera, Mauro <mpena...@dinersclub.com.ec>
>
> Te comento mas sobre esto, primero el mmm01 de archisys lo pase al IFS y
> este se llama casruvip03.txt, ahora lo que quise es regresar para ver la
> funcionalidad del comando, pero el regreso no me da correcto (es decir, el
> carácter de separación decimal es el mismo que se usa en el as400).
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Marti Riera
> *Enviado el:* lunes, 30 de marzo de 2009 14:23
>
>
> *Para:* forum.help400
> *Asunto:* Re: Copiar archivos IFS
>
>
>
> Hola Mauro,
>
> Ahi tienes un bonito problema. Es tu trabajo el verificar que los datos de
> los campos que vas a copiar son compatibles, en principio tu le dices que
> que esta delimitado, pero cual es el delimitador en el .txt (*TAB?) debes
> decirselo al mandato ya que por omision es *;*
>
> Tambien tendras de tener el cuenta si el separador decimal en tu sistema es
> el punto o la coma. En el txt es el punto, no?.
>
> Ahora no recuerdo si el mensaje de error tambien da pistas del campo y/o
> registro que te esta dando error. En fin hay mucho de prueba/error en esto
> las primeras veces.
>
> Suerte
>
> 2009/3/30 Peñaherrera, Mauro <mpena...@dinersclub.com.ec>
>
> Correcto, pero tengo algunas inquietudes ya que se me presenta el siguiente
> mensaje:
>
>
>
>  CPYFRMIMPF FROMSTMF('/www/casruvip03.txt') TOFILE(ARCHISYS/MMM01) MBROPT(*
>
> ADD) RCDDLM(*ALL) DTAFMT(*DLM) DATFMT(*YMD)
> TIMFMT(*ISO)
>
>
>
> Se ha modificado la propiedad del objeto QCPIMTEMPS en QTEMP del tipo
>
>   *USRSPC.
>
> Se ha modificado la propiedad del objeto QACPTEMP01 en QTEMP del tipo
>
>   *USRSPC.
>
> Se ha modificado la propiedad del objeto QCFT800104 en QTEMP del tipo
>
>   *USRSPC.
>
> Se ha modificado la propiedad del objeto Q3F062 en QTEMP del tipo *FILE.
>
> La copia no se completó debido al código de razón 7.
>
>
>
> ID de mensaje  . . . . :   CPF2845       Gravedad . . . . . . . :
> 40
>
> Tipo de mensaje  . . . :
> Diagnóstico
>
>
>
>
>     7 - El campo numérico FROMFILE *N contiene caracteres en blanco, u
> otros
>
>   caracteres que no son válidos para un campo
> numérico.
>
>
>
> Si el archivo casruvip03.txt tiene:
>
>
>
> 4073450000028127        2009-03-304073450000028127        282.86
> 33.70
>
> 4073450000071622        2009-03-304073450000071622        1345.90
> 201.67
>
> 4073450000078163        2009-03-304073450000078163        394.25
> 23.44
>
> 4073450000081175        2009-03-304073450000081175        90.73
> .00
>
> 4073450000082884        2009-03-304073450000082884        252.17
> 22.04
>
> 4073450000085473        2009-03-304073450000085473        295.37
> 30.75
>
>
>
> Y el archivo mmm01 tiene:
>
>
>
> EQEONB          Numero Tarjeta Diners
>         22    0
>
> EQA0DT          Fecha de Castigo                                       10
> L
>
> EQBBNB          TARJETA PRINCIPAL
> 22    0
>
> EQRKNB          Capital Castigado
> 15    2
>
> EQRLNB          Interes Castigado
> 15    2
>
>
> Final
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Marti Riera
> *Enviado el:* lunes, 30 de marzo de 2009 13:45
> *Para:* forum.help400
> *Asunto:* Re: Copiar archivos IFS
>
>
>
> Mauro,
>
> Mirate la ayuda del mandato CPYFRMIMPF.
>
> Saludos
>
> 2009/3/30 Peñaherrera, Mauro <mpena...@dinersclub.com.ec>
>
> Hola Foro:
>
>
>
> Necesito copiar un archivo del IFS a una librería del as400, sabe alguien
> como hacer o donde puedo conseguir información.
>
>
>
> Gracias.
>
>
>
>
>  ------------------------------
>
> Nota de descargo: La información contenida en este e - mail y sus anexos es
> confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta
> información no debe ser distribuida, ni copiada total o parcialmente por
> ningún medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN
> no asume responsabilidad sobre información, opiniones o criterios contenidos
> en este e-mail.
>
> Disclaimer: The information contained in this e-mail and its attached files
> are confidential and intended only for the use of the person to which it is
> addressed. This information can not be totally or partially distributed nor
> copied by any media without the authorization from DINERS/INTERDIN. In
> addition, DINERS/INTERDIN does not assume responsibility about this
> information, opinions or criteria contented in this e-mail.
>
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
>
>
>
> --
> Martí Riera
>
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
>
>
>
> --
> Martí Riera
>
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
>
>
>
> --
> Martí Riera
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>



-- 
Martí Riera

test.periodcomma.csv
Description: application/csv

__________________________________________________
Forum.HELP400 es un servicio más de ServerNEWS.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400