2001-03-02 如何於系統中產生唯一的辨認碼（UUID）？

如 何於系統中產生唯一的辨認碼（UUID）？

FILE: QRPGLESRC
Member: GENUUIDR
Type: RPGLE

     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     'UUID'        DSPLY
     C     UUID          DSPLY
     C                   Return                                        
     **         
      


1. 描述 UUID 產生方式的文件，可用於交易編號知產生，在同一系統之中絕對不重複。

http://www.ics.uci.edu/~ejw/authoring/uuid-guid/draft-leach-uuids-guids-01.txt

2. 此範例是呼叫 AS/400 MI 函數而產生的。
3. Compiled : CRTBNDRPG GENUUIDR
4. Usage : Call GENUUIDR
5. Output : UUID 是十六進制的文字，所以畫面顯示會有亂碼或特殊顏色。