Hola Alfredo: Te env�o un prototipo de programa que hace lo que necesitas, lo prepar� el pasado mes de Mayo para una consulta similar a la tuya.
Un saludo.
Juanra
----- Original Message -----
From: Alfredo Hern�ndez Alvarez <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, February 06, 2003 6:27 PM
Subject: SPOOL a FILE
> Hola foro
>
> La verdad soy nuevo en esto, espero puedan ayudarme.
>
> Necesitamos hacer un programa que automaticamente (con un cron o algo
> asi) pase unos spools a archivos de db en el as400.
>
> Se que puede hacerse con RPG y CL, se que hay un comando CPYSPLFL o
> algo asi, pero alguien me podria orientar en esto? como crear el
> programa y luego como establecer la hora de ejecucion.
>
> Se que es algo basico, les agradezco mucho.
>
>
> Alfredo.
----- Original Message -----
From: Juan Ram�n Garcia <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, May 23, 2002 11:21 AM
Subject: RE: Utilidad de cpysplf
Hola Albert:
Como lo prometido es deuda, adjunto te env�o un prototipo de un programilla
que se encarga de realizar de forma autom�tica la copia de archivos de Spool
a un fichero en disco.
Puedes tomarlo como ejemplo y personalizarlo seg�n tus necesidades.
La parte de env�o de ese archivo al PC lo dejo en tus manos.
Lo he probado y funciona a la perfecci�n, ver�s que he incluido en el
fichero los controles de salto y espaciado al hacer el CPYSPLF, si no los
necesitas basta con cambiar el CL y el archivo f�sico para que no los
incluya.
Si tienes alguna duda ya sabes donde encontrarme ;-)
Un saludo.
Juanra
----- Original Message -----
From: Albert L�pez
To: [EMAIL PROTECTED]
Sent: Tuesday, May 21, 2002 12:05 PM
Subject: Re: Utilidad de cpysplf
Hola Juan Ramon
Me podrias pasar el programa, o parte del fuente, o algo ????
Gracias
***********************************************************************
* *
* AUTOMATIZACION CPYSPLF - LEEME *
* JUANRA - 2.002 *
* *
***********************************************************************
1.- Crear el �rea de datos del contador de miembros:
CRTDTAARA DTAARA(lllllll/JRG151AD) TYPE(*CHAR) LEN(9) +
VALUE('000000000') +
TEXT('Automatizaci�n CPYSPLF - Contador miembros')
2.- Crear la cola de datos de control:
CRTDTAQ DTAQ(lllllll/JRG151DQ) MAXLEN(132) +
TEXT('Automatizaci�n CPYSPLF - Control') +
FORCE(*YES)
3.- La cola de salida a utilizar con este proceso no debe estar
asociada a ning�n transcriptor de Spool y debe utilizarse
�nicamente para este fin.
4.- Al crear la cola de salida hay que especificar en el par�metro
DTAQ el nombre y biblioteca de la cola de datos de control, que
en este ejemplo es JRG151DQ.
5.- El programa de control JRG151 debe ser ejecutado por BATCH desde
el proceso de I.P.L. o planificado para su ejecuci�n cada vez
que arranque la m�quina. Debe estar siempre activo.
6.- El perfil de usuario que ejecute el programa de control JRG151
debe tener autorizaci�n *ALL a la cola de salida.
Jrg151ad.pf
Description: Binary data
Jrg151c1.clp
Description: Binary data
Jrg151dq.pf
Description: Binary data
Jrg151f.pf
Description: Binary data
Jrg151.rpg
Description: Binary data
