> For the complete documentation index, see [llms.txt](https://docs.editran.onesait.com/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-comun-z-os/interfaz-generica-de-aplicacion/funciones-invocadas-desde-jcl-de-aplicacion/tratamientos-de-ficheros-aplicacion-previos-posteriores-a-carga-descarga.md). # Tratamientos de ficheros aplicación previos-posteriores a carga-descarga Se ha implementado la posibilidad de que una vez descargado el fichero de presentación correctamente, se pueda adaptar a otro formato, se le pueda realizar una traducción, se le pueda realizar una conversión y se le puedan eliminar saltos de carro de un entorno que los utiliza. Esta posibilidad se extiende a los ficheros de aplicación de emisión, antes de cargarlos (adaptarlos, traducirlos y convertirlos por fuera de Editran). Dicho proceso se realiza a través del JCL ZTBGJFF4. Este consta de lo siguiente: 1. PARM. Se le pasan 3 parámetros distintos, separados por comas: * Separadores en hexadecimal a eliminar. Normalmente los UNIX envían 2 caracteres x0A-x0D al final de cada línea. Se pueden dar 3 casos: * No hay separadores. Se indican 4 octetos a espacios * Hay un separador x’YZ’. En el octeto 1 se indica Y, en el octeto 2 se indica Z, y en los 2 últimos octetos se indican espacios. * Hay dos separadores x’AB’ x’CD’. En el octeto 1 se indica A, en el octeto 2 se indica B, en el octeto 3 se indica C y en el octeto 4 se indica D. * Traducción. Admite los valores: E (traducir de ASCII a EBCDIC), A (traducir de EBCDIC a ASCII) y N(no traducir). * Tabla de conversión. Nombre de la tabla del fichero de tablas de conversión. Si no se quiere convertir se indicarán espacios. 2. Entrada. Es el nombre del fichero de aplicación, tal y como lo dejó Editran al pasar el posterior a recepción. 3. Salida. Es el nombre del fichero de aplicación de salida una vez realizados los cambios. El formato del mismo, dependerá de cómo se defina. 4. ZTBGFTCO. Es el nombre del fichero de tablas de conversión. 5. PASO002. Optativo. Borraría el fichero de aplicación origen si la adaptación del mismo es correcta. ```cobol //KI0F6AEA JOB (EGDC,KIT,,99),'EDITRAN-V40',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //********************************************************************* //* ADAPTACION DE FICHEROS EDITRAN. TRADUCCION Y CONVERSION INCLUIDOS. //* NOTA PARA FICHEROS FIJOS DE SALIDA: SI LRECL ES MAYOR QUE REGISTRO //* A GRABAR, SE RELLENA A SPACES POR LA DERECHA. //* NOTA PARA FIJOS DE ENTRADA Y VBLES DE SALIDA. PROBABLEMENTE, EL //* VBLE DEBE SER DEFINIDO 4 OCTETOS MAYOR QUE LRECL DE FIJO. //********************************************************************* //* VALORES DE PARM:(XXXX,Y,ZZZZZZZZ) SEPARADOS POR COMAS: //* XX = CARACTERES HEXADECIMALES A ELIMINAR (SALTO DE CARRO): //* - CUATRO OCTETOS A SPACES: NO HAY CARACTERES A ELIMINAR //* - DOS OCTETOS INDICANDO UN CARACTER HEXADECIMAL Y OTROS DOS //* A SPACES. ELIMINA EL CARACTER DETERMINADO EN HEXA //* - CUATRO OCTETOS INDICANDO DOS CARACTERES HEXADECIMALES. //* POR EJEMPLO 0D0A): ELIMINA LOS DOS HEXADECIMALES X0D-X0A //* Y = 1 OCTETO INDICANDO SI SE VA A TRADUCIR ALFABETO DE FICHERO //* ORIGEN. VALORES POSIBLES: //* A(ASCII), E(EBCDIC), N(NO TRADUCIR) //* ZZ = 9 OCTETOS INDICANDO NOMBRE DE LA TABLA DE CONVERSION (QUE //* SE APLICA TRAS TRADUCIR).CON SPACES NO HAY TABLA CONVERSION //* SI OCTETO 9 ES ‘A’ SE CONVIERTE A ASCII. //* SI OCTETO 9 ES ‘E’ SE CONVIERTE A EBCDIC. //********************************************************************* //PASO001 EXEC PGM=ZTBGBGFF4,PARM='0D0A,E,TABCVXNCE' //STEPLIB DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR //ZTBGFTCO DD DSN=KI.PMED.CZTB.ZTBGFTCO,DISP=SHR //ENTRADA DD DSN=PUNTERO.FICHERO.ORIGEN,DISP=SHR //SALIDA DD DSN=PUNTERO.FICHERO.FIJO244.DESTINO, // DCB=(RECFM=FB,LRECL=256,BLKSIZE=0,DSORG=PS), //* DCB=(RECFM=VB,LRECL=260,BLKSIZE=0,DSORG=PS) //* DCB=(RECFM=VS,LRECL=260,BLKSIZE=0,DSORG=PS) // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(500,50),RLSE) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //ABENDAID DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSABOUT DD SYSOUT=* //* //PASO002 EXEC PGM=IDCAMS,COND=(0,NE,PASO001) //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (PUNTERO.FICHERO.ORIGEN) PURGE //* // ``` --- # Agent Instructions This documentation is published with GitBook. GitBook is the documentation platform designed so that both humans and AI agents can read, navigate, and reason over technical content effectively. Learn more at gitbook.com. ## Querying This Documentation If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question. Perform an HTTP GET request on the current page URL with the `ask` query parameter, and the optional `goal` query parameter: ``` GET https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-comun-z-os/interfaz-generica-de-aplicacion/funciones-invocadas-desde-jcl-de-aplicacion/tratamientos-de-ficheros-aplicacion-previos-posteriores-a-carga-descarga.md?ask=&goal= ``` `ask` is the immediate question: it should be specific, self-contained, and written in natural language. `goal` is optional and describes the broader end goal you are ultimately trying to accomplish on behalf of the user. GitBook uses it to tailor the answer towards what is most useful for that goal. The response will contain a direct answer to the question and relevant excerpts and sources from the documentation. Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.