Otra solucion viable es pasar el fichero de datos al IFS en formato CVS, el
cual lo recogera EXCEL de forma automatica.
Nosotros lo hacemos con el siguente CL, el cual abre tambien EXCEL (fuente
recuperado de la internet)
CPYTOXLS: PGM PARM(&FILE &FROMMBR &TOFILE &TODIR)
DCL VAR(&FILE) TYPE(*CHAR) LEN(20)
DCL VAR(&FROMFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&FROMLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&FROMMBR) TYPE(*CHAR) LEN(10)
DCL VAR(&TOFILE) TYPE(*CHAR) LEN(64)
DCL VAR(&TODIR) TYPE(*CHAR) LEN(128)
DCL VAR(&TOSTMF) TYPE(*CHAR) LEN(193)
DCL VAR(&TOSTMF2) TYPE(*CHAR) LEN(200)
DCL VAR(&TEMPFILE) TYPE(*CHAR) LEN(8) +
VALUE(TEMP)
DCL VAR(&CMD) TYPE(*CHAR) LEN(123)
CHGVAR VAR(&FROMFILE) VALUE(%SST(&FILE 1 10))
CHGVAR VAR(&FROMLIB) VALUE(%SST(&FILE 11 10))
CHGVAR VAR(&TOSTMF) VALUE(&TODIR *TCAT '/' *CAT +
&TOFILE)
CHGVAR VAR(&TOSTMF2) VALUE(&TODIR *TCAT '/' *CAT +
&TEMPFILE)
CPYTOIMPF FROMFILE(&FROMLIB/&FROMFILE &FROMMBR) +
TOSTMF(&TOSTMF2) MBROPT(*REPLACE) +
RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') +
FLDDLM(',')
RMVLNK OBJLNK(&TOSTMF)
MONMSG MSGID(CPF0000)
CPY OBJ(&TOSTMF2) TOOBJ(&TOSTMF) +
TOCODEPAGE(*PCASCII) DTAFMT(*TEXT)
RMVLNK OBJLNK(&TOSTMF2)
MONMSG MSGID(CPF0000)
/* ABRE EXCEL */
CHGVAR VAR(&CMD) VALUE('START I:\INERT\' *CAT +
&TOFILE)
/* @STRPCCMD = solo realiza un STRPCO y un STRPCCMD con el mandato PC
pasado */
CALL @STRPCCMD &CMD
END: 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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
