All� les va el fuente, espero ayude en algo.
PGM PARM(&A�O &MES)
DCL VAR(&A�O) TYPE(*CHAR) LEN(4)
DCL VAR(&MES) TYPE(*CHAR) LEN(2)
STRQMQRY QMQRY(LIBSITQRY/PDT626A) OUTPUT(*OUTFILE) +
OUTFILE(LIBSITDAT/PDT626A) +
ALWQRYDFN(*ONLY) SETVAR((ANO &A�O) (MES +
&MES))
CLRPFM FILE(LIBSITDAT/SUNAT626)
CALL PGM(LIBSITOBJ/PDT626A)
STRPCO
MONMSG MSGID(CPF0000 CPC0000 CPD0000)
STRPCCMD PCCMD('c:\getdata\pdt626A.bat') PAUSE(*NO)
MONMSG MSGID(CPF0000 CPC0000 CPD0000)
ENDPGM
Esta es la CL, ejecuto un query y un programa, esto me deja un archivo
elcual ser� transferido a la PC.
En el comando STRPCCMD ejecuto la transferencia por medio de un programa
.bat, te adjunto el fuente:
cd "c:\getdata"
RTOPCB pdt626a.tto
cd "c:\winnt"
notepad.exe c:\getdata\062620101292658aaaamm.txt
El comando RTOPCB es el que ejecuta la transferencia v�a ClientAccess, esto
me ha trabajado bien en cualquier version del CA.
El programa .bat, ejecuta la transferencia y luego levanta el archivo en la
pc del archivo .txt transferido.
Un abrazo, desde Lima-Peru
Aldo V�squez Salazar
INFORMA S.A.
612-6000 (3151)
Es mejor estar en lo correcto que ser popular
-----Original Message-----
From: GASOLINASS [mailto:[EMAIL PROTECTED]]
Sent: Mi�rcoles, 25 de Septiembre de 2002 10:15 a.m.
To: [EMAIL PROTECTED]
Subject: Re: RE: traspaso de fichero, desde as/400 a directorio de pc
Aldo
yo tambien estoy interesado, me podrias enviar una copia de tus fuentes
gracias
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
