Re: Random Character String

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

If this is the same rand function from the PC C, it should return a decimal
number between 0 and 1.  Something like 0.393838382  To use this to
get a number from 1 to n (like 1 to 100) the formula is
The integer of (x * n) + 1

In C would like like Number = Int(Rand() * 26) + 1
which would produce a number from 1 to 26.  You might have a little fun
getting this formula to work accuratly in RPG, but it should be good enough
for your purposes even with truncation that will most likely occur.

Regards,

Jim Langston

Buck Calabro wrote:

> Ajay Kumar wrote:
>
> >I need to create random Character String . How can I do it?
>
> Use the C functions rand and srand to create the random numbers.  Store your
> desired output character set in an array and use the random number to point
> to one of the elements.  You can read up on the C functions in the C
> manuals.  Here are the RPG IV prototypes:
>
> H bnddir('QC2LE') dftactgrp(*no) actgrp('QILE')
>
> D srand           pr                  extproc('srand')
> D  InputSeed                    10u 0
>
> D rand            pr            10i 0 extproc('rand')
>
> Buck Calabro
> Aptis; Albany, NY
> "We are what we repeatedly do.
>  Excellence, then, is not an act, but a habit." --Aristotle
>
> Billing Concepts Corp., a NASDAQ Listed Company, Symbol: BILL
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---