Re: Dirección Ip en Trigger

Carlos Bartolomé Tue, 21 Jan 2014 02:56:02 -0800

Manuel,
yo tengo hecho éste CL para algo similar. Pruebalo a ver. Espero que te sirva.
No lo he probado con trabajos batch. Ya nos cuentas.

HINFO es un programa de información al usuario. Similar a SNDMSG.

Saludos,
Carlos Bartolomé.
CPD - LIWE ESPAÑOLA, S.A.

/*----------------------------------------------------------------------------*/
/* RECUPERAR IP DE UN DISPOSITIVO. */
/*----------------------------------------------------------------------------*/
/* SI DEV ES BLANCO, SE RECUPERA LA IP DEL TRABAJO ACTIVO. */
/*----------------------------------------------------------------------------*/
             PGM        PARM(&DEV)
/**/
             DCL        VAR(&DEV) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LEN) TYPE(*CHAR) LEN(4)
             DCL        VAR(&DAT) TYPE(*CHAR) LEN(2000)
             DCL        VAR(&IP) TYPE(*CHAR) LEN(15)
             DCL        VAR(&ERR) TYPE(*CHAR) LEN(180)
/* INFORMACION AL USUARIO */
             DCL        VAR(&TIT1) TYPE(*CHAR) LEN(40)
             DCL        VAR(&TIT2) TYPE(*CHAR) LEN(40)
             DCL        VAR(&TEX) TYPE(*CHAR) LEN(1000)
/* VALORES POR DEFECTO */
             IF         COND(&DEV *EQ ' ') THEN(RTVJOBA JOB(&DEV))
             CHGVAR     VAR(&TIT1) VALUE('Recuperar IP del +
                          dispositivo ' *CAT &DEV)
/* DISPOSITIVO NO EXISTE */
             CHKOBJ     OBJ(&DEV) OBJTYPE(*DEVD)
             MONMSG     MSGID(CPF9801) EXEC(DO)
             CHGVAR     VAR(&TEX) VALUE('El dispositivo ' *CAT &DEV +
                          *CAT ' no existe o su comprobación ha +
                          generado un error.')
             CALL       PGM(HINFO) PARM(&TIT1 &TIT2 &TEX)
             GOTO       CMDLBL(ATPC)
             ENDDO
/* LLAMAR A LA API */
             CHGVAR     VAR(%BIN(&LEN)) VALUE(2000)
             CALL       PGM(QDCRDEVD) PARM(&DAT &LEN 'DEVD0600' &DEV +
                          &ERR)
             CHGVAR     VAR(&IP) VALUE(%SST(&DAT 878 15))
             CHGVAR     VAR(&TEX) VALUE('La IP del dispositivo al es +
                          ' *CAT &IP *TCAT '.')
             CALL       PGM(HINFO) PARM(&TIT1 &TIT2 &TEX)
/**/
ATPC:       ENDPGM

El 21/01/2014 11:10, Manuel Fernandez Ballesteros escribió:

Buenos dias,

alguien conoce la manera de obtener la Ip en un trigger?

Saludos

Manuel Fernández
Huecograbado Fina, S.A.
Islas Baleares, 16
Polígono Industrial Fuente del Jarro
46988 Paterna (Valencia)
[email protected]
www.huecofina.es
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Dirección Ip en Trigger

Responder a