UPDATE: See my other reply.

>Could you please point me what functions to use to make that binary data to clear text?

I don't know if there's any function. Try

lcClsidBin = SUBSTR(ole, 0x800+1,16)
lcStr = SUBSTR(TRANSFORM(CTOBIN(LEFT(lcClsidBin,4), "4RS"), "@0"), 3)
lcClsid = "{" 
lcClsid = lcClsid +  lcStr + "-"
lcStr = SUBSTR(TRANSFORM(CTOBIN(SUBSTR(lcClsidBin,5,4), "4RS"), "@0"),3)
lcClsid = lcClsid + RIGHT(lcStr,4) + "-" + LEFT(lcStr,4) + "-"
lcStr = SUBSTR(TRANSFORM(CTOBIN(SUBSTR(lcClsidBin,9,2), "2S"), "@0"),7)
lcClsid = lcClsid + RIGHT(lcStr,4) + "-" 
lcStr = SUBSTR(TRANSFORM(CTOBIN(SUBSTR(lcClsidBin,11,4), "4S"), "@0"),3)
lcClsid = lcClsid + lcStr 
lcStr = SUBSTR(TRANSFORM(CTOBIN(SUBSTR(lcClsidBin,15,2), "2S"), "@0"),7)
lcClsid = lcClsid + RIGHT(lcStr,4) 
lcClsid = lcClsid + "}"
? lcClsid