¿ 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
DSPIPUSR

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$

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