| Categoría : Administración
Autor : Yober Jimenez
Título : DSPIPUSR
Descripción del truco:
Crear un comando que te indique la ip de un dispositivo
apartir del perfil de usuario
PROGRAMADOR: YOBER JIMENEZ
___________________________________________________________________
PGM PARM(&USER)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&USERJOB) TYPE(*CHAR) LEN(10)
DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(2000)
DCL VAR(&VARLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10)
DCL VAR(&IP) TYPE(*CHAR) LEN(15)
DCL VAR(&ERROR) TYPE(*CHAR) LEN(180)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCLF FILE(ADMSEGDES/PFIPUSR)
RTVJOBA USER(&USERJOB)
WRKUSRJOB USER(&USER) STATUS(*ACTIVE) OUTPUT(*PRINT) +
CPYSPLF FILE(QPDSPSBJ) TOFILE(ADMSEGDES/TMPIP) +
SPLNBR(*LAST)
DLTSPLF FILE(QPDSPSBJ) SPLNBR(*LAST)
RUNQRY QRY(ADMSEGDES/TMPIP)
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
CHGVAR VAR(%BIN(&VARLEN)) VALUE(2000)
CALL PGM(QDCRDEVD) PARM(&RCVVAR &VARLEN +
'DEVD0600' &DEVICE &ERROR)
CHGDTAARA DTAARA(ADMSEGDES/IP (1 2000)) VALUE(&RCVVAR)
CHGVAR VAR(&IP) VALUE(%SST(&RCVVAR 878 15))
SNDPGMMSG MSG('LA DIRECCION IP ES :' *CAT &IP) +
TOUSR(&USERJOB)
ENDPGM Se debe crear un qry que genere un archivo con el dispositivo
que esta utilizando el usuario en ese momento, por lo
que se debe ajustar el qry para generar los campos requeridos.
Ver
código
Fecha 14-07-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$
|
