Rutina Números Aleatorios

[Hrmcobol]

Hola Amigos !!!!
Necesito una rutina, ocx, etc que genere números aleatorios de 3, 4 o 5 dígitos
Alguien tiene algo sobre este tema
Saludos !!!!

[Fito]

Hola:

Nunca lo probé, pero a lo mejor esta función te sirve.

RANDOM Function
This function returns a pseudo random value from uniform distributions.
Format
FUNCTION RANDOM [(argument-1)]
Argument
1. The type of argument-1 must be integer.
2. The value of argument-1 must be zero or a positive integer. It is used to
generate a pseudo-random string.
3. The RANDOM function with argument-1 will generate a pseudo-random string
using argument-1 as source.
4. If argument-1 is omitted in the RANDOM function first executed in the run unit, a
pseudo-random string is generated using zero as source.
5. When determining a random value from the same pseudo random string after
execution of the RANDOM function, argument-1 may be omitted. The value of
argument-1 is valid until the next RANDOM function having argument-1 appears.
Function Value
1. The function value is any value in the current pseudo-random string.
2. The range of the function value is:
0 ≤ function value < 1
3. If the value of argument-1 (source value) is the same as in a previous execution,
the same pseudo-random string is used.

Saludos.

Fito...

[Hrmcobol]

Acá esta la respuesta FITO, me la paso un amigo !!



ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Misc.
05 Pseudo Pic X.
05 Multi-Digit Pic 999999999V9(6).
05 Two-Digit Pic 99999999.
05 Vary Pic 99.
05 hora Pic 99999999.
PROCEDURE DIVISION.

Return-Pseudo.
ACCEPT HORA FROM TIME
Compute Multi-Digit = (Function Random (hora)) * 1
Display Two-Digit " VARY" Vary " -----1--> " Multi-Digit " --------> " hora
Perform Varying Vary from 1 by 1
Until Vary > 50
Compute Multi-Digit = (Function Random) * 1
Move Multi-Digit to Two-Digit
Display Two-Digit " VARY" Vary " --------> " Multi-Digit " --------> " hora
End-Perform