/*----------------------------------------------------------------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')