Aeag1981
25 de noviembre de 2024, 02:29
Hola, Buenas Noches!!!!.-
Realice un desarrollo en cobol que hace lo siguiente:
1 - Envia un archivo del spool, directamente al IFS (sin pasar por un archivo PF intermedio)
CPYSPLF FILE(GLIMPREDI4) TOFILE(*TOSTMF) JOB(969000/usuario/QPADEV0046) TOSTMF('/RepositorioDeArchivos/SSIS/487/APP/salida/BOLETIN.TXT') WSCST(*none) STMFOPT(*REPLACE)
y dependiendo del parámetro WSCST, generé un TXT o un PDF
2 - Verificación el tamaño del archivo en el IFS, si el mismo supera los 3MB zippeo el archivo (con una CL ejecutamos el comando através de QSHELL).
JAR cvfM /RepositorioDeArchivos/SSIS/487/APP/salida/bOLETIN.TXT.ZIP
/RepositorioDeArchivos/SSIS/487/APP/salida/BOLETIN.TXT
3 - Por último el proceso envía un mail con el archivo .TXT/.PDF o el ZIP, siempre y cuando el tamaño del objeto sea inferior a los 3MB.-
Todo el desarrollo está hecho en cobol para AS400 (IBM i 7.3).-
El problema lo tengo en cuando descomprimo el archivo en PC Windows, me trae "basura". Tengo otros procesos que envían mail con archivos ZIP adjuntos (archivo origen TXT) y cuando los descomprimo se leen correctamente.-
En principio pensé que era el CCSID del Archivo que era diferente al del ZIP, pero en los casos que se leen bien, los CCSID son distintos.-
Alguien puede guiarme por donde buscar???
Realice un desarrollo en cobol que hace lo siguiente:
1 - Envia un archivo del spool, directamente al IFS (sin pasar por un archivo PF intermedio)
CPYSPLF FILE(GLIMPREDI4) TOFILE(*TOSTMF) JOB(969000/usuario/QPADEV0046) TOSTMF('/RepositorioDeArchivos/SSIS/487/APP/salida/BOLETIN.TXT') WSCST(*none) STMFOPT(*REPLACE)
y dependiendo del parámetro WSCST, generé un TXT o un PDF
2 - Verificación el tamaño del archivo en el IFS, si el mismo supera los 3MB zippeo el archivo (con una CL ejecutamos el comando através de QSHELL).
JAR cvfM /RepositorioDeArchivos/SSIS/487/APP/salida/bOLETIN.TXT.ZIP
/RepositorioDeArchivos/SSIS/487/APP/salida/BOLETIN.TXT
3 - Por último el proceso envía un mail con el archivo .TXT/.PDF o el ZIP, siempre y cuando el tamaño del objeto sea inferior a los 3MB.-
Todo el desarrollo está hecho en cobol para AS400 (IBM i 7.3).-
El problema lo tengo en cuando descomprimo el archivo en PC Windows, me trae "basura". Tengo otros procesos que envían mail con archivos ZIP adjuntos (archivo origen TXT) y cuando los descomprimo se leen correctamente.-
En principio pensé que era el CCSID del Archivo que era diferente al del ZIP, pero en los casos que se leen bien, los CCSID son distintos.-
Alguien puede guiarme por donde buscar???