RE: random alpha/numeric generator

If you want to generate unique ID strings you could try GENUUID.

H   BNDDIR('QC2LE' : 'QUSAPIBD')
H
D GENUUID         PR                  EXTPROC('_GENUUID')
D  UUID_T                         *
 *
D UUID_T          DS                  ALIGN
D  BytesProv                    10U 0 inz(32)
D  BytesAvail                   10U 0 inz(0)
D  Reserved                      8    inz(*allx'00')
D  UUID                         16    inz(*allx'00')
 *
 *
C                   callb     '_GENUUID'
C                   parm                    UUID_T
 *

 |  -----Original Message-----
 |  From: Kelly_Fucile@vfc.com [mailto:Kelly_Fucile@vfc.com]
 |  Sent: Thursday, November 08, 2001 13:51
 |  To: rpg400-l@midrange.com
 |  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.
 |