¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Como Mantener siempre ETHLINE activa

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$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las 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. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. 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