Instalación

Se relacionan en estas especificaciones los elementos que requieren generación en el IMS del sistema de Gestión de Alarmas de Editran/E versión 5.3, y los pasos a seguir para su instalación. Los nombres de los elementos están normalizados y empiezan todos por ZTBE.

Definiciones DL/I

Contiene las definiciones de las PSBs DBDs y CLUSTERs.

Estos miembros son

DBDs

ZTBEDPED	ZTBEDPEI	ZTBEDALD	ZTBEDALI

CLUSTERs

ZTBEFPED	ZTBEFPEI	ZTBEFALD	ZTBEFALI

PSBs

PSBs para carga inicial

ZTBEBCAL	ZTBEBCPE

PSBs Batch

ZTBEEMCO

PSBs de programas

ZTBEOA00

Monitorización de líneas locales

ZTBEJMCO	ZTBEJSCO

Procedimientos

ZTBEPSEN

Fichero de parámetros de ejecución BMP (DFSRRC00).

ZTBGF032

Pasos a seguir en la instalación

Obtención de las librerías

Se obtendrán, normalmente, ficheros formato IEBCOPY que la aplicación volcará en las librerías correspondientes.

Compilación MFSs

Se ensamblarán los formatos adaptándolos a los dispositivos (DEV) de la instalación.

Generación de IMS y DL/I

Se generarán, en IMS, las transacciones, programas y bases como se indica a continuación. Se construirán las PSBs, DBDs y ACBs, así como la alocación dinámica de las bases de datos. Con el resultado de la generación de BDs se prepararán los fuentes de los CLUSTERs para el paso siguiente.

Definiciones IMS

Base de datos

• Base de datos de Perfiles ZTBEDPED (HIDAM)

DATABASE DBD=ZTBEDPED
DATABASE DBD=ZTBEDPEI

• Base de datos de log de Alarmas ZTBEDALD (HIDAM)

DATABASE DBD=ZTBEDALD
DATABASE DBD=ZTBEDALI

Transacciones y programas

• ZTBL. Transacción de Gestión de Alarmas.

   APPLCTN  PSB=ZTBEOA00                                               
     TRANSACT  CODE=(ZTBL),                                            *
               PRTY=(7,10,3),                                          *
               MSGTYPE=(SNGLSEG,RESPONSE,20),                          *
               MODE=SNGL                                               

• BMP del Control de Alarmas.

APPLCTN  PSB=ZTBEEA00,PGMTYPE=(BATCH)

• ZTBM. Transacción de Monitorización.

   APPLCTN  PSB=ZTBEEMCO,PGMTYPE=(BATCH)                               
     TRANSACT  CODE=(ZTBM),                                            *
               MSGTYPE=(SNGLSEG,NONRESPONSE)                      

• La transacción debe estar autorizada a dar el comando IMS /START REGION.

• BMP de Monitorización de líneas de comunicación locales.

APPLCTN  PSB=ZTBEEMCO,PGMTYPE=(BATCH)

Inicialización de Bases de Datos y Ficheros

Se inicializarán las bases que a continuación se indican con el jcl correspondiente, debidamente adaptado a la instalación.

ZTBEDPED		ZTBEJCPE
ZTBEDALD		ZTBEJCAL

Modificación de Perfiles y Procedimientos Onesait Editran

Desde el menú del Administrador de Perfiles, se modificará el Entorno Local, opción 1.1, para dar de alta la transacción de Gestión de Alarmas. Esto arrastrará la modificación a todas las sesiones. Se dará de alta, en la segunda pantalla, la transacción ZTBL en el campo ADM. ALARMAS, la transacción ZTBM en el campo transacción de MONITORIZACION DE RED y en el campo de procedimiento el JCL ZTBEJMCO

Modificación de Procedimientos Onesait Editran /G

Como la activación de la alarma se produce dentro de los procesos previos y posteriores a la emisión y a la recepción, así como en el proceso que se lanza por la interrupción de la transmisión, es necesario modificar los procedimientos de Editran del 1 al 5.

Se añadirá en los paso A1P, A2P, A3P, A4P y A7I, de cada uno de los procedimientos, la ficha “ SYSTCPD DD DSN=TCPIP.SEZAINST(TCPDATB2),DISP=SHR “, en el caso de que se utilicen los tipos de aviso de “server” externos (e-mail y SMS) y se deban resolver DNS.

A continuación, se muestra como ejemplo el procedimiento ZTBGP2

//      PROC ORIGEN=,FUNCION=,L0=,                                    
//           L1=,L2=,R1=,R2=,AP=                                      
//*********************************************************************
//* INDRA                                                             *
//*********************************************************************
//*   PROCEDIMIENTO PREVIO A LA RECEPCION  EDITRAN/G                  *
//*********************************************************************
//*  DATOS:                                                           *
//*      ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE  *
//*                                                                   *
//*      FUNCION (06=INICIALIZACION DE RECEPCION,                     *
//*               08=PETICION RECEPCION DE PRESENTACION )---> 2 BYTE  *
//*                                                                   *
//*      SESION-PRESENTACION  :                                       *
//*        CODIGO LOCAL L1  --------------------------------> 6 BYTES *
//*                     L2  --------------------------------> 3 BYTES *
//*        REMOTO       R1  --------------------------------> 6 BYTES *
//*                     R2  --------------------------------> 3 BYTES *
//*        APLICACION   AP  --------------------------------> 6 BYTES *
//*                                                                   *
//*      ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES)                 *
//*                     L0  --------------------------------> 3 BYTES *
//*      APLICACION DE PRESENTACION (PARA USOS PARTICULARES)          *
//*                     PR  --------------------------------> 6 BYTES 
//*********************************************************************
//A2P      EXEC PGM=ZTBGB120,REGION=8M,                               
//          PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP'                     
//STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR                             
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//*ZTBGFEST DD DSN=KI.EGDI.ZTBG.ESTADOS,DISP=SHR                      
//ZTBGFPER DD DSN=KI.EGDI.ZTBG.PERFILES,DISP=SHR                      
//ZTBGFLOG DD DSN=KI.EGDI.ZTBG.LOG,DISP=SHR                           
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                      
//ZTBGFESD DD DSN=KI.EGDI.ZTBGFESD,DISP=SHR                           
//ZTBGFESI DD DSN=KI.EGDI.ZTBGFESI,DISP=SHR                           
//ZTBGFLIS DD SYSOUT=*                                                
//ZTBGFMSJ DD SYSOUT=*                                                
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                      
//CEEDUMP  DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSTCPD  DD DSN=TCPIP.SEZAINST(TCPDATB2),DISP=SHR                    
//      SET LOCAL0=&L0                                                 
//      SET PRESEN=&PR