Review Considerations for Creating Index Expressions in the help.
Try

Index On Iif(Empty(lacy), PADR('zzz', LEN(lacy)),lacy) Tag lacy

>
>Help please,
>
>I moved from vfp8 to vfp9.
>
>I get error 2199 on the following code (only in vfp9 even if I add SET ENGINEBEHAVIOR 80).
>
>It is not my source code, I didn't understand the complex index structure necessity but I dont want to touch and the code programmer not avaliable.
>
>Here is the code (error in last line)
>

Create Cursor tmp1 (systid C(3),lacy C(10),qtyoh I,dueflag L)
>Index On Iif(Empty(lacy),'zzz',lacy) Tag lacy
>Set Order To
>INSERT into tmp1 (systid,lacy,qtyoh) ;
>	values('','',1)
>	
>	INSERT into tmp1 (systid,lacy,qtyoh) ;
>	values('STRNG','A',1)