> 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-ims/firma-electronica/funciones-batch-de-onesait-editran-ff.md). # Funciones batch de Onesait Editran/FF Editran/FF realiza las operaciones de firma y verificación a través de procedimientos batch que usualmente se asocian al procedimiento previo a emisión y posterior a recepción de Editran. ## Procedimientos de Onesait Editran/FF Los procedimientos que se suministran y que se pondrán en la sesión de presentación que requiera la firma de ficheros son: * **ZTBFP1 – Paso A1P: carga/envío de los ficheros firmados** > **Paso01: firma de ficheros** ```cobol // PROC ORIGEN=,FUNCION=,L0=L00, // L1=,L2=,R1=,R2=,AP=,PR=,LF=S,FV=F //*-------------------------------------------------------------------- //* INDRA * //*-------------------------------------------------------------------- //* PROCEDIMIENTO PREVIO A LA EMISION DE EDITRAN/FF * //*-------------------------------------------------------------------- //* EDITRAN/G //* DATOS: * //* ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ---> 1 BYTE * //* * //* FUNCION (01=CARGA DE EMISION DE PRESENTACION, * //* 03=EMISION DE PRESENTACION) ----> 2 BYTES * //* * //* SESION-PRESENTACION: * //* CODIGO LOCAL L1 -------------------------------> 6 BYTES * //* L2 -------------------------------> 3 BYTES * //* REMOTO R1 -------------------------------> 6 BYTES * //* R2 -------------------------------> 3 BYTES * //* APLICACION PR -------------------------------> 6 BYTES * //* * //* SESION-TRASMISION (EDITRAN/P): * //* APLICACION AP -------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* LISTA FICHEROS (S) OBLIGATORIA: //* LF --------------------------------> 1 BYTE * //* ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES) * //* L0 --------------------------------> 3 BYTES //* //* EDITRAN/FF //* FIRMA DE DATOS (F=FIRMA FICHEROS, V=VERIFICA FIRMA) //* FV --------------------------------> 1 BYTE //*-------------------------------------------------------------------- //* PASO01- PASO DE FIRMA DE FICHEROS). //* SI LEE LA SESION Y NO SE TRATA DE SESION FF, ACABA CON RC=01 //*-------------------------------------------------------------------- //*-------------------------------------------------------------------- //PASO01 EXEC PGM=ZTBFBEFF, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&FV&PR/CBLQ(ON)', // REGION=0M,TIME=1440 //*TEPLIB DD DSN=KI.EGDI.ZTBP.LOADE,DISP=SHR //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR //SYSTCPD DD DSN=SW.TCPIP.SEZAPARM(TCPDATB4),DISP=SHR //ZTBFF032 DD DSN=KI.EGDI.ZTBF.JCLS(ZTBFF032),DISP=SHR //ZTBFFLOG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBGFCAR DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBGFCAR,DISP=SHR //ZTBFFCAR DD DSN=&&ZTBFFCAR,DISP=(NEW,PASS,DELETE), // DCB=(RECFM=FB,LRECL=80), // SPACE=(TRK,(500,50),RLSE) //*-------------------------------------------------------------------- //* A1P. CARGA DE EDITRAN //*-------------------------------------------------------------------- //A1P EXEC PGM=ZTBGB110,COND=(0,NE),REGION=0M,TIME=1440, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP&LF/CBLQDA(ON)' //*TEPLIB DD DSN=KI.EGDI.ZTBP.LOADE,DISP=SHR //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR // DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //CEEDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //ZTBGFCAR DD DSN=&&ZTBFFCAR,DISP=(OLD,PASS,DELETE) //* // SET LOCAL0=&L0 ``` * **ZTBFP4 – Paso A4P: descarga de los ficheros recibidos** > Paso01: verificación de los ficheros firmados > > Paso02: adaptación del fichero de datos una vez separado de la firma ```cobol // PROC ORIGEN=,FUNCION=,L0=L00, // L1=,L2=,R1=,R2=,AP=,PR=,FV=V,LF= // SET LF=N //* //*-------------------------------------------------------------------- //* PROCEDIMIENTO POSTERIOR A LA RECEPCION DE EDITRAN/FF * //*-------------------------------------------------------------------- //* DATOS: * //* ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE * //* * //* FUNCION (07=DESCARGA DE RECEPCION DE PRESENTACION * //* 09=FIN DE RECEPCION DE PRESENTACION ) ----> 2 BYTES * //* * //* SESION-PRESENTACION : * //* CODIGO LOCAL L1 --------------------------------> 6 BYTES * //* L2 --------------------------------> 3 BYTES * //* REMOTO R1 --------------------------------> 6 BYTES * //* R2 --------------------------------> 3 BYTES * //* APLICACION PR --------------------------------> 6 BYTES * //* * //* SESION-TRANSMISION (EDITRAN/P): * //* APLICACION AP --------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES) * //* L0 --------------------------------> 3 BYTES * //* EDITRAN/FF //* FIRMA DE DATOS (F=FIRMA FICHEROS, V=VERIFICA FIRMA) //* FV --------------------------------> 1 BYTE //*-------------------------------------------------------------------- //A4P EXEC PGM=ZTBGB140,REGION=0M,TIME=1440, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)' //*TEPLIB DD DSN=KI.EGDI.ZTBP.LOADE,DISP=SHR //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR // DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) // SET LOCAL0=&L0 //*-------------------------------------------------------------------- //*PASO VALIDO PARA FF. BORRA LA LISTA DE SALIDA CON RESULTADO DE VERI- //*FICACION DE LA FIRMA //********************************************************************* //INBORR0 EXEC PGM=IEFBR14 //LISTAFL DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAFS DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAF2 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAR1 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //*-------------------------------------------------------------------- //* PASO PARA SACAR LISTA DE FICHEROS RECIBIDOS * //*-------------------------------------------------------------------- //ZTBGLFE EXEC PGM=ZTBGBLFE,REGION=4M,COND=(0,NE), // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)' //*TEPLIB DD DSN=KI.EGDI.ZTBP.LOADE,DISP=SHR //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR //ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //ZTBGFLFE DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(5,1),RLSE), // DCB=(RECFM=FB,LRECL=200,BLKSIZE=0,DSORG=PS) //*-------------------------------------------------------------------- //PASSORT EXEC PGM=SORT,COND=(0,NE) //SORTIN DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBGFLFE,DISP=SHR //SORTOUT DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLFT, // DISP=(NEW,PASS,DELETE), // DCB=(RECFM=FB,LRECL=200,BLKSIZE=0), // SPACE=(TRK,(1,1),RLSE) //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSIN DD DSN=KI.EGDI.ZTBF.JCLS(ZTBFFSOR),DISP=SHR //*-------------------------------------------------------------------- //* PASO01- PASO DE VERIF.FIRMA //* SI LEE LA SESION Y NO SE TRATA DE SESION FF, ACABA CON RC=01 //*-------------------------------------------------------------------- //PASO01 EXEC PGM=ZTBFBEFF,COND=(0,NE), // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&FV&PR/CBLQDA(ON)', // REGION=0M,TIME=1440 //*TEPLIB DD DSN=KI.EGDI.ZTBP.LOADE,DISP=SHR //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR //ZTBFF032 DD DSN=KI.EGDI.ZTBF.JCLS(ZTBFF032),DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBFFLOG DD SYSOUT=* //SYSTCPD DD DSN=SW.TCPIP.SEZAPARM(TCPDATAB),DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=*,OUTLIM=999999 //CEEDUMP DD SYSOUT=* //*ZTBFFTMP DD DSN=KI.EGDI.ZTBFFTMP,DISP=SHR //ZTBGFLFE DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLFT,DISP=SHR //ZTBFFLF2 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=300,BLKSIZE=0,DSORG=PS) //ZTBFFSAL DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=VB,LRECL=1081,BLKSIZE=0,DSORG=PS) //ZTBFFP12 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=80), // SPACE=(TRK,(1,1),RLSE) //* //*-------------------------------------------------------------------- //* PASO02- PASO DE FORMATEADO DE FICHERO //*-------------------------------------------------------------------- //* IF (PASO01.RC<2) THEN //* INBORR1 EXEC PGM=IEFBR14 //* LISTAFF DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, //* DISP=(OLD,DELETE,DELETE) //* ENDIF //PASO02 EXEC PGM=ZTBFBR12,PARM='/CBLQDA(ON)', // REGION=0M,TIME=1440,COND=(0,NE) //STEPLIB DD DSN=IMSP.SDFSRESL,DISP=SHR // DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR //IMSACB DD DSN=KI.EGDI.ACBLIB,DISP=SHR //DFSVSAMP DD DSN=IMSP.PROCLIB(DFSVSAMP),DISP=SHR //ZTBFF032 DD DSN=KI.EGDI.ZTBF.JCLS(ZTBFF032),DISP=SHR //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBFFLOG DD SYSOUT=* //SYSOUT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBFFLF2 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLF2,DISP=SHR //ZTBFFSAL DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=SHR //ZTBGFLFE DD SYSOUT=* //SYSIN DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFR12,DISP=SHR //*ENDIF //* // IF (PASO02.RC=0) THEN //INBORR2 EXEC PGM=IEFBR14 //LISTAF2 DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(OLD,DELETE,DELETE) // ENDIF //* // IF (PASO02.RC=0) THEN //INBORR3 EXEC PGM=IEFBR14 //LISTAFS DD DSN=KI.EGDI.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(OLD,DELETE,DELETE) // ENDIF ``` Los resultados más significativos con los que pueden finalizar los procesos de tratamiento de firma son:
RDOComentario
01Verificación de firma con errores, se debe revisar el fichero ZTBFFSAL
06No se requiere realizar el proceso de adaptación de ficheros
08Error en verificación de firma: DOCUMENTO MODIFICADO
13Error al abrir un fichero en MVS
14Error al cerrar un fichero en MVS
15Error al leer un fichero en MVS
16Error al escribir en un fichero en MVS
17Error al rescribir en un fichero en MVS
18Error al borrar el fichero
19Error al alocar un fichero
20Error al desalocar un fichero
21Parámetros de entrada incorrectos
22Error al acceder a la B.D.
23No hay ningún fichero de aplicación catalogado.
24Número de ficheros de aplicación excede del máximo permitido
25Fichero de aplicación no catalogado.
26No existe registro de entorno en EDITRAN/FF
27No existe aplicación en EDITRAN/FF
28No existe sesión de presentación en EDITRAN
37

Error en el servicio de firma.

Posible error de comunicación (revise mensajes en SYSOUT)

38La aplicación de envío de ficheros firmados no tiene asociado ningún usuario que pueda firmar
39Lista de ficheros de entrada vacía.
42Error de catalogación
43No existen usuarios locales que puedan firmar los envíos
45Error en el proceso servidor al generar la firma
46Error en el proceso servidor al validar la firma
47Error al validar la firma
48No se han encontrado todos los signatarios requeridos
49No se han implementado reglas de validación de firmantes
51Con tipo de firma ‘D’, no encuentra el fichero de Datos
52Con tipo de firma ‘D’, no encuentra el fichero de Firma
53No se puede realizar contrafirma en modo PKCS#7
55Parámetro delimitadores erróneo en aplicación EDITRAN/FF
56Error delimitadores de registro no coinciden
58Errores en la configuración del perfil de aplicación EDITRAN/FF
61No existe usuario local para realizar la contrafirma
65El fichero de aplicación existe y no está permitido borrarlo
## Fichero de salida a la aplicación Se crea fichero (ZTBFFSAL) FB de 300. Indicará como fue la verificación de firmas para cada fichero recibido, así como características de las firmas. Tiene 2 tipos de registros:
NivelNombreLong.Fmto.Descripción
1Registro ZTBFFSALAlfn.Registros de TIPO 01.
2Tipo de registros2Alfn.01-Registros referentes a ficheros tratados y a su resultado de validación
2Dos puntos1Alfn.Valor: ‘:’
2Código de retorno4Num

0000- Verificación de la firma correctamente

0012- Autoridad certificadora no válida

0013- Certificado(s) revocado(s). No implementado aún

0014- Certificado(s) caducado(2)

0015- Documento modificado

0016- Firmante(s) no autorizado(s) en la cuenta según los perfiles proporcionados en el administrador de Editran/FF

2Dos puntos1Alfn.Valor: ‘:’
2Dsname Formateado final44Alfn.Dsname del fichero formateado y traducido final, a tratar por la aplicación.
2Dos puntos1Alfn.Valor: ‘:’
2Dsname descargado ASCII44Alfn.Dsname del fichero ASCII, extraído del XML y con las firmas también extraídas.
2Dos puntos1Alfn.Valor: ‘:’
2Dsname descargado por Editran44Alfn.Dsname del fichero descargado por Editran, cuyo contenido es el XML que se ha tratado.
2Dos puntos1Alfn.Valor: ‘:’
2Mensaje de error80Alfn.

Mensaje

Si rc=0000, Proceso de firma correcto (sin mensaje)

Si rc=xxxx, mensaje de error oportuno

2Area reserva77Alfn.Area de reserva
NivelNombreLong.Fmto.Descripción
1Registro ZTBFFSALAlfn.Registros de TIPO 02.
2Tipo de registros2Alfn.02-Registros referentes a firmantes por fichero. Por cada registro tipo 1, habrá tantos registros de tipo 2, como firmantes contenga el fichero firmado.
2Dos puntos1Alfn.Valor: ‘:’
2Area de reserva4Alfn.
2Dos puntos1Alfn.Valor: ‘:’
2Dsname Formateado final44Alfn.Dsname del fichero formateado y traducido final, a tratar por la aplicación.
2Dos puntos1Alfn.Valor: ‘:’
2Datos del DN firmante247Alfn.
## Incorporación del DN Remoto Para facilitar la cumplimentación del DN de un certificado remoto, que actualmente se realiza a través de la pantalla, se ha creado un JCL que lo incorpora desde un fichero que lo contenga, ZTBFJCDN. ```cobol //KI88D46A JOB (EGDI,KIT,,99),'EDITRAN/FF ',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //LIBPROC JCLLIB ORDER=IMST.PROCLIB //********************************************************************* //* PGM QUE LANZA EL PGM ZTBFECDN - MODIFICACION DE DN PERFIL USUARIO * //********************************************************************* //********************************************************************* //* DATOS de entrada: //* fichero con el DN: ZTBFFCDN //* SYSIN: Remoto y Nombre de Usuario //********************************************************************* //ZTBFECDN EXEC IMSBATCH,MBR=ZTBFECDN,PSB=ZTBFEGPF,REGION=0M //STEPLIB DD DSN=KI.EGTI.LOAD,DISP=SHR //ZTBFFCDN DD DSN=KI.EIDA.DN,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //PRINTDD DD SYSOUT=* //SYSIN DD * 000099990UsRemoto //* ``` Los datos de entrada son: * SYSIN: Código Remoto y nombre del Usuario Remoto propietario del certificado * Fichero que contiene el DN: formato VB y longitud de registro 1028 (ZTBFFCDN). Este fichero es el que se proporcionará en el script obtén\_dn.sh para guardar el DN del certificado. ## Fichero de salida JSON Se crea fichero (ZTBFFJSN) VB de 396. Este fichero es el resultado de la recepción de una presentación. La información que contiene es referente a dicha recepción. Por tanto, vendrá informada la aplicación (sesión de presentación), el número de firmas obligatorias, los grupos y los usuarios. La nomenclatura del fichero es la siguiente: PrefInstalacion.JobName.JobId.BRx. ZTBFFJSN
NivelLong.Fmto.Descripción
PrefInstalacion11Alfn.Es el prefijo de la instalación del entorno local de EDITRAN/FF
JobName8Alfn.Nombre del JOB (ej. KIEDRCT7)
JobId8Alfn.Id del JOB que se lanza (ej. JOB03039)
BRx3Alfn.

La x puede tomar tres valores diferentes 1, 2 o 3 dependiendo del modo de firma:

1. Attached

2. Detached

3. Concatenado

--- # 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-ims/firma-electronica/funciones-batch-de-onesait-editran-ff.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.