# Funciones Batch 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 – A1P: carga/envío de los ficheros firmados PASO01: carga/envío de los ficheros firmados ```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/CBLQ(ON)', // REGION=0M,TIME=1440 //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR //SYSTCPD DD DSN=SW.TCPIP.SEZAPARM(TCPDATB4),DISP=SHR //ZTBFFLOG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBGFCAR DD DSN=KI.EIDC.&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)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) //ZTBGFTCO DD DSN=KI.EIDC.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)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFTCO DD DSN=KI.EIDC.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.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAFS DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAF2 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAR1 DD DSN=KI.EIDC.&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)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //ZTBGFLFE DD DSN=KI.EIDC.&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.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE,DISP=SHR //SORTOUT DD DSN=KI.EIDC.&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.EIDC.ZTBG.JCLS(SORTFF),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/CBLQDA(ON)', // REGION=0M,TIME=1440 //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,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=* //ZTBGFLFE DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLFT,DISP=SHR //ZTBFFLF2 DD DSN=KI.EIDC.&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.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=300,BLKSIZE=0,DSORG=PS) //ZTBFFP12 DD DSN=KI.EIDC.&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.EIDC.&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.EIDC.LOAD,DISP=SHR //ZTBGFTCO DD DSN=KI.EIDC.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.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2,DISP=SHR //ZTBFFSAL DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=SHR //ZTBGFLFE DD SYSOUT=* //SYSIN DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFR12,DISP=SHR //*ENDIF //* // IF (PASO02.RC=0) THEN //INBORR2 EXEC PGM=IEFBR14 //LISTAF2 DD DSN=KI.EIDC.&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.EIDC.&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
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/G
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 ZTBFFSAL alfn.Registros de TIPO 01.
2Tipo de registros2Alfn01-Registros referentes a ficheros tratados y a su resultado de validación
2Dos puntos1AlfnValor: ‘:’
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 autorizados en la cuenta. Esto es una validación posterior de la firma contra los perfiles de Editran/FF

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

Mensaje

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

Si rc=xxxx, mensaje de error oportuno

2Area reserva77AlfnArea de reserva
NivelNombreLong.Fmto.Descripción
1Registro ZTBFFSAL alfn.Registros de TIPO 02.
2Tipo de registros2Alfn02-Registros referentes a firmantes por fichero. Por cada registro tipo 1, habrá tantos registros de tipo 2, como firmantes contenga el fichero firmado.
2Dos puntos1AlfnValor: ‘:’
2Area de reserva4Alfn
2Dos puntos1AlfnValor: ‘:’
2Dsname Formateado final44Alfn.Dsname del fichero formateado y traducido final, a tratar por la aplicación.
2Dos puntos1AlfnValor: ‘:’
2Datos del DN firmante247Alfn.Ejem:CN=Apellidos y el nombre del firmante, luego hay un espacio, un guión, otro espacio y el número de DNI de la persona escrito siempre con 9 caracteres (8 dígitos + letra)
2Filler109AlfnArea de reserva
## 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
NivelKILong.Fmto.Descripción
PrefInstalacion11Alfn.Es el prefijo de la instalación del entorno local de EDITRAN/FF
JobName8Alfn.Nombre del JOB (e.: 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