Perdon , recien pase mal el nombre de la api, la misma es 
CEERAN0         

y se usa de la siguiente manera 


     PGetRandom        B
     D                 pi             3u 0
     D RandUpperLim                   3u 0 const
     D RandFloat8      s              8f   inz
     D RandInt4        s             10i 0 inz STATIC
     D RandAlpha8      s              8a   inz
      *
     C                   CALLB(d)  'CEERAN0'
     C                   parm                    RandInt4
     C                   parm                    RandFloat8
     C                   parm                    RandAlpha8
     C                   return    (RandUpperLim * RandFloat8) + 1      
     PGetRandom        E



> -----Mensaje original-----
> De:   Fernando L�pez-UNAGRAS [SMTP:[EMAIL PROTECTED]]
> Enviado el:   Lunes, 04 de Marzo de 2002 07:00 a.m.
> Para: [EMAIL PROTECTED]
> Asunto:       Randomize
> 
> Hola a todos..
> como puedo hacer una especie de Randomize en RPG III 
> para sacar importes de entre 1.000.000 y 3.000.000 ???
> 
> Gracias, espero vuestros mensajes.
> 
> 
> _____________________________________________________
> 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]?body=LEAVE
La informacion contenida en este correo es para uso exclusivo de los destinatarios del 
mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este 
correo, realizar
cualquier tipo de modificacion, copia o distribucion del mismo. Si Usted recibe este 
correo por
error, tenga bien notificar al emisor y eliminarlo.

_____________________________________________________
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]?body=LEAVE

Responder a