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

//      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

//      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:

RDO	Comentario
01	Verificación de firma con errores, se debe revisar el fichero ZTBFFSAL
06	No se requiere realizar el proceso de adaptación de ficheros
08	Error en verificación de firma: DOCUMENTO MODIFICADO
13	Error al abrir un fichero en MVS
14	Error al cerrar un fichero en MVS
15	Error al leer un fichero en MVS
16	Error al escribir en un fichero en MVS
17	Error al rescribir en un fichero en MVS
18	Error al borrar el fichero
19	Error al alocar un fichero
20	Error al desalocar un fichero
21	Parámetros de entrada incorrectos
23	No hay ningún fichero de aplicación catalogado.
24	Número de ficheros de aplicación excede del máximo permitido
25	Fichero de aplicación no catalogado.
26	No existe registro de entorno en EDITRAN/FF
27	No existe aplicación en EDITRAN/FF
28	No 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)
38	La aplicación de envío de ficheros firmados no tiene asociado ningún usuario que pueda firmar
39	Lista de ficheros de entrada vacía.
42	Error de catalogación
43	No existen usuarios locales que puedan firmar los envíos
45	Error en el proceso servidor al generar la firma
46	Error en el proceso servidor al validar la firma
47	Error al validar la firma
48	No se han encontrado todos los signatarios requeridos
49	No se han implementado reglas de validación de firmantes
51	Con tipo de firma ‘D’, no encuentra el fichero de Datos
52	Con tipo de firma ‘D’, no encuentra el fichero de Firma
53	No se puede realizar contrafirma en modo PKCS#7
55	Parámetro delimitadores erróneo en aplicación EDITRAN/FF
56	Error delimitadores de registro no coinciden
58	Errores en la configuración del perfil de aplicación EDITRAN/FF
61	No existe usuario local para realizar la contrafirma
65	El 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:

Nivel	Nombre	Long.	Fmto.	Descripción
1	Registro ZTBFFSAL		alfn.	Registros de TIPO 01.
2	Tipo de registros	2	Alfn	01-Registros referentes a ficheros tratados y a su resultado de validación
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Código de retorno	4	Num	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
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Dsname Formateado final	44	Alfn.	Dsname del fichero formateado y traducido final, a tratar por la aplicación.
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Dsname descargado ASCII	44	Alfn.	Dsname del fichero ASCII, extraído del XML y con las firmas también extraídas.
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Dsname descargado por Editran	44	Alfn.	Dsname del fichero descargado por Editran, cuyo contenido es el XML que se ha tratado.
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Mensaje de error	80	Alfn	Mensaje Si rc=0000, Proceso de firma correcto (sin mensaje) Si rc=xxxx, mensaje de error oportuno
2	Area reserva	77	Alfn	Area de reserva

Nivel	Nombre	Long.	Fmto.	Descripción
1	Registro ZTBFFSAL		alfn.	Registros de TIPO 02.
2	Tipo de registros	2	Alfn	02-Registros referentes a firmantes por fichero. Por cada registro tipo 1, habrá tantos registros de tipo 2, como firmantes contenga el fichero firmado.
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Area de reserva	4	Alfn
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Dsname Formateado final	44	Alfn.	Dsname del fichero formateado y traducido final, a tratar por la aplicación.
2	Dos puntos	1	Alfn	Valor: ‘:’
2	Datos del DN firmante	247	Alfn.	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)
2	Filler	109	Alfn	Area 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

Nivel	KI	Long.	Fmto.	Descripción
	PrefInstalacion	11	Alfn.	Es el prefijo de la instalación del entorno local de EDITRAN/FF
	JobName	8	Alfn.	Nombre del JOB (e.: KIEDRCT7)
	JobId	8	Alfn.	Id del JOB que se lanza (ej. JOB03039)
	BRx	3	Alfn.	La x puede tomar tres valores diferentes 1, 2 o 3 dependiendo del modo de firma: 1. Attached 2.Detached 3.Concatenado