IBM i Serie Guía De Resolución De Problemas página 40

/* PRODUCE EL MENSAJE OBSERVADO. ESTA ÁREA DE DATOS
/* SE VOLCARÁ AL PRINCIPIO (*ON), CUANDO EL INTERVALO */
/* DE TIEMPO HAYA TRANSCURRIDO (*INTVAL) Y CUANDO SE
/* PRODUZCA EL MENSAJE OBSERVADO (*MSGID)
/*
/* A CONTINUACIÓN FIGURA UN EJEMPLO DE LOS PARÁMETROS DE */
/* OBSERVACIÓN DE EVENTOS DE RASTREO, TAL COMO SE
/* ESPECIFICARÍAN PARA UN MANDATO DE RASTREO EMITIENDO
/* EL CÓDIGO DE EJEMPLO ACTUAL:
/*
/* WCHMSG((CPF0001)) TRCPGM(MYLIB/WCHEXTP) TRCPGMITV(30) */
/*********************************************************/
PGM PARM(&TRCOPTSET &RESERVED &OUTPUT &COMPDATA)
DCL
DCL
DCL
DCL
/*********************************************************/
/* INICIO DEL PROCESO DEL PROGRAMA
/*********************************************************/
IF COND(&TRCOPTSET *EQ '*ON
/* Esta sección se utiliza generalmente para configurar +
el entorno antes de iniciar el rastreo */
DMPOBJ
CHGVAR
ENDDO /* Finalizar si *ON */
ELSE CMD(IF COND(&TRCOPTSET *EQ '*MSGID
DSPLOG
DMPOBJ
CHGVAR
ENDDO /* Finalizar si *MSGID */
ELSE CMD(IF COND(&TRCOPTSET *EQ '*INTVAL
/* Esta sección se utiliza generalmente para realizar +
tareas periódicas, por ejemplo volcar objetos, +
comprobar condiciones y, opcionalmente, finalizar +
el servicio de observación
DMPOBJ
CHGVAR
ENDDO /* Finalizar si *INTVAL */
ELSE CMD(CHGVAR VAR(&OUTPUT) VALUE('*CONTINUE ')) +
ENDPGM
Referencia relacionada
34
IBM Systems - iSeries: Networking Resolución de problemas de TCP/IP
VAR(&TRCOPTSET) TYPE(*CHAR) LEN(10) /* +
Razón por la que se ha llamado al programa */
VAR(&RESERVED) TYPE(*CHAR) LEN(10) /* Este +
parámetro sólo se utiliza en el mandato TRCTCPAPP +
y no es relevante en la función de observación +
de eventos de rastreo */
VAR(&OUTPUT) TYPE(*CHAR) LEN(10) /* +
Indica si el servicio de observación debe detenerse +
o continuar la ejecución */
VAR(&COMPDATA) TYPE(*CHAR) LEN(92) /* No +
es necesario para este ejemplo */
/* Si el programa se ha llamado al +
principio del proceso.
OBJ(MYLIB/MYOBJECT) OBJTYPE(*DTAARA) /* Volcar +
objeto para determinación de problemas */
VAR(&OUTPUT) VALUE('*CONTINUE ') /* Permitir +
que el rastreo se siga ejecutando */
THEN(DO)) /* Si el ID de mensaje coincide */
LOG(QHST) OUTPUT(*PRTSECLVL) /* Imprimir las +
anotaciones históricas */
OBJ(MYLIB/MYOBJECT) OBJTYPE(*DTAARA) /* Volcar +
objeto para determinación de problemas */
VAR(&OUTPUT) VALUE('*STOP
Indica que el servicio de observación debe detenerse */
THEN(DO)) /* Si el programa de salida +
se ha llamado debido a que ha transcurrido +
el intervalo
OBJ(MYLIB/MYOBJECT) OBJTYPE(*DTAARA) /* Volcar +
objeto para determinación de problemas */
VAR(&OUTPUT) VALUE('*CONTINUE ') /* Permitir +
que el rastreo y el servicio de observación continúen +
en ejecución */
/* De lo contrario, el servicio de observación +
continuará en ejecución */
*/
*/
*/
*/
*/
*/
*/
*/
*/
') THEN(DO) +
*/
') +
') /* +
') +
*/
*/