¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Utilidades iSeries AS400.
Base de datos de todos los trabajos ejecutados en el sistema con estadísticas de consumo CPU y I/O. Versión 3.0

Aplicación histórico de trabajos

OBJETIVO:
Tener en una base de datos todos los trabajos ejecutados en el sistema, con estadísticas de consumo CPU y I/O y duración de cada uno de ellos, así como las medias.

FUNCIONAMIENTO:

1. MANTENIMIENTO DE DATOS:
El programa HST000 averigua cual es el ultimo archivo QHST* y llama a HST005 este carga los archivos QHST* al archivo HST010F, hasta el penultimo que guarda su nombre en area de datos HST010D, para tratarlo en otro proceso. se podria planificar para ejecutar diariamente a las 05:00h con el mandato:

ADDJOBSCDE JOB(HST000) CMD(CALL PGM(MYLIB/HST000)) FRQ(*WEEKLY) +
SCDDATE(*NONE) SCDDAY(*ALL) SCDTIME(050000) */

La carga se basa en leer el mensaje CPF1164 del archivo historico que contiene la infomacion sobre el trabajo. HST000 Proceso que controla la carga, copia y vaciado de datos anteriores a 1 año, utiliza la utilidad ADDDAT ADDDAT (2Kb) Puedes bajarte la utilidad aquí (10 Kb) de las TAATOOLS, y reorganiza HST010F para consumir el menor espacio en disco posible (se puede parametrizar).
Este programa llama a los siguientes:
HST005 Carga, Salva y Elimina los archivos QHST* ya tratados.
HST010 Realiza la carga de los datos al archivo HST010F, tal como esta,cargara todos los tipos de trabajo, que no hayan finalizado con codigo 40 (cancelado en cola de trabajos) y de todos los usuarios. Para omitir trabajos por tipo, por codigo finalizacion,
u otro condicion estudiar lineas con comentario '*Ver Nota' en el fuente de HST030. Tambien existe la matriz USR para omitir usuarios. Este programa utiliza los programas auxiliares HST011, HST012 y HST021.
Nota: Para la carga inicial introducir primer QHST a cargar:
WRKOBJ OBJ(QHST*) OBJTYPE(*FILE)
Copiar nombre 1r. archivo QHSTaajjjn a area de datos:
CHGDTAARA DTAARA(HST010D) VALUE(QHSTaajjjn)
HST080 Realiza el vaciado de registros del archivo HST010F.
PROGRAMAS AUXILIARES:
HST011 Calculo de tiempo entre dos fechas
HST012 Devuelve datos fecha
HST021 Recupera descripcion objeto sin biblioteca

2. CONSULTA DE DATOS:

Para acceder a los datos historicos utilizar el mandato HSTJOBLOG introduciendo el nombre del trabajo o el usuario a consultar.
Este mandato llama al programa HST030 que recupera los datos del trabajo o usuario y los visualiza en la pantalla HST030W en orden inverso, de mas actual a mas antiguo.

11/11/2003: Modificacion Visualizar subfile en orden inverso.
Se añade clave de fecha de inicio trabajo en HST010F.
Se añaden parametros a HST_LEAME para convertirlo en programa de instalacion de la utilidad.
11/11/2003: Modificacion HST030 para incorporar sugerencia de jperez@sucromiles.com.co para consulta por usuario, utiliza nuevo logico HST010L por usuario y fecha .
15/01/2004: Modificacion no repetir ultimo archivo tratado.

INSTRUCCIONES para instalar la aplicacion:
Subir los fuentes al archivo de fuentes &MYSRCL/&MYSRC y ejecutar los siguientes mandatos (se puede compilar) para crear objetos en biblioteca &MYLIB.

PGM PARM(&MYLIB &MYSRCL &MYSRC)
DCL VAR(&MYLIB) TYPE(*CHAR) LEN(10) /* Donde se crean los objetos */
DCL VAR(&MYSRCL) TYPE(*CHAR) LEN(10) /* Biblioteca archivo fuente */
DCL VAR(&MYSRC) TYPE(*CHAR) LEN(10) /* Archivo fuente */

/* Estos DSPOBJD son solo para compilar y se pueden eliminar despues.*/
DSPOBJD OBJ(QSYS/QHST*) OBJTYPE(*FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)
DSPOBJD OBJ(&MYSRCL/&MYSRC) OBJTYPE(*FILE) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/PFOBJD)

CRTPF FILE(&MYLIB/HST010F) SRCFILE(&MYSRCL/&MYSRC)
CRTLF FILE(&MYLIB/HST010L) SRCFILE(&MYSRCL/&MYSRC)
CRTDSPF FILE(&MYLIB/HST030W) SRCFILE(&MYSRCL/&MYSRC)
CRTDTAARA DTAARA(&MYLIB/HST010D) TYPE(*CHAR) LEN(10) +
TEXT('Area datos primero a tratar por HST010')
CRTCMD CMD(&MYLIB/HSTJOBLOG) PGM(*LIBL/HST030) SRCFILE(&MYSRCL/&MYSRC)
CRTCLPGM PGM(&MYLIB/HST000) SRCFILE(&MYSRCL/&MYSRC)
CRTCLPGM PGM(&MYLIB/HST005) SRCFILE(&MYSRCL/&MYSRC)
CRTRPGPGM PGM(&MYLIB/HST010) SRCFILE(&MYSRCL/&MYSRC)
CRTRPGPGM PGM(&MYLIB/HST011) SRCFILE(&MYSRCL/&MYSRC)
CRTRPGPGM PGM(&MYLIB/HST012) SRCFILE(&MYSRCL/&MYSRC)
CRTCLPGM PGM(&MYLIB/HST021) SRCFILE(&MYSRCL/&MYSRC)
CRTRPGPGM PGM(&MYLIB/HST030) SRCFILE(&MYSRCL/&MYSRC)
CRTRPGPGM PGM(&MYLIB/HST080) SRCFILE(&MYSRCL/&MYSRC)

DLTF FILE(QTEMP/DSPOBJD)
DLTF FILE(QTEMP/PFOBJD)
RETURN
ENDPGM

Para acceder a los datos historicos utilizar el mandato HSTJOBLOG que tiene como parametro el nombre del trabajo a consultar.
Este mandato llama al programa HST030 que recupera los datos del trabajo y los visualiza en la pantalla HST030W.

INSTRUCCIONES para instalar la aplicación
Subir los fuentes al archivo de fuentes MYLIB/MYSRC y ejecutar los siguientes mandatos (se puede compilar):

DSPOBJD OBJ(QSYS/QHST*) OBJTYPE(*FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)
DSPOBJD OBJ(MYLIB/MYSRC) OBJTYPE(*FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/PFOBJD)
/* Nota: Si sometemos la compilacion cambiar OUTFILE(QTEMP por QGPL),*/
/* estos DSPOBJD son solo para compilar y se pueden eliminar despues.*/
CRTPF FILE(MYLIB/HST010F) SRCFILE(MYLIB/MYSRC)
CRTDSPF FILE(MYLIB/HST030W) SRCFILE(MYLIB/MYSRC)
CRTDTAARA DTAARA(ZGPL/HST010D) TYPE(*CHAR) LEN(10) +
TEXT('Area datos primero a tratar por HST010')
CRTCMD CMD(MYLIB/HSTJOBLOG) PGM(*LIBL/HST030) SRCFILE(MYLIB/MYSRC)
CRTCLPGM PGM(MYLIB/HST000) SRCFILE(MYLIB/MYSRC)
CRTCLPGM PGM(MYLIB/HST005) SRCFILE(MYLIB/MYSRC)
CRTRPGPGM PGM(MYLIB/HST010) SRCFILE(MYLIB/MYSRC)
CRTRPGPGM PGM(MYLIB/HST011) SRCFILE(MYLIB/MYSRC)
CRTRPGPGM PGM(MYLIB/HST012) SRCFILE(MYLIB/MYSRC)
CRTCLPGM PGM(MYLIB/HST021) SRCFILE(MYLIB/MYSRC)
CRTRPGPGM PGM(MYLIB/HST030) SRCFILE(MYLIB/MYSRC)
CRTRPGPGM PGM(MYLIB/HST080) SRCFILE(MYLIB/MYSRC)

3 Nuevas opciones (octubre 2004)

- Los trabajos visualizados en rojo son trabajos finalizados anormalmente
- Arreglar un error en el cálculo de las medias en trabajos de duraciones superiores a 100.000 segs. (ahora soporta trabajo de hasta 41 días).
- Opción 5 Visualizar trabajo
- Opción 8 Visualizar spools del trabajo


Tienes los fuentes de la utilidad aquí (17Kb) Puedes bajarte la utilidad aquí (10 Kb)

El autor es Martí Riera y agradecería cualquier comentario y/o modificación de esta utilidad

Septiembre 2003
Modificación y mejora Noviembre 2003 por Jorge Pérez Y Martí Riera
Nueva modificación de Marti Riera en Enero 2004
Última actualización Octubre 2004
Corrección de BUG Enero 2005

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049