Hola, Juanra :
> Pues si, efectivamente en el enlace que indicas dice que est� disponible
> desde V2.3, sin embargo yo no tengo esa API, �hay que descargarla de alg�n
> sitio?.
No, es una "Bindable API" y simplemente la llamas y ya est�.
CEERAN0 devuelve un n� de coma flotante entre 0 y 1.
Has de tener en cuenta que son numeros "pseudoaleatorios", ya que si no
especificas la semilla inicial (seed por defecto es 1), o especificas
siempre la misma, te generar� cada vez la misma secuencia de n�meros (el
valor de seed es de Entrada/Salida, o sea que se modifica en cada llamada).
Por tanto, para que fuera m�s aleatorio, podr�as hacer que seed cogiera la
hora del sistema.
Aqu� tienes un ejemplo (en ILE RPG):
H dftactgrp(*no)
Dseed s 10i00
Drandom_nbr s 8f
C time seed6 6 0
C z-add seed6 seed
C do 3
C callb 'CEERAN0'
C parm seed
C parm random_nbr
C parm *omit
C random_nbr DSPLY
C enddo
C eval *inlr = *on
C return
Otra posibilidad, tal vez m�s f�cil, es usar la funci�n de C "rand" (ya la
lleva el sistema).
Devuelve un n� entero aleatorio entre 0 y 32767, y, mejor todav�a, no se
repiten las secuencias ;-)
Te adjunto otro ejemplo :
H dftactgrp(*no) bnddir('QC2LE')
D rand pr 10i 0 extproc('rand')
D num s 10i 0
D i s 10i 0
C for i = 1 to 10
C eval num = rand
C num dsply
C endfor
C eval *inlr = *on
C return
Espero te funcione.
Un saludo,
Marcel.
_____________________________________________________
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]
