Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Traductor de números a letras. Gusaiello Cocina AcuCOBOL 2 22 de mayo de 2018 20:45
[Sintaxis] Crear Rutina que exporte archivos DAT a TXT? KalEl NetCOBOL for Windows 15 24 de septiembre de 2017 22:43
[Sintaxis] Rutina de filtrado de palabras Gatomalo RM/COBOL 4 10 de marzo de 2017 09:09
[Petición] Rutina impresión sticker con codigos de barras Gatomalo Cocina PowerCOBOL 7 19 de agosto de 2016 17:44
[Aporte] Dividir números muy grandes en COBOL Josber Cocina Casera 3 2 de mayo de 2015 21:44
Respuesta
 
Herramientas

  #1
Antiguo 11 de octubre de 2017, 20:38
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
26.10.2021 18:49
PROCEDURE DIVISION
Posts: 321
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado Rutina Números Aleatorios

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 !!!!
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 11 de octubre de 2017, 22:44
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros  Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
27.11.2021 04:20
PROCEDURE DIVISION
Posts: 300
Enviado: 158
Recibido: 153
Soluciones: 15
Reputación: 21
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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...
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol (15 de octubre de 2017)
  #3
Antiguo 15 de octubre de 2017, 01:26
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
26.10.2021 18:49
PROCEDURE DIVISION
Posts: 321
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

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


Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  Misc.
  5.      05  Pseudo      Pic X.
  6.      05  Multi-Digit Pic 999999999V9(6).
  7.      05  Two-Digit   Pic 99999999.
  8.      05  Vary        Pic 99.  
  9.      05  hora        Pic 99999999.
  10.  PROCEDURE       DIVISION.
  11.  
  12.  Return-Pseudo.
  13.      ACCEPT HORA FROM TIME
  14.      Compute Multi-Digit = (Function Random (hora)) * 1
  15.      Display Two-Digit  " VARY" Vary " -----1--> " Multi-Digit  " --------> " hora  
  16.      Perform Varying Vary from 1 by 1
  17.        Until Vary > 50
  18.         Compute Multi-Digit = (Function Random) * 1
  19.         Move Multi-Digit to Two-Digit
  20.      Display Two-Digit  " VARY" Vary " --------> " Multi-Digit  " --------> " hora  
  21.      End-Perform
Hrmcobol no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Fito (17 de octubre de 2017), Kuk (15 de octubre de 2017)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 08:39.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.