Yo lo hago de esta manera, desde el propio trabajo, tal vez desdeel exit_point
de odbc(QIBM_QZDA_INIT ) se pueda ejecutar.
El proceso lee las anotaciones de trabajo que graba en un fichero, para
recuperar la ip.
AURTVIP CLLE Recuperar ip de Qzdasoinit
AURTVIP1 CLLE Recuperar ip de Qzdasoinit
/*********************************************************************/
/* 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)
CALLPRC PRC(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 'CPIAD02') 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
Pedro Pinedo Hernandez
Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Planta: Tobepal Logro�o
Departamento de Inform�tica / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logro�o
Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Felipe Zarraute
Enviado el: mi�rcoles, 22 de diciembre de 2004 19:32
Para: forum.help400
Asunto: Direccion IP
Hola a todos y felices fiestas;
Necesito saber desde un equipo de mi red (por direccion IP) que usuario
ha conectado, creo que se puede controlar desde una API y utilizando una
salida de WRKREGINF. Pero no consigo que me funcione, el usuario no
conecta por telnet, establece una conexion via ODBC.
Saludos...
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es _____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL
PROTECTED]
_______________________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
_______________________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
