| 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$
|
