RE: random alpha/numeric generator

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

I think you're right. Originally, IBM told me that anything whose name
began with either the letters "CEE" or an underscore would in-line
functions.
I have an MI book and have written a lot of MI code, but I don't have a
V3, V4 or V5 version of the MI book. I was unaware it was still being
published. I guess I'll have to check for it in the Info Center (God
help me!) :)


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 2:26 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: random alpha/numeric generator
>
> Bob,
>
> Well this comes under the heading of neat things found while looking
for
> something else.
>
> In "IBM Distributed Computing Environment Version 2.2, Base Services
for
> AS/400: Getting Started" SC41-5601-00  in  C.7 Generating Universal
Unique
> Identifiers (UUID) it's briefly mentioned.  The prototype is in
> QSYSINC/MIH.GENUUID - I don't know if the member description text is
correct
> or not.   There's more detail about it in the MI manual.  (even though
I've
> never written any real MI pgms this was a worthwhile book to get)
>
> I think all the APIs that start with underscore are really MI builtin
> functions.  When the compiler sees  CallB  to one of these it inlines
the MI
> into the RPG object... inline assembler in your RPG.  I'm not 100%
sure on
> this though.
>
>
> Tom
>
>
>  |  -----Original Message-----
>  |  From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
>  |  Sent: Thursday, November 08, 2001 15:01
>  |  To: rpg400-l@midrange.com
>  |  Subject: RE: random alpha/numeric generator
>  |
>  |
>  |  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.
>  |
>  |
>  |  _______________________________________________
>  |  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.