Hola Javier, Puedes utilizar la funcion SQL Rand(). sería algo parecido a esto: d RandomNumSQL s 6s 5 d RandomNum s 5s 0 d Inzval s 10i 0 Exec SQL Set :RandNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));
RandomNum = %Int(RandomNumSQL * 100000; Si te aseguras en cada llamada a la función, que inzval tenga un valor distinto al anterior (por ejemplo el valor numérico de un timestamp + 1 milisegundo), te aseguras un número aleatorio Espero te sirva de idea. Jordi. En miércoles, 20 de junio de 2018 19:55:35 CEST, Javier B. <[email protected]> escribió: Hola a todos : Necesitaría buscar algún algoritmo para programarlo en rpg/400 que genere un código aleatorio alfanumérico de 5 posiciones y que no se repita. Un saludo y gracias por anticipado, Javier____________________________________________________ Ú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.
