Kbase P109048: base64-encode function causes compilation to fail with error 223.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
9/21/2005 |
|
Status: Unverified
FACT(s) (Environment):
OpenEdge 10.0B
SYMPTOM(s):
base64-encode function causes compilation to fail with error 223.
Statements of the following form fail compilation in 10.0B03
define variable cCry as character no-undo.
define variable cPWD as character no-undo.
define variable m as memptr no-undo.
cCry = (if cPWD = ? then ?
else if cPWD = '':U then '':U
else 'x' + base64-encode(m)).
The compilation works in 10.1A2B.
** Incompatible data types in expression or assignment. (223)
FIX:
This is a known issue being investigated by Development.
As a work around, upgrade to 10.1A or alternatively modify the code as follows:
define variable cCry as character no-undo.
define variable cPWD as character no-undo.
define variable m as memptr no-undo.
DEFINE VARIABLE cTest AS CHARACTER NO-UNDO.
DEFINE VARIABLE pclong AS LONGCHAR NO-UNDO.
DEFINE VARIABLE PCCHAR AS CHARACTER NO-UNDO.
cPWD = 'test'.
set-size(m) = 1.
put-byte(m,1) = 65.
pclong = base64-encode(m).
PCCHAR = 'X' + PCLONG.
cCry = (if cPWD = ? then ?
else if cPWD = '':U then '':U
else PCCHAR).