Migración desde Onesait · Editran 5.1 fase 3 a Onesait · Editran 5.2 fase xx

⚠️Es necesario haber realizado una migración a V5R1 fase 3 (ver capítulos anteriores).

En esta versión se cambia la copy común ZTBGCCOM. La nueva copy está actualizada en el Manual Interfaz Genérica de Aplicación, en el ejemplo de programa de usuario ZTBGBU30. Esto afecta, si los tuviera, a los programas de usuario.

👉 En esta versión se aumenta la longitud para el nombre del fichero de aplicación y se modifica el formato de la lista de ficheros ZTBGFCAR. Esto afecta a las aplicaciones, el formato del fichero pasa de ser:

2	Fichero	44	Alfn.	Si tipo L: Nombre de la lista de ficheros que contiene los ficheros a grabar en la cola. Si tipo F: Nombre del fichero MVS a grabar en cola. Fichero hasta 44 posiciones.
	Filler	1
2	Formato carga	1	Alfn.	Formato (R)egistro-(M)odificado. Si espacios, asume R
	Filler	1
2	Lenguaje	1	Alfn.	Lenguaje original (E)bcdic, (A)scii, (B)inario. Si espacios, asume parámetro de perfil sesión presentación
	Filler	1
2	Traducir	1	Alfn.	Traducir en Emisión (E)bcdic, (A)scii, (N)inguno. Si espacios, asume parámetro de perfil sesión presentación
	Filler	1
2	Compresión	1	Alfn.	Compresión F/N. Si espacios, asume parámetro de perfil sesión presentación
	Filler	28

a ser:

2	Formato carga	1	Alfn.	Formato (R)egistro-(M)odificado. Si espacios, asume R
2	Lenguaje	1	Alfn.	Lenguaje original (E)bcdic, (A)scii, (B)inario. Si espacios, asume parámetro de perfil sesión presentación
2	Traducir	1	Alfn.	Traducir en Emisión (E)bcdic, (A)scii, (N)inguno. Si espacios, asume parámetro de perfil sesión presentación
2	Compresión	1	Alfn.	Compresión F/N. Si espacios, asume parámetro de perfil sesión presentación
	Filler	1
2	Fichero	74	Alfn.	Si tipo L: Nombre de la lista de ficheros que contiene los ficheros a grabar en la cola. Si tipo F: Nombre del fichero MVS a grabar en cola. Fichero hasta 44 posiciones.
	Filler	1

Las aplicaciones tendrán que escribir el nombre del fichero en la posición 6 del registro de ZTBGFCAR.

Los distintos programas que intervienen son los siguientes:

Proceso de adaptación de estados Onesait · Editran /G

Se ejecutará el JCL de migración ZTBGJMES

Este JCL adaptará el fichero de Estados de editran/G.

//KI1056EA JOB (EGDI,KIT,,99),ZTBGJBES,MSGCLASS=H,CLASS=A,             
//             MSGLEVEL=1,NOTIFY=&SYSUID                               
//*--------------------------------------------------------------------
//* ADAPTACION FICHERO ESTADOS 5.0/1 A ESTADOS 5.2                     
//*                                                                    
//* EFECTUAR PRIMERO BACKUP DE FICHERO DE ESTADOS (ZTBGJUES)           
//* MIGRAR FICHERO                                (ZTBGJMES)           
//* COMPROBAR EN IGA FICHERO CORRECTO                                  
//*  SI FICHERO INCORRECTO RESTAURAR ESTADOS      (ZTBGJRES)           
//*--------------------------------------------------------------------
//ZTBGBMES EXEC PGM=ZTBGBMES                                           
//STEPLIB  DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR                            
//ZTBGFE51 DD DSN=KI.EIDC.ZTBG.ZTBGFEST,DISP=SHR                       
//ZTBGFE52 DD DSN=KI.EIDC.ZTBG.ZTBGFE52,DISP=SHR                       
//SYSOUT    DD SYSOUT=*                                                               

⚠️ Es obligatorio ejecutar este proceso.

El fichero de Estados de 5.2 no podrá funcionar con editran 5.0 / 5.1 por lo que en caso de querer revertir el cambio habrá que recurrir a un back-up previo.

Proceso de adaptación del fichero de Gestión de claves Onesait · Editran /GC

Sólo se realizarán en caso de tener contratada la licencia RSA.

Se ejecutará el JCL de migración ZTBPJAGC

Este JCL adaptará el fichero de gestión de claves de editran/GC.

//KI10628F JOB (SNIM,KIT,,99),ZTBPJAGC,MSGCLASS=H,CLASS=A,   
//             MSGLEVEL=1,NOTIFY=&SYSUID                     
//*-----------------------------------------------------------
//*                 GESTION DE CLAVES                        
//*            ADAPTACION DE LOS PERFILES A 5.2              
//*-----------------------------------------------------------
//ZTBPMAGC EXEC PGM=ZTBPBAGC                                 
//STEPLIB  DD   DSN=KI.EGTC.ZTBP.LOAD31,DISP=SHR             
//         DD   DSN=KI.EITC.ZTBG.LOAD,DISP=SHR               
//ZTBPFGC  DD   DSN=KI.EGTC.ZTBP.ZTBPFGC,DISP=SHR            
//SYSOUT   DD   SYSOUT=*                                      

⚠️Es obligatorio ejecutar este proceso.

El fichero de Gestión de claves de 5.2 no podrá funcionar con editran 5.0 / 5.1 por lo que en caso de querer revertir el cambio habrá que recurrir a un back-up previo.

Proceso de migración de claves RSA de Onesait · Editran /GC

Sólo se realizarán en caso de tener contratada la licencia RSA.

Se ejecutará el JCL ZTBPJKGC

Este primer paso obtendrá los ficheros con las etiquetas de las claves RSA, locales y remotas, que no estén canceladas en editran/GC.

Se elegirán las claves a migrar según la ficha SYSIN explicada en el JCL.

//KI10628F JOB (SNIM,KIT,,99),ZTBPJKGC,MSGCLASS=H,CLASS=A,            
//             MSGLEVEL=1,NOTIFY=&SYSUID                              
//*********************************************************************
//******************************************************************* 
//*-----------------------------------------------------------        
//*                 GESTION DE CLAVES                                 
//*       CREACION DE LOS FICHEROS PARA LA MIGRACION                  
//*       DE CLAVES RSA DESDE CRIPTOLIB A ICSF                        
//*  SYSIN: 1-2-333333333-444444444                                   
//*      1 - TIPO DE CLAVE: LOCAL (L), REMOTA (R) O AMBAS(X)          
//*      2 - SUBSISTEMA DE CLAVES (EN BLANCO PARA SELECCION GENERICA) 
//*      3 - CODIGO LOCAL (CEROS PARA SELECCION GENERICA)             
//*      4 - CODIGO REMOTO (CEROS PARA SELECCION GENERICA)            
//*-----------------------------------------------------------        
//******************************************************************* 
//******************************************************************* 
//ZTBPBKGC EXEC PGM=ZTBPBKGC                                           
//STEPLIB  DD   DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR                      
//         DD   DSN=KI.EITC.ZTBG.LOAD,DISP=SHR                        
//ZTBPFGC  DD   DSN=KI.EGTC.ZTBP.ZTBPFGC,DISP=SHR                     
//ZTBSFLPR  DD DSN=KI.EGTC.RSACIC.LABLOCAL,                           
//             DISP=(NEW,CATLG),                                      
//             DCB=(RECFM=FB,LRECL=129,BLKSIZE=0,DSORG=PS),           
//             SPACE=(TRK,(10,1),RLSE)                                
//ZTBSFLPU  DD DSN=KI.EGTC.RSACIC.LABAJENA,                           
//             DISP=(NEW,CATLG),                                      
//             DCB=(RECFM=FB,LRECL=64,BLKSIZE=0,DSORG=PS),            
//             SPACE=(TRK,(10,1),RLSE)                                 
//SYSOUT    DD SYSOUT=*                                               
//SYSIN     DD *                                                      
X- -000000000-000000000                                                
/*                                                        
//SORTEDI  EXEC PGM=SORT                                 
//SYSOUT   DD SYSOUT=*                                   
//SORTIN   DD DSN=KI.EGDC.RSACIC.LABLOCAL.DUP,           
//            DISP=(OLD)                                  
//SORTOUT  DD DSN=KI.EGDC.RSACIC.LABLOCAL,               
//            DISP=(NEW,CATLG),                          
//            DCB=(RECFM=FB,LRECL=129,BLKSIZE=0,DSORG=PS),
//            SPACE=(TRK,(10,1),RLSE)                     
//SYSIN  DD *                                            
  SORT FIELDS=(1,64,A),FORMAT=BI,NOEQUALS                
  SUM FIELDS=NONE                                        
/*                                                     

Se ejecutarán los JCL ZTBSJMPR y ZTBSJMPU

Estos JCL incorporarán en el fichero de claves públicas PKDS, del servicio criptográfico ICSF, las claves seleccionadas en el paso previo y que se encuentran en el fichero de claves de la CRIPTOlib/RSA, FICHKRSA.

ZTBSJMPR (claves locales)

//KI1056ER JOB (GCDA,KIT,,99),'MIGRA CLAVE RSA',MSGCLASS=H,CLASS=A,    
//        NOTIFY=&SYSUID                                               
//*********************************************************************
//* - MIGRACION DE CLAVES RSA DESDE CRIPTOLIB A ICSF                  *
//*********************************************************************
//PASO1 EXEC PGM=ZTBSBMPR,REGION=0M                                    
//STEPLIB   DD DSN=KI.EITC.ZTBG.LOAD,DISP=SHR                          
//          DD DSN=KI.GCTA.SCDES.LOAD,DISP=SHR                         
//FICHKDES  DD DISP=SHR,DSN=KI.GCTA.CIFRADO.FICHKDES                   
//FICHKRSA  DD DISP=SHR,DSN=KI.GCTA.CIFRADO.FICHKRSA                   
//ZTBSFLPR  DD DISP=SHR,DSN=KI.EGTC.RSACIC.LABLOCAL
//SYSOUT    DD SYSOUT=* 
//SYSPRINT  DD SYSOUT=*                                                           

ZTBSJMPU (claves remotas)

//KI1056ER JOB (GCDA,KIT,,99),'MIGRA PUBLICA RSA',MSGCLASS=H,CLASS=A,  
//        NOTIFY=&SYSUID                                               
//*********************************************************************
//* - MIGRACION DE CLAVES RSA DESDE CRIPTOLIB A ICSF  (PUBLICA)       *
//*********************************************************************
//PASO1 EXEC PGM=ZTBSBMPU,REGION=0M                                    
//STEPLIB   DD DSN=KI.EITC.ZTBG.LOAD,DISP=SHR                          
//          DD DSN=KI.GCTA.SCDES.LOAD,DISP=SHR                         
//FICHKDES  DD DISP=SHR,DSN=KI.GCTA.CIFRADO.FICHKDES                   
//FICHKRSA  DD DISP=SHR,DSN=KI.GCTA.CIFRADO.FICHKRSA                   
//ZTBSFLPU  DD DISP=SHR,DSN=KI.EGTC.RSACIC.LABAJENA                    
//SYSOUT    DD SYSOUT=*                                                
//SYSPRINT  DD SYSOUT=*    

ℹ️ El fichero de claves de la CRIPTOlib/DES, FICHKDES, no será necesario en el caso de tener la criptografía DES sobre ICSF.

Proceso de migración de claves DES desde el fichero de claves de CRIPTOlib/DES a ICSF

Para ello primero habría que seleccionar del fichero de claves DES FICHKDES las 2 labeles que están en el entorno local de Editran/P:

 CAMPOS CIFRADO:                                                      
 LABEL LOCAL.....: LEDITEST            LABEL REMOTO....: REDITEST    

Y después todas las claves DES intercambiadas con los remotos de forma externa a Editran.

Para migrar la CRIPTOlib/DES los clientes Host tendrán que migrar las claves DES que están en el fichero FICHKDES con el programa ZTBMBDES, que lee las etiquetas de las claves a migrar de un fichero secuencial de LRECL 66, ZTBMFDES, con la siguiente estructura de registro:

REGISTRO DEL FICHERO ZTBMFDES
Byte 1	L/R	L – Clave local (Exporter) R – Clave Remota (Importer)
Byte 2		‘-‘
Bytes 3-66		Nombre de la etiqueta de la clave a migrar (label de 64 bytes)

Este fichero incluirá las etiquetas de las sesiones de presentación que tienen criptografía 3.0 con autenticación DES, así como las del entorno de EDITRAN/P para recuperar las claves de la criptografía 2.2:

BROWSE    KI.EIDA.LABELES.FICHKDES                 Line 0000000000 Col 001 080
Command ===>                                                  Scroll ===> CSR 
******************************** Top of Data **********************************
/NXSNCEE.EXPORTER.LI999901                                                     
/NXSNCEE.IMPORTER.R4999901                                                    
******************************* Bottom of Data ********************************

Ejemplo de fichero entrada ZTBMFDES:

 EDIT       KI.EIDA.LABELES.ZTBMFDES                        Columns 00001 00066
Command ===>                                                  Scroll ===> CSR 
****** ***************************** Top of Data ******************************
000001 L-NXSNCEE.EXPORTER.LI999901                                            
000002 R-NXSNCEE.IMPORTER.R4999901                                            
000003 L-LEDITEST                                            
000004 R-REDITEST                                            
******************************* Bottom of Data ********************************

La migración se realizará con el JCL ZTBMJDES.