LOCAL lcGUID
lcGUID = CreateGUID()
**
PROCEDURE CreateGuid
*** Procedure : CreateGUID
*** Purpose : Creates a Globally Unique IDentifier
*** Parameters :
*** Returns : GUID as string: "{00112233-4455-6677-8899-AABBCCDDEEFF}"
DECLARE INTEGER CoCreateGuid IN Ole32.dll STRING @
DECLARE INTEGER StringFromGUID2 IN Ole32.dll STRING, STRING @, LONG
LOCAL lcGuidStruct, lcGuid, lnSize, lcReturn
lcGuidStruct = SPACE(16)
lcGuid = SPACE(80)
lcReturn = ""
IF CoCreateGuid(@lcGuidStruct) = 0 && 0 = No Errors
IF StringFromGuid2(lcGuidStruct, @lcGuid, (LEN(lcGuid) / 2)) <> 0 && Non-zero = No Errors
lcReturn = STRCONV(LEFT(lcGuid, 76), 6)
ENDIF
ENDIF
RETURN lcReturn
ENDPROC