RE: random alpha/numeric generator

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

Tom,

Where are the underscore APIs documented, such as _GENUUID? I don't see
them in the System API manual.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Tom Daly
> Sent: Thursday, November 08, 2001 1:38 PM
> To: 'rpg400-l@midrange.com'
> Subject: 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.
>  |
> _______________________________________________
> 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.