#DEFINE s_ok  0 
*!* Declare the API that will be called
DECLARE INTEGER CoCreateGuid IN OLE32.DLL STRING @pGuid
IF !FILE('GUIDS.DBF')
   *!* Create a Database Container
   CREATE DATABASE GUIDTEST
[color=red]   *!* Create a table with a C( 38 ) field that is a primary key[/color]
   *!* The format of a GUID is '{nnnnnnnn-nnnn-nnnn-nnnn-nnnnnnnnnnnn}'
[color=red]   CREATE TABLE GUIDS (GUID C( 38 ) PRIMARY KEY)[/color]
ENDIF
FOR number_of_guids= 1  TO  15000 
   *!* Initialize the buffer that will hold the GUID
   pGuid=REPLICATE(CHR( 0 ), 17 )
   *!* Call CoCreateGuid
   lretval=CoCreateGuid(@pGuid)
   IF lretval=s_ok
      *!* Store the first eight characters of the GUID in data1
      cData1=RIGHT(TRANSFORM(strtolong(LEFT(pGuid, 4 )),"@0"), 8 )
.........