¿ 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
RTVUSRDIR - Recupera ID Usuario

Categoría : Administración
Autor : Marti Riera
Título : RTVUSRDIR - Recupera ID Usuario


Descripción del truco:
Este mandato dado un perfil de usuario recupera su USRID y DIRECCION del directorio.
Si no existe devuelve blancos.

/*----------------------------------------------------------------MRB*/
/* Recupera ID de usuario y direccion de un usuario                  */
/*-------------------------------------------------------------------*/
/* Marti Riera 24/01/2005                                            */
/* http://www.recursos-as400.com/                                    */
/* mailto:mrierab@teleline.es                                        */
/*-------------------------------------------------------------------*/
             PGM        PARM(&USER &USRID &DIR)
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&USRID) TYPE(*CHAR) LEN(8)
             DCL        VAR(&DIR) TYPE(*CHAR) LEN(8)
             DCL        VAR(&EOF) TYPE(*LGL) VALUE('0')
             DCLF       FILE(DSPDIRE)
/* Comprobar si existe el usuario */
             IF         COND(&USER = '*CURRENT') THEN(DO)
               RTVJOBA    USER(&USER)
             ENDDO
             ELSE DO
               CHKOBJ     OBJ(&USER) OBJTYPE(*USRPRF)
               MONMSG     MSGID(CPF9801) EXEC(DO)
                 SNDPGMMSG  MSGID(CPF9801) MSGF(QCPFMSG) MSGDTA(&USER +
                              *CAT 'QSYS      ' *CAT 'USRPRF')
                 GOTO END
               ENDDO
             ENDDO
/* Cargar variables de trabajo */
             CHGVAR     VAR(&USRID) VALUE('        ')
             CHGVAR     VAR(&DIR) VALUE('        ')
             DSPDIRE    USER(&USER) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPDIRE)
             MONMSG     MSGID(CPF9006) EXEC(GOTO END)
/* Bucle de lectura */
READ:        RCVF
             MONMSG    MSGID(CPF0864) EXEC(CHGVAR VAR(&EOF) VALUE('1'))
             IF         COND(&EOF *NE '1') THEN(DO)
               CHGVAR     VAR(&USRID) VALUE(&WOSDDEN)
               CHGVAR     VAR(&DIR) VALUE(&WOSDDGN)
               GOTO READ
             ENDDO
/* Fin de programa */
 END:
             RETURN
             ENDPGM



/*----------------------------------------------------------------MRB*/
/* Recupera ID de usuario y direccion de un usuario */
/* Marti Riera 24/01/2005 */
/* http://www.recursos-as400.com/ */
/* mailto:mrierab@teleline.es */
/*-------------------------------------------------------------------*/
/* Compilar con PGM(RTVUSRDIRC) y ALLOW(*IPGM *BPGM) */
/*-------------------------------------------------------------------*/
CMD PROMPT('Recupera ID Usuario')
PARM KWD(USER) TYPE(*NAME) LEN(10) +
SPCVAL((*CURRENT)) MIN(1) PROMPT('Usuario')
PARM KWD(USRID) TYPE(*CHAR) LEN(8) RTNVAL(*YES) +
PROMPT('ID usuario')
PARM KWD(DIR) TYPE(*CHAR) LEN(8) RTNVAL(*YES) +
PROMPT('Direccion')

Ver código fuente CL
Ver código fuente mandato
Fecha 12-07-2005

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries i5 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

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: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049