Utilidades batch

En este apartado se describe la manera de obtener un fichero resumen de la Monitorización de las presentaciones, así como los listados de dicho fichero.

Obtención del fichero resumen de estadísticas (ZTBEJFLM)

El fichero resume de estadísticas contiene la información, almacenada en el histórico de Monitorización, de las sesiones finalizadas en el intervalo de tiempo requerido por el usuario. También puede efectuar selecciones por origen, remoto o aplicación (ver FSYSIN del jcl). Si en alguno estos campos se codifica ceros, la selección es genérica.

El intervalo deseado se especifica indicando, en el fichero de entrada del jcl que genera dicho fichero, los instantes inicial y final en formato aaaammdd-hhmmss.

El jcl “ZTBEJFLM” utilizado en la obtención del fichero se describe en el siguiente apartado.

La utilidad inmediata de dicho fichero es la obtención de un listado que refleja dichos datos y totaliza los mismos por entidad local, remota y aplicación.

El jcl utilizado para su obtención es el mismo con el que se genera el fichero resumen y se especifica a continuación:

//KI10671L JOB (EGTC,KIT,,99),ZTBEFMT,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//********************************************************************+
//** INDRA S.A.                                                09/1997
//**                                             EDITRAN/E-V3.0 - CICS
//**   CREACION Y LISTADO DEL FICHERO RESUMEN DE ESTADISTICAS ZTBEFMNR
//********************************************************************+
//**   DESCRIPCION DEL REGISTRO DE SELECCION DEL INTERVALO DE
//**   FINALIZACION DE LAS SESIONES DE PRESENTACION
//**     CONSTA DE LOS SIGUIENTES CAMPOS SEPARADOS POR GUIONES
//**      .- FECHA-INICIO
//**            FECHA DEL MARGEN INFERIOR DE LA SELECCION EN (AAAAMMDD)
//**      .- HORA-INICIO
//**            HORA DEL MARGEN INFERIOR DE LA SELECCION EN  (HHMMSS)
//**      .- FECHA-FIN
//**            FECHA DEL MARGEN SUPERIOR DE LA SELECCION EN (AAAAMMDD)
//**      .- HORA-FIN
//**            HORA DEL MARGEN SUPERIOR DE LA SELECCION EN  (HHMMSS)
//**
//*-------------------------------------------------------------------+
//* BORRADO DEL FICHERO RESUMEN DE ESTADISTICAS ZTBEFMR
//*-------------------------------------------------------------------+
//DELMONR  EXEC PGM=IDCAMS                                             
//SYSPRINT DD   SYSOUT=*                                               
//SYSIN    DD   *                                                      
     DELETE (KI.EITC.ZTBE.ZTBEFMR) PURGE NONVSAM                       
//*
//*-------------------------------------------------------------------+
//* OBTENCION DEL RESUMEN ESTADISTICO DEL INTERVALO ESPECIFICADO EN
//* EL FICHERO FSYSIN
//*-------------------------------------------------------------------+
//ZTBEB002 EXEC PGM=ZTBEB002,COND=(8,LT,DELMONR)
//STEPLIB  DD   DSN=KI.EITC.ZTBG.LOAD,DISP=SHR
//IGALIST  DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSDBOUT DD   SYSOUT=*
//ABENDAID DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//SYSABOUT DD   SYSOUT=*
//ZTBEFMR  DD   DSN=&&RESUMEN,DISP=(NEW,PASS,DELETE),
//       UNIT=SYSDA,SPACE=(TRK,(10,10),RLSE),
//       DCB=(RECFM=FB,LRECL=253,BLKSIZE=6072)
//ZTBEFMH  DD   DSN=KI.EGTC.ZTBE.ZTBEFMH,DISP=SHR                      
//ZTBGFPER DD   DSN=KI.EITC.ZTBG.ZTBGFPER,DISP=SHR
//FSYSIN   DD *
19971014-173810-19971014-193810-000000000-000000000-000000-
/*
//*-------------------------------------------------------------------+
//**   DELETE-DEFINE DEL FICHERO AUXILIAR DE TOTALES ZTBEFMTR KSDS
//*-------------------------------------------------------------------+
//DEFTOT   EXEC  PGM=IDCAMS,COND=(0,NE,ZTBEB002)
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSDBOUT DD   SYSOUT=*
//ABENDAID DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//SYSABOUT DD   SYSOUT=*
//SYSPRINT   DD  SYSOUT=*
//SYSIN      DD  *
     DELETE (KI.EITC.ZTBE.ZTBEFMTR) CLUSTER PURGE
     DEFINE CLUSTER -
       (NAME(KI.EITC.ZTBE.ZTBEFMTR) -
            VOL(DES802)     -
            REC (1000 500) -
            FREESPACE(25 25)     -
            RECORDSIZE(150 150) -
            SHAREOPTIONS(2 3) -
            KEYS(30 0) -
            INDEXED ) -
          DATA -
            (NAME(KI.EITC.ZTBE.ZTBEFMTR.DATA)) -
          INDEX -
            (NAME(KI.EITC.ZTBE.ZTBEFMTR.INDEX))
/*
//*--------------------------------------------------------------------*
//* CLASIFICACION DEL FICHERO RESUMEN
//*--------------------------------------------------------------------*
//SORMONR  EXEC PGM=SORT,
//         COND=((8,LT,DEFTOT),(0,NE,ZTBEB002))
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&RESUMEN,DISP=(OLD,PASS,DELETE)
//SORTOUT  DD DSN=KI.EITC.ZTBE.ZTBEFMR,DISP=(,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(TRK,(10,10),RLSE),
//         DCB=(RECFM=FB,LRECL=253,BLKSIZE=6072)
//SYSIN  DD *
  SORT FIELDS=(1,9,A,33,1,A,10,23,A,34,20,A),FORMAT=BI
/*
//*---------------------------------------------------------------------
//***  LISTADO DEL FICHERO RESUMEN DE ESTADISTICAS (ZTBEFMR)
//*---------------------------------------------------------------------
//ZTBEB003 EXEC PGM=ZTBEB003,
//         COND=((8,LT,DEFTOT),(0,NE,ZTBEB002),(0,NE,SORMONR))
//STEPLIB  DD   DSN=KI.EITC.ZTBG.LOAD,DISP=SHR
//ZTBEFMR  DD   DSN=KI.EITC.ZTBE.ZTBEFMR,DISP=SHR
//ZTBEFMTR DD   DSN=KI.EITC.ZTBE.ZTBEFMTR,DISP=SHR
//ZTBEFL01 DD   SYSOUT=*
//ZTBEFL02 DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSDBOUT DD   SYSOUT=*
//ABENDAID DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//SYSABOUT DD   SYSOUT=*
 

El resultado de dicha ejecución obtendrá los dos siguientes listados: