¿Puedes utilizar SQL embebido? Si es así, puedes utilizar la función Select int(RAND()) into :numero from sysibm/sysdummy1
Esto te generaría un número aleatorio de 1 dígito. Si lo necesitas de mayor longitud, puedes ir multiplicando por potencias de 10. Un saludo. Juan Carlos. De: [email protected] [mailto:[email protected]] 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 <[email protected]<mailto:[email protected]>> 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: [email protected]<mailto:[email protected]> [mailto:[email protected]<mailto:[email protected]>] En nombre de Juan Ramón Garcia Enviado el: miércoles, 17 de septiembre de 2014 14:25 Para: [email protected]<mailto:[email protected]>; 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 <[email protected]<mailto:[email protected]>> 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 <[email protected]<mailto:[email protected]>> 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. [http://www.everest.es/img/mailings/imgfirma_02.png] [http://www.everest.es/img/mailings/imgfirma_03.png] [http://www.everest.es/img/mailings/imgfirma_04.png] [http://www.everest.es/img/mailings/imgfirma_05.png] [http://www.everest.es/img/mailings/imgfirma_06.png] [http://www.everest.es/img/mailings/imgfirma_07.png] <http://es-es.facebook.com/editorialeverest> [http://www.everest.es/img/mailings/imgfirma_08.png] <http://twitter.com/ed_everest> De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal, le informamos que los datos que nos facilite podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas del Grupo Everest dedicadas a actividades de impresión, encuadernación, edición, publicación, distribución y venta de libros y otra clase de publicaciones. Sus datos se presumen veraces mientras no nos comunique lo contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y "COMERCIAL LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el correo electrónico y las comunicaciones por medio de Internet no permiten asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así como tampoco su integridad o su correcta recepción, por lo que EDITORIAL EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad alguna por tales circunstancias. Si no consintiese en la utilización del correo electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, de manera exclusiva, a su destinatario y contiene información confidencial y sujeta al secreto profesional, cuya divulgación no está permitida por la ley. En caso de haber recibido este mensaje por error, le rogamos que, de forma inmediata, nos lo comunique mediante correo electrónico remitido a nuestra atención o a través del teléfono 902123400 y proceda a su eliminación, así como a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la distribución, copia o utilización de este mensaje, o de cualquier documento adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la ley. El uso y contenido de los correos electrónicos remitidos con direcciones bajo el dominio de "everest .es" serán exclusivamente de ámbito profesional. Las opiniones de índole política, moral o religiosa que pueden ser vertidas en los correos electrónicos remitidos con direcciones bajo aquel dominio, serán responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad a la empresa.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
