¿ 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
Recuperar ip de cliente-servidor (qzdasoinit)

Categoría : Programación
Autor : Pedro Pinedo
Título : Recuperar ip de cliente-servidor (qzdasoinit)

Premiado Enero 2004

Descripción del truco:
Con estas dos cl se puede recuperar la ip del pc que ejecuta una tarea cliente-servidor desde el propio trabajo QZDASOINIT, Leyendo la cola de mensajes del trabajo.


Código en formato texto
Fecha 26-01-2004

/*********************************************************************/ /* PROCEDIMIENTO RECUPERACION DIRECCION IP */ /* ------- AURTVIP ------- */ /*********************************************************************/ PGM PARM(&NUM &IP) /* */ /* DECLARAR FICHERO PANTALLA */ /* */ DCL VAR(&IP) TYPE(*CHAR) LEN(15) DCL VAR(&num) TYPE(*CHAR) LEN(6) DCL VAR(&MBR) TYPE(*CHAR) LEN(8) VALUE('FI') RTVJOBA NBR(&num) MONMSG MSGID(CPF0000) CHGVAR VAR(%SST(&MBR 3 6)) VALUE(&NUM) DSPJOBLOG OUTPUT(*OUTFILE) OUTFILE(QTEMP/AULOIPF) + OUTMBR(&MBR *REPLACE) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN)) OVRDBF FILE(AULOIPF) TOFILE(QTEMP/AULOIPF) + MBR(&MBR) OVRSCOPE(*JOB) CALL PGM(AURTVIP1) PARM(&IP &MBR) FIN: DLTOVR FILE(AULOIPF) LVL(*JOB) MONMSG MSGID(CPF0000) RMVM FILE(QTEMP/AULOIPF) MBR(&MBR) MONMSG MSGID(CPF0000) ENDPGM /*********************************************************************/ /* PROCEDIMIENTO RECUPERACION DIRECCION IP */ /* ------- AURTVIP1 ------ */ /*********************************************************************/ PGM PARM(&IP &MBR) /* */ /* DECLARAR FICHERO PANTALLA */ /* */ DCLF FILE(*LIBL/AULOIPF) ALWVARLEN(*YES) DCL VAR(&IP) TYPE(*CHAR) LEN(15) DCL VAR(&MBR) TYPE(*CHAR) LEN(8) OVRDBF FILE(AULOIPF) TOFILE(QTEMP/AULOIPF) + MBR(&MBR) OVRSCOPE(*JOB) SIG: RCVF MONMSG MSGID(CPF0000) EXEC(DO) GOTO CMDLBL(FIN) ENDDO IF COND(&QMHMID *EQ 'CPIAD12') THEN(DO) CHGVAR VAR(&IP) VALUE(%SST(&QMHMDT 13 15)) GOTO CMDLBL(FIN) ENDDO GOTO CMDLBL(SIG) FIN: DLTOVR FILE(AULOIPF) LVL(*JOB) MONMSG MSGID(CPF0000) RCLRSC ENDPGM
¿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

Symtrax
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: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344