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: [email protected]
[mailto:[email protected]] 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
<[email protected]<mailto:[email protected]>>
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:
[email protected]<mailto:[email protected]>
[mailto:[email protected]<mailto:[email protected]>]
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
<[email protected]<mailto:[email protected]>>
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:
[email protected]<mailto:[email protected]>
[mailto:[email protected]<mailto:[email protected]>]
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
<[email protected]<mailto:[email protected]>>
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&#225;s de ServerNEWS.
&#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&#225;s de ServerNEWS.
&#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&#225;s de ServerNEWS.
&#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&#225;s de ServerNEWS.
&#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
