Re: Pasar datos de un fichero txt a un fichero AS400
Buenos días.Gracias a todos por vuestras aportaciones.
Prueba superada.
Describo de nuevo la situación y la solución.
Con la estructura del fichero txt:
XXXbbbYYY
ZZZ bbb WW
donde bbb son blancos, y el fichero AS400 con campos:
Código de 3A y Descripción de 50A, más
===> CPYFRMIMPF FROMSTMF('/ftp/directorio/fichero.txt')
TOFILE(biblioteca/ficheroas) MBROPT(*REPLACE) RCDDLM(*CRLF) FLDDLM(*TAB)
- Original Message -
From: "Jesus Olague" <[EMAIL PROTECTED]>
To:
Sent: Monday, June 13, 2005 5:42 PM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola.
Si utilizas CPYFRMIMPF y en tu archivo de texto origen las columnas
Código y Descripción van separados por un tabulador, prueba con el
parámetro FLDDLM(*TAB)
Saludos
--
Jesús Olague
Zacatecas, México
___
On 6/13/05, Juan Antonio <[EMAIL PROTECTED]> wrote:
Ya he pasado los datos, pero ocurre que de los dos campos: Código y
Descripción que tengo definidos, en la descripción me ha grabado al
inicio
un caracter.
Revisaré.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 1:39 PM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud de registro
igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT)
RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los
datos:
CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
>
> Abriendo el txt se ve lo siguiente, con códigos de tres y descripciones
más o menos largas...
>
> CODE CHARGE
> XXX Angola load.cer.
> YYY BAC
> etc
>
> - Original Message -
> From: Marti Riera
> To: forum.help400@combios.es
>
> Sent: Monday, June 13, 2005 11:07 AM
> Subject: Re: Pasar datos de un fichero txt a un fichero AS400
>
>
> Hola:
>
> Nos puedes enviar un ejemplo de como es un registro que intentas
> subir?,
>
> a ver si de esa forma podemos ayudarte mejor.
>
> Saludos.
>
>
> El día 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribió:
> >
> > Lo he intentado modificando algunas opciones, pero no recupera los
datos.
> > La tabla presenta datos del tipo
> > XXXY
> > y siempre igual.
> > Seguiré viendo otra combinación de parámetros. Supongo que estará en
cómo indicarle cuando y cómo saltar a otro registro.
> >
> > Gracias.
> >
> >
> > - Original Message -
> > From: Marti Riera
> > To: forum.help400@combios.es
> > Sent: Monday, June 13, 2005 9:27 AM
> > Subject: Re: Pasar datos de un fichero txt a un fichero AS400
> >
> >
> > Hola Juan Antonio:
> >
> > Mira si te puede servir el siguiente mandato:
> >
> > CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"')
FLDDLM(',') DECPNT(*COMMA)
> >
> > Adaptalo a tus necesidades.
> >
> > Saludos.
> >
> > El día 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribió:
> > >
> > > Buenos días.
> > > Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un
> > > fichero
existente en AS400.
> > > ¿Algún método directo tipo "Cpyf"?.
> > >
> > > Gracias.
> >
> >
> >
> > --
> > Marti Riera
>
>
>
> --
> Marti Riera
--
Marti Riera
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Campos empaquetados
En efecto, pero necesitas considerar una posición adicional para el separador de decimales (en su caso) y otra para el signo (sólo lo incluye en negativos). De hecho, para no preocuparte por el tamaño de registro puedes crear un archivo de paso con formato bastante grande de manera que quepa prácticamente el formato de registro de cualquier archivo (puedes crearlo de hasta 32766 bytes), y en el script de FTP utilizarías LOCSITE TRIM '1' para suprimir los blancos a la derecha. Saludos. -- Jesús Olague Zacatecas, México On 6/13/05, ALDAVE-OLAVERRI Juan-Jose <[EMAIL PROTECTED]> wrote: > Hola Jesus: > Lo he probado pero me dice lo siguiente: > -- El mandato Copiar a archivo de importación (CPYTOIMPF) requiere un > archivo fuente o un archivo físico descrito externamente en el parámetro > TOFILE. > Entonces tengo que crear las DDS con las longitudes de los campos sin > empaquetar ? > Gracias > > -Mensaje original- > De: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] nombre de Jesus Olague > Enviado el: lunes 13 de junio de 2005 17:45 > Para: forum.help400@combios.es > Asunto: Re: Campos empaquetados > > > Hola, primero cópialo a un archivo de importación, utiliza el comando > CPYTOIMPF y haz el GET sobre este archivo. > > Saludos > -- > Jesús Olague > Zacatecas, México > __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
RE: Campos empaquetados
Hola Jesus: Lo he probado pero me dice lo siguiente: -- El mandato Copiar a archivo de importación (CPYTOIMPF) requiere un archivo fuente o un archivo físico descrito externamente en el parámetro TOFILE. Entonces tengo que crear las DDS con las longitudes de los campos sin empaquetar ? Gracias -Mensaje original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nombre de Jesus Olague Enviado el: lunes 13 de junio de 2005 17:45 Para: forum.help400@combios.es Asunto: Re: Campos empaquetados Hola, primero cópialo a un archivo de importación, utiliza el comando CPYTOIMPF y haz el GET sobre este archivo. Saludos -- Jesús Olague Zacatecas, México __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400 __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Pasar datos de un fichero txt a un fichero AS400
Hola, hola,
Supongo que eso sera por como estan definidos los campos en el AS400 comprueba en el archivo TXT cuantos blancos hay despues del codigo y antes de la descripción.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
Ya he pasado los datos, pero ocurre que de los dos campos: Código y Descripción que tengo definidos, en la descripción me ha grabado al inicio un caracter.
Revisaré.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 1:39 PM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud de registro igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT) RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los datos:CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Abriendo el txt se ve lo siguiente, con códigos de tres y descripciones más o menos largas...
CODE CHARGEXXX Angola load.cer.YYY BAC
etc
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 11:07 AM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que intentas subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Lo he intentado modificando algunas opciones, pero no recupera los datos.
La tabla presenta datos del tipo
XXX Y
y siempre igual.
Seguiré viendo otra combinación de parámetros. Supongo que estará en cómo indicarle cuando y cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27 AM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt') TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos días.
Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400.
¿Algún método directo tipo "Cpyf"?.
Gracias.-- Marti Riera -- Marti Riera
-- Marti Riera -- Marti Riera
Re: Campos empaquetados
Hola, primero cópialo a un archivo de importación, utiliza el comando CPYTOIMPF y haz el GET sobre este archivo. Saludos -- Jesús Olague Zacatecas, México __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Pasar datos de un fichero txt a un fichero AS400
Hola.
Si utilizas CPYFRMIMPF y en tu archivo de texto origen las columnas
Código y Descripción van separados por un tabulador, prueba con el
parámetro FLDDLM(*TAB)
Saludos
--
Jesús Olague
Zacatecas, México
___
On 6/13/05, Juan Antonio <[EMAIL PROTECTED]> wrote:
> Ya he pasado los datos, pero ocurre que de los dos campos: Código y
> Descripción que tengo definidos, en la descripción me ha grabado al inicio
> un caracter.
> Revisaré.
> Gracias.
> - Original Message -
> From: Marti Riera
> To: forum.help400@combios.es
> Sent: Monday, June 13, 2005 1:39 PM
> Subject: Re: Pasar datos de un fichero txt a un fichero AS400
>
> Hola Juan Antonio:
>
> Crea en el AS400 un archivo de trabajo plano con una longitud de registro
> igual a la del archivo txt.
> CRTPF FILE(LIB/TXT) RCDLEN(45)
> Despues utiliza CPYF para copiarlo al archivo plano del AS:
> CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT)
> RCDDLM(*CRLF)
> Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los
> datos:
> CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
>
> Saludos
>
> El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
> >
> > Abriendo el txt se ve lo siguiente, con códigos de tres y descripciones
> más o menos largas...
> >
> > CODE CHARGE
> > XXX Angola load.cer.
> > YYY BAC
> > etc
> >
> > - Original Message -
> > From: Marti Riera
> > To: forum.help400@combios.es
> >
> > Sent: Monday, June 13, 2005 11:07 AM
> > Subject: Re: Pasar datos de un fichero txt a un fichero AS400
> >
> >
> > Hola:
> >
> > Nos puedes enviar un ejemplo de como es un registro que intentas subir?,
> >
> > a ver si de esa forma podemos ayudarte mejor.
> >
> > Saludos.
> >
> >
> > El día 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribió:
> > >
> > > Lo he intentado modificando algunas opciones, pero no recupera los
> datos.
> > > La tabla presenta datos del tipo
> > > XXXY
> > > y siempre igual.
> > > Seguiré viendo otra combinación de parámetros. Supongo que estará en
> cómo indicarle cuando y cómo saltar a otro registro.
> > >
> > > Gracias.
> > >
> > >
> > > - Original Message -
> > > From: Marti Riera
> > > To: forum.help400@combios.es
> > > Sent: Monday, June 13, 2005 9:27 AM
> > > Subject: Re: Pasar datos de un fichero txt a un fichero AS400
> > >
> > >
> > > Hola Juan Antonio:
> > >
> > > Mira si te puede servir el siguiente mandato:
> > >
> > > CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
> TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"')
> FLDDLM(',') DECPNT(*COMMA)
> > >
> > > Adaptalo a tus necesidades.
> > >
> > > Saludos.
> > >
> > > El día 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribió:
> > > >
> > > > Buenos días.
> > > > Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero
> existente en AS400.
> > > > ¿Algún método directo tipo "Cpyf"?.
> > > >
> > > > Gracias.
> > >
> > >
> > >
> > > --
> > > Marti Riera
> >
> >
> >
> > --
> > Marti Riera
>
>
>
> --
> Marti Riera
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
RE: Campos empaquetados
> -Mensaje original- > De: ALDAVE-OLAVERRI Juan-Jose [SMTP:[EMAIL PROTECTED] > Enviado el: lunes, 13 de junio de 2005 16:28 > Para: forum.help400@combios.es > Asunto: Campos empaquetados > > Hola: > Alguien sabe si al hacer un get biblioteca/fichero para bajar un archivo > al > PC desde AS400 > hay alguna forma de tratar los campos empaquetados ? > Me los trae con signos extraños. > Supongo que te refieres la operación get del FTP. Si es así, no recuerdo que sea posible recuperar esos campos. Es más, si el campo fuera numérico con zona y fuera negativo, también tendrías el mismo problema. Un saludo, Javier Mora Dpto. Informática Dialsur S.A.U. __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
RE: Campos empaquetados
Por lo que yo conozco, no se puede hacer, Nosotros primero lo pasamos a un fichero de trabajo sin empaquetados y luego lo transmitimos. Otra posibilidad es pasarlos en formato DIF. En ese caso no tenemos problema, aunque no te se decir como hay que definirlo porque usamos una utilidad de la emulacion. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of ALDAVE-OLAVERRI Juan-Jose Sent: 13 June 2005 16:28 To: forum.help400@combios.es Subject: Campos empaquetados Hola: Alguien sabe si al hacer un get biblioteca/fichero para bajar un archivo al PC desde AS400 hay alguna forma de tratar los campos empaquetados ? Me los trae con signos extraños. Saludos > Juanjo Aldave - Spain, Burlada I.C.F. > > FAURECIA - IT3SE - Information Technologies Shared Services Southern > Europe > > Phone : +34 948 13 33 00 (ext. 142) > Fax : +34 948 13 33 32 > Email : [EMAIL PROTECTED] > --- Esta transmisión electrónica es estrictamente profesional y está dirigida exclusivamente a su destinatario. Puede contener información protegida por privilegios legales, profesionales o de otro tipo. Si no es su destinatario original debe abstenerse de revelar, copiar o emprender ninguna acción basándose en esta transmisión. Si ha recibido esta transmisión por error notifíquenoslo y elimine los datos que reciba lo antes posible. --- This electronic transmission is strictly confidential and intended solely for the addressee. It may contain information which is covered by legal, professional or other privilege. If you are not the intended addressee, you must not disclose, copy or take any action in reliance of this transmission. If you have received this transmission in error, please notify us and delete the received data as soon as possible. __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400 __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
Campos empaquetados
Hola: Alguien sabe si al hacer un get biblioteca/fichero para bajar un archivo al PC desde AS400 hay alguna forma de tratar los campos empaquetados ? Me los trae con signos extraños. Saludos > Juanjo Aldave - Spain, Burlada I.C.F. > > FAURECIA - IT3SE - Information Technologies Shared Services Southern > Europe > > Phone : +34 948 13 33 00 (ext. 142) > Fax : +34 948 13 33 32 > Email : [EMAIL PROTECTED] > --- Esta transmisión electrónica es estrictamente profesional y está dirigida exclusivamente a su destinatario. Puede contener información protegida por privilegios legales, profesionales o de otro tipo. Si no es su destinatario original debe abstenerse de revelar, copiar o emprender ninguna acción basándose en esta transmisión. Si ha recibido esta transmisión por error notifíquenoslo y elimine los datos que reciba lo antes posible. --- This electronic transmission is strictly confidential and intended solely for the addressee. It may contain information which is covered by legal, professional or other privilege. If you are not the intended addressee, you must not disclose, copy or take any action in reliance of this transmission. If you have received this transmission in error, please notify us and delete the received data as soon as possible. __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
RE: Concatenacion
lo tendre en cuenta, gracias
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
Phone USA (956) 554 5832
Phone MX 01868 8128163 x.5832
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Javier Mora
Sent: Monday, June 13, 2005 5:39 AM
To: forum.help400@combios.es
Subject: RE: Concatenacion
> -Mensaje original-
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> Enviado el: viernes, 10 de junio de 2005 15:09
> Para: forum.help400@combios.es
> Asunto: Re: Concatenacion
>
> Creo que deberias colocar %trim tambien en STREAMIL, para suprimir los
> blancos.
>
>stremail= 'email1';
>
>if a6mail <> *blanks;
> stremail=%trim(stremail) + '('+%trim(A6mail)+') ';
> bsent=*on;
> endif;
> //
> if a7mail<> *blanks;
> stremail=%trim(stremail) + '('+%trim(A7mail)+') ';
> bsent=*on;
> endif;
>
Si defines "stremail" como VARYING en la hoja D no hubiera sido
necesario usar "%trim".
Un saludo,
Javier Mora
Dpto. Informática
Dialsur S.A.U.
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
Note: The information contained in this message may be privileged and
confidential and thus protected from disclosure. If the reader of this message
is not the intended recipient, or an employee or agent responsible for
delivering this message to the intended recipient, you are hereby notified that
any dissemination, distribution or copying of this communication is strictly
prohibited. If you have received this communication in error, please notify us
immediately by replying to the message and deleting it from your computer.
Thank you.
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Pasar datos de un fichero txt a un fichero AS400
Ya he pasado los datos,
pero ocurre que de los dos campos: Código y Descripción que tengo definidos, en
la descripción me ha grabado al inicio un caracter.
Revisaré.
Gracias.
- Original Message -
From:
Marti
Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 1:39 PM
Subject: Re: Pasar datos de un fichero
txt a un fichero AS400
Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud de registro
igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT) RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los
datos:CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El día 13/06/05, Juan
Antonio <[EMAIL PROTECTED]> escribió:
Abriendo el txt se ve
lo siguiente, con códigos de tres y descripciones más o menos
largas...
CODE
CHARGEXXX Angola
load.cer.YYY BAC
etc
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 11:07
AM
Subject: Re: Pasar datos de un
fichero txt a un fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que intentas
subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Lo he intentado
modificando algunas opciones, pero no recupera los datos.
La tabla presenta
datos del tipo
XXX Y
y siempre
igual.
Seguiré viendo
otra combinación de parámetros. Supongo que estará en cómo indicarle
cuando y cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27
AM
Subject: Re: Pasar datos de un
fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"')
FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos
días.
Dispongo de un
fichero txt, cuyos datos quiero pasarmélos a un fichero existente en
AS400.
¿Algún método
directo tipo "Cpyf"?.
Gracias.--
Marti Riera
-- Marti
Riera -- Marti
Riera
Re: Pasar datos de un fichero txt a un fichero AS400
Hola:
¿Lo has intentado con tranferencia de
datos al servidor Iseries?, y luego en HERRAMIENTAS/ CREAR ARCHIVO DE BASES
DE DATOS EN EL Iseries, a continuacion te pide el fichero PC y el de destino,
El solo se crea el PDF con la definicion del fichero, Y carga
los datos en el fichero ISeries. Tienes que tener en el PC por lo menos
version 5.2 de Iserie Acces para Windows (Antiguo Client Access).
un saludo
Mª Jesús Cárcamo
E-Mail: [EMAIL PROTECTED]
ThyssenKrupp Indusa Mure, S.L.
Av. de los Rosales, 24
28041 Madrid
España
Telf. +34.91.379.81.10
Fax: +34.91.792.27.08
Marti Riera <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
13/06/2005 13:39
Por favor, responda a forum.help400
Para:
forum.help400@combios.es
cc:
Asunto:
Re: Pasar datos de un fichero txt a
un fichero AS400
Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud
de registro igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del
AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT)
RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras
que esten los datos:
CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]>
escribió:
Abriendo el txt se
ve lo siguiente, con códigos de tres y descripciones más o menos largas...
CODE CHARGE
XXX Angola load.cer.
YYY BAC
etc
- Original Message -
From: Marti
Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 11:07 AM
Subject: Re: Pasar datos de un fichero txt a un
fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que
intentas subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Lo he intentado modificando
algunas opciones, pero no recupera los datos.
La tabla presenta
datos del tipo
XXX Y
y siempre igual.
Seguiré viendo otra
combinación de parámetros. Supongo que estará en cómo indicarle cuando
y cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti
Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27 AM
Subject: Re: Pasar datos de un fichero txt a un
fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"')
FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos días.
Dispongo de un fichero
txt, cuyos datos quiero pasarmélos a un fichero existente en AS400.
¿Algún método directo
tipo "Cpyf"?.
Gracias.
--
Marti Riera
--
Marti Riera
--
Marti Riera
NECESITO AYUDA webfacing sobre WAS expres v5.0 no puedo escribir "Ã"
Hola Foro Alguien me podría decir como tengo que configarar el WAS para que en Webfacing pudiera escribir "Ñ". o que es lo q tengo ha hacer Los datos que recibo del iseries que contienen "Ñ" me los muestra bien, pero cuando tengo que modificarlos ya en pantalla se come desde la "Ñ". gracias anticipadas Yolanda __ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud de registro igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT) RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los datos:CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
Abriendo el txt se ve lo siguiente, con códigos de tres y descripciones más o menos largas...
CODE CHARGEXXX Angola load.cer.YYY BAC
etc
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 11:07 AM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que intentas subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Lo he intentado modificando algunas opciones, pero no recupera los datos.
La tabla presenta datos del tipo
XXX Y
y siempre igual.
Seguiré viendo otra combinación de parámetros. Supongo que estará en cómo indicarle cuando y cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27 AM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt') TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos días.
Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400.
¿Algún método directo tipo "Cpyf"?.
Gracias.-- Marti Riera -- Marti Riera
-- Marti Riera
Re: Pasar datos de un fichero txt a un fichero AS400
Abriendo el txt se ve lo
siguiente, con códigos de tres y descripciones más o menos
largas...
CODE
CHARGEXXX Angola
load.cer.YYY BAC
etc
- Original Message -
From:
Marti
Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 11:07
AM
Subject: Re: Pasar datos de un fichero
txt a un fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que intentas
subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan
Antonio <[EMAIL PROTECTED]> escribió:
Lo he intentado
modificando algunas opciones, pero no recupera los datos.
La tabla presenta
datos del tipo
XXX
Y
y siempre
igual.
Seguiré viendo otra
combinación de parámetros. Supongo que estará en cómo indicarle cuando y
cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27
AM
Subject: Re: Pasar datos de un
fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"')
FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos
días.
Dispongo de un
fichero txt, cuyos datos quiero pasarmélos a un fichero existente en
AS400.
¿Algún método
directo tipo "Cpyf"?.
Gracias.-- Marti
Riera -- Marti
Riera
RE: Concatenacion
> -Mensaje original-
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> Enviado el: viernes, 10 de junio de 2005 15:09
> Para: forum.help400@combios.es
> Asunto: Re: Concatenacion
>
> Creo que deberias colocar %trim tambien en STREAMIL, para suprimir los
> blancos.
>
>stremail= 'email1';
>
>if a6mail <> *blanks;
> stremail=%trim(stremail) + '('+%trim(A6mail)+') ';
> bsent=*on;
> endif;
> //
> if a7mail<> *blanks;
> stremail=%trim(stremail) + '('+%trim(A7mail)+') ';
> bsent=*on;
> endif;
>
Si defines "stremail" como VARYING en la hoja D no hubiera sido
necesario usar "%trim".
Un saludo,
Javier Mora
Dpto. Informática
Dialsur S.A.U.
__
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
Re: Pasar datos de un fichero txt a un fichero AS400
Hola:
Nos puedes enviar un ejemplo de como es un registro que intentas subir?,
a ver si de esa forma podemos ayudarte mejor.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
Lo he intentado modificando algunas opciones, pero no recupera los datos.
La tabla presenta datos del tipo
XXX Y
y siempre igual.
Seguiré viendo otra combinación de parámetros. Supongo que estará en cómo indicarle cuando y cómo saltar a otro registro.
Gracias.
- Original Message -
From: Marti Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27 AM
Subject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt') TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]
> escribió:
Buenos días.
Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400.
¿Algún método directo tipo "Cpyf"?.
Gracias.-- Marti Riera -- Marti Riera
Re: Pasar datos de un fichero txt a un fichero AS400
Lo he intentado
modificando algunas opciones, pero no recupera los datos.
La tabla presenta datos
del tipo
XXX
Y
y siempre
igual.
Seguiré viendo otra
combinación de parámetros. Supongo que estará en cómo indicarle cuando y cómo
saltar a otro registro.
Gracias.
- Original Message -
From:
Marti
Riera
To: forum.help400@combios.es
Sent: Monday, June 13, 2005 9:27 AM
Subject: Re: Pasar datos de un fichero
txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt')
TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',')
DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan
Antonio <[EMAIL PROTECTED]> escribió:
Buenos
días.
Dispongo de un fichero
txt, cuyos datos quiero pasarmélos a un fichero existente en
AS400.
¿Algún método directo
tipo "Cpyf"?.
Gracias.-- Marti Riera
Re: Pasar datos de un fichero txt a un fichero AS400
> Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400. > ¿Algún método directo tipo "Cpyf"?. Hola, Juan Antonio. Yo también estoy estos dias con asuntos de import/export a ficheros .txt y, dado que el formato del archivo destino no es estricto, con el CPYTOIMPF iba bastante bien, hasta que he comprobado que los campos numéricos los exporta eliminando los ceros iniciales y alineándolos a la izquierda, en vez de a la derecha, con lo que el punto decimal cada vez está en un sitio, independientemente de que en el mandato indique que el destino es un archivo con separadores de campo o bien columnas de ancho fijo. De quién habrá sido la idea ¿=?=)=)($&%??? Si no hay datos negativos y en el fichero destino no se requiere el punto o coma decimal, creando archivos con DDS y indicando para todos los campos numéricos que vayan sin empaquetar (S) con un simpre CPYTOSTMF va bastante bien (la exportación) teniendo en cuenta asuntos como que los caracteres en blanco del final de cada registro se truncan y también la página de códigos a utilizar. Para la importación aún no he hecho pruebas pero visto lo visto me huelo lo peor. Un saludo. http://webmail.wanadoo.es. Tu correo gratuito, rápido y en español
RE: Error ODBC y PHP ...
Title: Mensaje
prueba con esto,
funciona.
function dbconectar($detconex) {
$dsn = "ISERIES";
$usuario = "usuario";
$contraseña = "contraseña";
$dbconect = odbc_connect($dsn, $usuario,
$contraseña);
if (($detconex == TRUE) && ($dbconect ==
0)) {
echo("Ha fallado la conexión a la base de
datos.");
$sqlerror = odbc_errormsg($dbconect);
echo($sqlerror);
}
return($dbconect);
}
?>
-Mensaje original-De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de Emilio G.
BurgoaEnviado el: jueves, 09 de junio de 2005 15:32Para:
forum.help400@combios.esAsunto: Error ODBC y PHP
...
Hola
Estimados...
Estoy tratando de acceder desde una aplicacion php a bases de datos
alojadas en un as-400, pero al ejecutar el script php me aparece el siguiente
error ...
Warning: odbc_connect() [function.odbc-connect]:
SQL error: [IBM][Controlador ODBC de Client Access (32 bits)][DB2/400
SQL]Anomalía en enlace de comunicaciones. COMM RC=0x5, SQL state 08S01 in
SQLConnect in c:\AppServ\www\ejemplos php\validausuarioodbc00.php on line
3
El codigo php que estoy usando para la conexion es el siguiente
...
// Conexion a la
Base de datos if
(!($link=odbc_connect("IBM_AS-400_System", "MYUSERID", "mypassword")))
{
printf(" Error de
Conexion...");
exit()
; }
He utilizado como alternativa el siguiente codigo php y da el mismo
error...
$DSN = "DRIVER=Client
Access ODBC Driver
(32-bit);SYSTEM=200.100.0.201;DBQ=QS36F;UID=MYUSERID;PWD=mypassword";
$conn = odbc_connect($DSN,"MYUSERID","mypassword");
Alguien ha tenido este problema de conexion ??? o tienen idea de como
solucionarlo ???
Desde ya muy agradecido por su atencion.
Emilio G. Burgoa
San Juan - Argentina
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
Re: Pasar datos de un fichero txt a un fichero AS400
mírate el comando CPYFRMIMPF Juan Antonio escribió: Buenos días. Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400. ¿Algún método directo tipo "Cpyf"?. Gracias. -- Saludos. Fernando Pérez Cerámica Saloni. Dpto. Sistemas begin:vcard fn;quoted-printable:Fernando P=C3=A9rez n;quoted-printable:P=C3=A9rez;Fernando org:;Sistemas email;internet:[EMAIL PROTECTED] tel;work:Ext. 627 x-mozilla-html:TRUE version:2.1 end:vcard
Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:
Mira si te puede servir el siguiente mandato:
CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt') TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',') DECPNT(*COMMA)
Adaptalo a tus necesidades.
Saludos.
El día 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribió:
Buenos días.
Dispongo de un fichero txt, cuyos datos quiero pasarmélos a un fichero existente en AS400.
¿Algún método directo tipo "Cpyf"?.
Gracias.-- Marti Riera
