如何在PB中取得全球识别码

oleObject PBObject

long ll_result,result

PBObject = CREATE oleObject

result = PBObject.ConnectToNewObject &
("PowerBuilder.Application")
IF result < 0 THEN
return FALSE
ELSE
ll_result = PBObject.GenerateGUID(REFls_GUID)
return true
END IF