¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Generar números aleatorios

Quiero compartir con ustedes una rutina que desarrollé dada la necesidad de producir numeros aleatorios ante ciertas eventualidades.

La rutina funciona gracias a un tratamiento que se le hace a la hora actual del sistema en formato horas:minutos:segundos:miliseguntos, lo cual la hace util al momento de desencadenarse un evento, pero no para producir series de aleatorios.

Está hecha en lenguaje CL y espero que sea de utilidad y goce de buena acogida.

/****************************************************************/
/* GENERA UN NUMERO ALEATORIO CON BASE EN LA HORA ACTUAL DEL */
/* SISTEMA H:M:S:M. EL PARAMETRO DE ENTRADA DEDE CONTENER EL */
/* LIMITE MAXIMO DEL ALETORIO A PRODUCIR, DICHO LIMITE DEBE SER */
/* SIEMPRE MAYOR QUE CERO. EL ALEATORIO SIEMPRE CAERA ENTRE 1 */
/* EL LIMITE. AL FINALIZAR LA RUTINA, EL MISMO PARAMETRO */
/* RETORNA EL NUMERO AL "AZAR". */
/* */
/* DESARROLLADO POR: RUBEN DARIO BAENA */
/* FECHA: SEPTIEMBRE DEL AÑO 2003 */
/****************************************************************/
PGM PARM(&ALEATORIO)
DCL VAR(&NITEMS) TYPE(*DEC) LEN(9 0)
DCL VAR(&ALEATORIO) TYPE(*DEC) LEN(9 0)
DCL VAR(&SEMILLA) TYPE(*DEC) LEN(9 0)
DCL VAR(&SEMILLASTR) TYPE(*CHAR) LEN(9)
DCL VAR(&N1) TYPE(*DEC) LEN(9 0)

CHGVAR VAR(&NITEMS) VALUE(&ALEATORIO)
CHGVAR VAR(&ALEATORIO) VALUE(0)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&SEMILLASTR)
CHGVAR VAR(&SEMILLA) VALUE(&SEMILLASTR)
CHGVAR VAR(&N1) VALUE(&SEMILLA / &NITEMS)
CHGVAR VAR(&ALEATORIO) VALUE((&SEMILLA - (&N1 * +
&NITEMS))+1)
ENDPGM

Ejemplo enviado por Ruben Dario Baena

Noviembre 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049