hi sir Mike,
i tried this, but not getting same result.
cValue="My Shop"
cTag=RIGHTC(Transform(1, '@02X'),2)
cLen=RIGHTC(Transform(LEN(CREATEBINARY(cValue)), '@02X'),2)
?base64_encode(cTag+cLen+cValue)
FUNCTION base64_encode(S as String)
LOCAL i,j,k,q,ch,s2,buf,basechars
basechars =...