Re: UUID's

Hello John,

Here's an RPG/IV template for the GENUUID builtin:

     H Option( *NoSrcStmt )  DftActGrp( *No )                          
     **                                                                
     D UUID_template   Ds                                              
     D  UtBytPrv                     10u 0 Inz( %Size( UUID_template ))
     D  UtBytAvl                     10u 0                             
     D                                8a   Inz( *Allx'00' )            
     D  UUID                         16a                               
     **                                                                
     D GenUuid         PR                  ExtProc('_GENUUID')         
     D  UUID_template                  *   Value                       
     **                                                                
     C                   Callp     GenUuid( %Addr( UUID_template ))    
     **                                                                
     C                   Return                                        
     **         

Best regards,
Carsten Flensburg
                                                     


----- Original Message ----- 
From: <owner-midrange-l@midrange.com>
To: <MIDRANGE-L@midrange.com>
Sent: 10. november 2000 00:59
Subject: Re: UUID's


> 
> 
> Thanks Phil.
> 
> I don't have access to any MI documentation. Do you have a procedure
> prototype for this instruction? Or even a parameter list that I can use to
> get started?
> 
> 
> John Taylor
> Canada
> 
> ----- Original Message -----
> From: "Phil Hall" <hallp@ssax.com>
> To: <MIDRANGE-L@midrange.com>
> Sent: Thursday, November 09, 2000 16:00
> Subject: Re: UUID's
> 
> 
> > > Does anyone know if OS/400 provides an API, or other method of
> generating
> > a
> > > UUID?
> >
> > Yes, GENUUID() MI instruction.
> >
> > --phil
> 
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---