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
("PowerBuilder.Application")
IF result < 0 THEN
return FALSE
ELSE
ll_result = PBObject.GenerateGUID(REFls_GUID)
return true
END IF