RE: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

[medina]

Title: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

Perdona este seria para hacerlo directo creo me estaba haciendo un lio:

 

 

PGM   (&nombre_archivo)

DCL  VAR(&nombre_archivo) TYPE(*CHAR) LEN(8)

STRPCO

MOMMSG  MSGID(CPF0000)

STRPCCMD PCCMD('C:\archivo.bat |> &nombre_archivo) pause(*no)

 

A traves del programa RPGLE:

 

PGM   (&nombre_archivo)

DCL  VAR(&nombre_archivo) TYPE(*CHAR) LEN(8)

 

CALL PROGRAMA PARM(&nombre_archivo)    este programa crearia el archivo cambiando el parametro de 

                                                                     nombre de archivo en el  PCfile    

luego con copiamos a carpeta QDLS

 

CPYTOPCD FROMFILE(archivo) TOFLR(en qdls) TDOC('archivo'  *cat &nombre_archivo *cat ' .bat) replace(*yes) TRNFMT(*text)

 

STRPCO

MOMMSG  MSGID(CPF0000)

STRPCCMD PCCMD('C:\archivo.bat) pause(*no)

 

perdona si no me explico bien estoy algo expeso.

 

Saludos

Exclusivas Camacho, S.Ltda.
Paco Medina

-----Mensaje original-----
De: medina
Enviado el: mi�rcoles, 16 de octubre de 2002 17:06
Para: [EMAIL PROTECTED]
Asunto: RE: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

Ahora no recuerdo si se puede pero si el archivo que envias es de tipo SRING , osea que no hay separacion de campos, podrias generar un programa en RPGILE que te creara el archivo Bat, susituyendo la parte del PCFile por el parametro  que generes con el otro nombre, luego copiarlo al PC como .bat y ejecutarlo despues con el STRPCCMD.

 

PGM   (&nombre_archivo)

DCL  VAR(&nombre_archivo) TYPE(*CHAR) LEN(8)

STRPCO

MOMMSG  MSGID(CPF0000)

STRPCCMD PCCMD('C:\archivo.bat |> &nombre_archivo) pause(*no)

 

Es algo rebuscado pero puede funcionar.

 

Saludos

Exclusivas Camacho, S.Ltda.
Paco Medina

-----Mensaje original-----
De: Cristina V�zquez Osorio [mailto:[EMAIL PROTECTED]]
Enviado el: mi�rcoles, 16 de octubre de 2002 16:29
Para: '[EMAIL PROTECTED]'
Asunto: RE: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

uSANDO EL STRPCCMD SE PUEDEN PASAR PARAMETROS?

MI TRANSFERENCIA ES UN (.DTF), Y SI QUISIERA CAMBIAR ALGUN NOMBRE DE FICHERO(DE LOS QUE APARECEN DENTRO DE MI DTF)� PODRIA CAMBIAR DICHO NOMBRE POR %1 O ALGO PARECIDO Y PASAR ESE VALOR COMO PARAMETRO.?

 

 

[DataTransferFromAS400]
Version=1.0
[HostInfo]
HostName=XXX.XXX.XXX.XXX
HostFile=TRANSFDAT
[ClientInfo]
OutputDevice=2
PCFileType=1
PCFile=C:\Datos_as400\EXTRACTO.TXT    **** ESTE NOMBRE PONERLE COMO SI FUERA UNA VARIABLE
CrtOpt=1
SaveFDF=1
FDFFile=C:\Datos_as400\CAT7.FDF
.......................

 

Y LUEGO LA LLAMADA PONER ALGO PARECIDO A ESTO ...STRPCCMD PCCMD(TRASFEXT.FDF NB.ARCHIVO)

-----Mensaje original-----
De: medina [mailto:[EMAIL PROTECTED]]
Enviado el: mi�rcoles 16 de octubre de 2002 15:48
Para: [EMAIL PROTECTED]
Asunto: RE: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

Hola Cristina, la transferencia te habra creado un archivo  BAT. si lo haces primero a traves del CA. el cual puedes ejecutar con el STRPCCMD. Si necesitas ejemplo dimelo.

 

Saludos

Exclusivas Camacho, S.Ltda.
Paco Medina

-----Mensaje original-----
De: Cristina V�zquez Osorio [mailto:[EMAIL PROTECTED]]
Enviado el: mi�rcoles, 16 de octubre de 2002 15:36
Para: 'FORUMAS400'
Asunto: Como ejecutar transferencia desde as/400.(desde un pto.de menu)

Tengo creada una transferencia que coge un archivo y lo coloca en el pc en un directorio determinado.
Desde el as/400, usando un punto de menu relleno ese fichero de datos y luego me gustaria ejecutar esa transferencia, desde el mismo as/400�como puedo hacerlo?

�se hace con cwbtf.exe?
Saludos y Gcs a todos