Hola a tod@s:
Al final he "tirado" por la calle de enmedio y como lo que necesito es muy
específico (un nº entre 1 y 24) me he basado en la hora y funciona bastante
bien:
01 VARIABLES-GENERALES.
05 W-HORA.
10 W-HH PIC 9(2) VALUE ZEROS.
10 W-MM PIC 9(2) VALUE ZEROS.
10 W-SS PIC 9(2) VALUE ZEROS.
PERFORM UNTIL W-SS NOT = 0
ACCEPT W-HORA FROM TIME
PERFORM UNTIL W-SS < 25
SUBTRACT 24 FROM W-SS
END-PERFORM
END-PERFORM
Un saludo.
Juanra
El 17 de septiembre de 2014, 17:07, Juan Carlos Paredes <[email protected]>
escribió:
> ¿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]> 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]] *En nombre de *Juan Ramón Garcia
> *Enviado el:* miércoles, 17 de septiembre de 2014 14:25
> *Para:* [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]>
> 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]> 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://es-es.facebook.com/editorialeverest>
> <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.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
