| Categoría : Administración
Autor : Luis Maldonado Rubio
Título : Como Mantener siempre ETHLINE activa
Descripción del truco:
Como activar ETHLINE si se cae y no estamos en la oficina.
PGM
DCL VAR(&STATUS) TYPE(*DEC) LEN(5 0)
DCL VAR(&STATUS1) TYPE(*DEC) LEN(5 0)
START: +
RTVCFGSTS CFGD(ETHLINE) CFGTYPE(*LIN) STSCDE(&STATUS)
MONMSG MSGID(CPF0000)
DLYJOB DLY(180)
IF COND(&STATUS *EQ 60) THEN(GOTO CMDLBL(START))
DLYJOB DLY(5)
IF COND(&STATUS *NE 60) THEN(GOTO CMDLBL(AB))
/********************************************************************/
/* Guardamos el STATUS de ETHLINE en la variable &STATUS */
/* Si el valor retornado es 60 que significa activo, entonces */
/* no hacemos nada i despues de un DELAY de 180 segundos el programa */
/* vuelve otra vez a empezar con RTVCFGSTS. Si &STATUS no es 60 nos */
/* vamos a la etiqueta AB donde la ETHLINE es forzada a *off. */
/* ja que si la conexion ETHERLINE se pierde nos dara un &STATUS de 80*/
/* con RCYPND o de 90 con RCYCNL. Al forzar *off evitamos */
/* la respuesta CPA2610. */
/********************************************************************/
AB: +
VRYCFG CFGOBJ(ETHLINE) CFGTYPE(*LIN) STATUS(*OFF) FRCVRYOFF(*YES)
DLYJOB DLY(5)
GOTO CMDLBL(AN)
/********************************************************************/
/* Despues del DELAY de 5 segundos nos vamos a la etiqueta AN */
/********************************************************************/
AN: +
VRYCFG CFGOBJ(ETHLINE) CFGTYPE(*LIN) STATUS(*ON)
DLYJOB DLY(5)
RTVCFGSTS CFGD(ETHLITCP) CFGTYPE(*DEV) STSCDE(&STATUS1)
IF COND(&STATUS1 *NE 60) THEN(GOTO CMDLBL(STRIFC))
/********************************************************************/
/* ETHLINE esta activa, controlamos el dispositivo ETHLITCP */
/* El STATUS de ETHLITTCP lo guardamos en &STATUS1, */
/* si no es 60 arrancamos las Interfaces tcp */
/* vamos a la etiqueta STRIFC. */
/* */
/* */
/********************************************************************/
STRIFC: +
STRTCPIFC INTNETADR(\'127.0.0.1\')
DLYJOB DLY(5)
STRTCPIFC INTNETADR(\'172.17.102.8\')
DLYJOB DLY(5)
GOTO CMDLBL(START)
/********************************************************************/
/* Las INTERFACES TCP relacionadas con ETHLINE ya estan arrancadas */
/* el programa vuelve a empezar. */
/********************************************************************/
ENDPGM
Fecha 03-11-2004
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
