× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.