Hola Bernabe,
muchas gracias por tu apoyo, voy a revisarlo y cualquier duda te lo haré saber. Saludos Cordiales, José Z. ________________________________ De: [email protected] <[email protected]> en nombre de Bernabé Estrada <[email protected]> Enviado: viernes, 26 de agosto de 2016 03:38 p. m. Para: forum.help400 Asunto: Re: Solicitud de Ayuda Random de letras. Hay muchas formas, pero tu consulta me dio algo de nostalgia, así que te copio un pequeño programa en RPG ii que te devuelve un numero aleatorio el cual podrías usar para encontrar una letra dentro del abecedario. (lo podes convertir a free jejeje) C *ENTRY PLIST C PARM RANNBR 90 C PARM LOVAL 90 C PARM HIVAL 90 C PARM PGMEND 4 C PARM STRVAL 90 C LOVAL IFLT 0 C SETON H1 C GOTO BADEND C END C HIVAL IFLE LOVAL C SETON H2 C END C PGMEND IFNE '*YES' C PGMEND ANDNE'*NO ' C SETON H3 C GOTO BADEND C END C FSTTIM IFEQ ' ' C TIME TIME 60 C Z-ADDTIME BGNVAL 90 C PGMEND IFEQ '*YES' C HIVAL SUB LOVAL NBR1 C NBR1 IFLE 1 C MOVE TIME DEC1 10 C 1 ADD NBR1 RANGE 30 C Z-ADDDEC1 RANNBR C NBR1LP TAG C RANNBR IFGE RANGE C SUB RANGE RANNBR C GOTO NBR1LP C END C ADD LOVAL RANNBR C GOTO ENDPGM C END C END C STRVAL IFEQ 0 C ELSE C Z-ADDSTRVAL BGNVAL C END C MOVE 31415 PI 54 C BGNVAL MULT PI NBR1 90 C MOVE 'X' FSTTIM 1 C END C HIVAL SUB LOVAL MAX 134 C ADD 1 MAX C SUB DECVAL MAX C MOVE 314159265 PI2 98 C NBR1 MULT PI2 NBR2 157 C NBR2 DIV 17 NBR3 154 C Z-ADDNBR3 NBR4 153 C MOVE NBR4 DEC4 44 C PGMEND IFEQ '*YES' C MOVE NBR3 DEC5 53 C ADD DEC5 NBR4 C END C MOVE DEC4 DECVAL 66 C MOVE NBR4 NBR5 90 C NBR5 DIV MAX NBR6 150 C MVR RANNBR 90 C ADD LOVAL RANNBR C ENDPGM TAG C PGMEND IFEQ '*NO ' C MOVE NBR2 WRK1 101 C ADD WRK1 NBR1 C MOVE NBR3 WRK2 112 C ADD WRK2 NBR1 C ELSE C SETON LR C END C RETRN C BADEND TAG Y una CL que te puede servir para entender como ejecutarlo. PGM DCL VAR(&RESULTADO) TYPE(*DEC) LEN(9 0) DCL VAR(&MINIMO) TYPE(*DEC) LEN(9 0) VALUE(1) DCL VAR(&MAXIMO) TYPE(*DEC) LEN(9 0) VALUE(29) DCL VAR(&FINALIZA) TYPE(*CHAR) LEN(4) VALUE('*NO ') DCL VAR(&INICIAL) TYPE(*DEC) LEN(9 0) VALUE(1) DCL VAR(&RESULTADOC) TYPE(*CHAR) LEN(9) CALL PGM(GENRANNBR) PARM(&RESULTADO &MINIMO + &MAXIMO &FINALIZA &INICIAL) CHGVAR VAR(&RESULTADOC) VALUE(&RESULTADO) SNDPGMMSG MSG(&RESULTADOC) ENDPGM El 26 de agosto de 2016, 13:24, Joss DJ <[email protected]<mailto:[email protected]>> escribió: Estimados, buena tarde. Solicito de favor su amable ayuda, por necesidades de trabajo tengo que generar en un proceso una contraseña con letras aleatorias (random) del abecedario, alguien tiene una rutina que me pueda enviar para revisar como se puede hacer ya que desconozco como lo podría hacer. Gracias anticipadas por su valioso apoyo. Saludos Cordiales, José De Jesús. ____________________________________________________ Ú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.
