Hola,
Yo utilizo un sistema un poco complejo para pasar al IFS un archivo en
spool, pero me funciona correctamente.
Te paso el CL que es bastante autoexplicativo.
No se si habrá algún método mas directo.
Un saludo
--
Emilia Esteban
PGM /* TRASSPOOL, COPIAR UN ARCHIVO EN SPOOL A +
UNA CARPETA DE IFS */
/* COPIA EL FICHERO EN SPOOL A UN FICHERO DE BASE DE DATOS */
/* CON REGISTROS DE 200 (TRASPPC) */
/* DESPUES COPIA ESTE FICHERO A UN FICHERO FUENTE (TRASPTXT) */
/* POR ULTIMO COPIA EL MIEMBRO DEL FUENTE A UN FICHERO DE IFS */
/* CON EL MISMO NOMBRE DEL USUARIO, EN LA CARPETA (TRASPIFS) */
/* LA CARPETA 'TRASPSPL' HA DE EXISTIR EN IFS */
/* LOS ARCHIVOS AUXILIARES SE CREAN EN LA QTEMP */
DCL VAR(&USUARI) TYPE(*CHAR) LEN(10)
DCL VAR(&FIC) TYPE(*CHAR) LEN(50)
RTVJOBA USER(&USUARI)
/* CREAR ARCHIVOS AUXILIARES DE TRASPASO EN QTEMP */
CRTPF FILE(QTEMP/TRASPPC) RCDLEN(200) MBR(*NONE) +
MAXMBRS(*NOMAX)
MONMSG MSGID(CPF0000)
CRTPF FILE(QTEMP/TRASPTXT) RCDLEN(200) +
FILETYPE(*SRC) MAXMBRS(*NOMAX)
MONMSG MSGID(CPF0000)
COPIA1: ? CPYSPLF ??FILE(*N) TOFILE(QTEMP/TRASPPC) +
??JOB(*N)
MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(FIN))
CPYF FROMFILE(QTEMP/TRASPPC) +
TOFILE(QTEMP/TRASPTXT) FROMMBR(*FIRST) +
TOMBR(TRASPPC) MBROPT(*REPLACE) +
FMTOPT(*CVTSRC)
MONMSG MSGID(CPF2817) EXEC(GOTO CMDLBL(FIN))
CPYTOIMPF FROMFILE(QTEMP/TRASPTXT TRASPPC) +
TOSTMF('/TRASPSPL/' || &USUARI) +
MBROPT(*REPLACE) STMFCODPAG(*PCASCII) +
RCDDLM(*CRLF) STRDLM(*NONE)
MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(FIN))
/* CAMBIAR AUTORIZACIÓN PARA ACCESO PUBLICO DESDE PC */
CHGVAR VAR(&FIC) VALUE('/TRASPSPL/'||&USUARI)
CHGAUT OBJ(&FIC) USER(*PUBLIC) DTAAUT(*RWX)
FIN: ENDPGM
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
