NoBug1()
Bug1()
TryToRemoveBug1()

PROCEDURE NoBug1
LOCAL X,Y
Y = 'AAA'
X = 'AAAA'
X = .NULL.
? CTOBIN(m.X)
Y = .NULL.
? CTOBIN(m.Y)
ENDPROC

PROCEDURE Bug1
LOCAL X,Y
X = 'AAAA'
Y = 'AAA'	&& this string is 3 lenght, a bad lenght for CTOBIN
X = .NULL.      && X is filled with a null string with lenght = 3
? CTOBIN(m.X)   && <== error
Y = .NULL.	&& Y is filled with a null string with lenght = 3
? CTOBIN(m.Y)   && <== error
ENDPROC

PROCEDURE TryToRemoveBug1
LOCAL X,Y,Z
X = 'AAAA'
Y = 'AAA'	  && this string is 3 lenght, a bad lenght for CTOBIN
X = .NULL.        && X is filled with a null string with lenght = 3
? CTOBIN(m.X)     && <== error
Y = .NULL.	  && X is filled with a null string with lenght = 3
? CTOBIN(m.Y)     && <== error
X = 'S'		  && 1 is good for CTOBIN, this remove the bug ? No
Y = .NULL.	  && i think this operation is ignored because Y is NULL
? CTOBIN(m.Y)     && <== error
Y = 'AAA'	  && this string is 3 lenght, a bad lenght for CTOBIN
X = 'S'		  && 1 is good for CTOBIN, this remove the bug ? Yes
Y = .NULL.	  && Y is filled with a null string with lenght = 1
? CTOBIN(m.Y)     && <== no error
ENDPROC