Tengo los fuentes de la utilidad GENRANNBR de la antigua librer�a
QUSRTOOL. Por lo que he podido ver solo consta de CMD ,RPG y un TXT y no
tiene prerrequisitos de otras utilidades. Creo que te puede servir.
Avisame si te interesa.

            Carlos Veza
            EMALSA
            [EMAIL PROTECTED]


-----Mensaje original-----
De: Juan Ram�n Garcia [mailto:[EMAIL PROTECTED]
Enviado el: jueves, 18 de septiembre de 2003 15:45
Para: Foro 400
Asunto: C�lculo de n�s aleatorios en RPG400 V4.4


Hola a [EMAIL PROTECTED]:

Hoy me toca a mi preguntar ;-)

Para un nuevo proyecto que llevo entre manos necesito calcular un n�
aleatorio entre 0 y 9, he estado probando antiguas rutinillas que hice
en la
�poca de "Mari Casta�a" basadas en la hora, minutos y segundos de
ejecuci�n
(sumando, multiplicando, dividiendo) y que funcionaban a la perfecci�n
en
S/34 y S/36 pero que hoy en d�a con la velocidad de proceso que tienen
nuestros AS/400 ya no me sirven (repite demasiadas veces el mismo
n�mero).

Al grano, necesitar�a una rutina en RPG400 o RPGIV para calcular n�s
aleatorios, OJO no me sirve el llamar al API CEERANO ya que s�lo
funciona a
partir de V4.5 y yo todav�a estoy en 4.4 (y de momento no pienso cambiar
:-)
Evidentemente tampoco me gustar�a tener que forzar una ralentizaci�n de
mis
antiguas rutinas, ya que tenemos una m�quina r�pida hay que sacarle
partido.

Gracias y un saludo.
Juanra


_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]

_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]

Responder a