Yo diria que sirve para COBOL/400:

The Generate Pseudorandom Numbers (OPM, QC3GENRN)

Esta API la puedes llamar desde un COBOL400 puro y duro.


De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan Ramón Garcia
Enviado el: miércoles, 17 de septiembre de 2014 16:27
Para: forum.help400
Asunto: Re: Números aleatorios en COBOL400

Gracias Emilio pero.... tampoco me sirve.
Necesito hacerlo con COBOL400 puro y duro, no puedo utilizar API's ni otros 
lenguajes.
Si no encuentro nada mejor me tendré que montar "algo" con TIME.
Un saludo.
Juanra

El 17 de septiembre de 2014, 15:59, LLagostera Vila, Emilio 
<emiliollagost...@mediolanum.es<mailto:emiliollagost...@mediolanum.es>> 
escribió:
Hola Juanra,

Cuanto tiempo…

A ver si esto te sirve:

http://www-01.ibm.com/support/knowledgecenter/api/content/ssw_ibm_i_71/apis/qc3genprns.htm

No tengo ningún ejemplo en cobol ahora….cualquier cosa me dices…


De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de Juan Ramón Garcia
Enviado el: miércoles, 17 de septiembre de 2014 14:25
Para: marcelo.d...@gmail.com<mailto:marcelo.d...@gmail.com>; forum.help400
Asunto: Re: Números aleatorios en COBOL400

Muchas gracias Marcelo pero busco algo un poco más elaborado.

El 17 de septiembre de 2014, 14:14, Marcelo Diaz 
<marcelo.d...@gmail.com<mailto:marcelo.d...@gmail.com>> escribió:
Hice una rutina que tomaba la datetime y agarraba los ultimos 6 digitos ...

El 17 de septiembre de 2014, 9:01, Juan Ramón Garcia 
<juanranei...@gmail.com<mailto:juanranei...@gmail.com>> escribió:
Hola a tod@s:
Tengo un pequeño problemilla, necesito generar un nº aleatorio en COBOL400 (NO 
ILE) y no puedo utilizar CEERAN0.
He encontrado varios ejemplos en San Google pero ninguno me funciona, o son 
para COBOL-II o para ILE o simplemente no funcionan.
¿Alguien tiene una rutinilla en COBOL400 que calcule números aleatorios?
Muchas gracias.
Un saludo.

Juanra
El iSaurio RpgEro que se convirtió en CobolEro ;-)

____________________________________________________
Ú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.


____________________________________________________
Ú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.

Responder a