Alfredo
Te aconsejo crear una cola de spool y conectarle una cola de datos
que sea le�da por un trabajo o programa que convierta el spool a archivo.
1) CRTOUTQ OUTQ(*CURLIB/COLAOUTQ)
DTAQ(*LIBL/COLADTAQ)
2) EJECUTAS un PROGRAMA como este (en este caso, este programa esta
siempre vivo)
PGM
DCL VAR(&LONG) TYPE(*DEC) LEN(5 0) VALUE(128)
DCL VAR(&WAIT) TYPE(*DEC) LEN(5 0) VALUE(-1)
DCL VAR(&ENTRADA) TYPE(*CHAR) LEN(128)
DCL VAR(&NROSPOOL) TYPE(*DEC) LEN(4)
DCL VAR(&NROSPOOLC) TYPE(*CHAR) LEN(4)
DCL VAR(&NOMJOB) TYPE(*CHAR) LEN(10)
DCL VAR(&USUARIO) TYPE(*CHAR) LEN(10)
DCL VAR(&NROJOB) TYPE(*CHAR) LEN(6)
DCL VAR(&NOMSPOOL) TYPE(*CHAR) LEN(10)
DCL VAR(&MIEMBRO) TYPE(*CHAR) LEN(10)
RECIBIR: CALL PGM(QRCVDTAQ) PARM('COLADTAQ' '*LIBL' &LONG +
&ENTRADA &WAIT)
CHGVAR VAR(&NOMJOB) VALUE(%SST(&ENTRADA 13 10))
CHGVAR VAR(&USUARIO) VALUE(%SST(&ENTRADA 23 10))
CHGVAR VAR(&NROJOB) VALUE(%SST(&ENTRADA 33 6))
CHGVAR VAR(&NOMSPOOL) VALUE(%SST(&ENTRADA 39 10))
CHGVAR VAR(&NROSPOOLC) VALUE(%SST(&ENTRADA 49 4))
CHGVAR VAR(&NROSPOOLC) VALUE(%BIN(&NROSPOOLC))
CHGVAR VAR(&MIEMBRO) VALUE('SP' *CAT &NROJOB *CAT +
%SST(&NROSPOOLC 3 2))
CPYSPLF FILE(&NOMSPOOL) TOFILE(ITELLEZ/CONTENEDOR) +
JOB(&NROJOB/&USUARIO/&NOMJOB) +
SPLNBR(&NROSPOOLC) TOMBR(&MIEMBRO) +
CTLCHAR(*FCFC)
DLTSPLF FILE(&NOMSPOOL) +
JOB(&NROJOB/&USUARIO/&NOMJOB) +
SPLNBR(&NROSPOOLC)
CHGPFM FILE(ITELLEZ/CONTENEDOR) MBR(&MIEMBRO) +
TEXT(&NOMSPOOL *CAT &USUARIO *CAT +
&NOMJOB)
GOTO CMDLBL(RECIBIR)
ENDPGM
Saludos
_____________________________________________________
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
