Re: random alpha/numeric generator

["Bill Meecham" <bmeecham@xxxxxxxxxxxxxxxxxxxx>]

Random number:
http://archive.midrange.com/rpg400-l/200104/msg00550.html

Using that example you could 'seed' it using whatever method you want, change 
the for loop to do as many as you want, (you might want to make it a 'do' loop 
since you will be checking for duplicates, etc. take whatever result you get 
from the generator and divide it by 25, then translate the remainder of the 
division into a corresponding letter where AÐ, BÑ, etc.  Using another pass 
through this routine but dividing by 10 and using the resulting remainder for 
the digit.

If you want to distribute the chars and digits randomly you could do another 
selection loop using the generator and weighting the result accordingly.

To check for duplicates load your 'good' results into a field or array and scan 
for the letter found (I'd cat them into a field and %scan).

The biggest problem you'll have is seeding the generator.  There are a lot of 
details to add in but this could be built inside a few hours, depending on the 
rest of your specs.

GL
Bill

----- Original Message -----
From: <Kelly_Fucile@vfc.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, November 08, 2001 1:50 PM
Subject: random alpha/numeric generator


>
> Hi,
>
> Is there a good way to create a random alpha/numeric id? Also not have it
> duplicate the number. We need to so this so that we can attach it to
> something else. We would like to be able to do it quickly and simply.
> Please help.
>
> Thanks,
>
> Kelly Fucile
> JanSport
> Programmer/Analyst
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.