|
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
|
*********************************************************************** * * * 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
