Jim,

I'm aware of this.
I'm used to use DO CASE in various way's for example:

IF OpenDBFExlusive ("test.dbf","Alias")
DO CASE
CASE TYPE("alias." +Field(1,"Alias") )="N"
cType="Numeric"

CASE TYPE("alias." +Field(1,"Alias") ="C"
cType="Character"

CASE TYPE("alias." +Field(1,"Alias") ="G"
cType="General"
ENDCASE
ENDIF

could be rewritten in:
DO CASE
CASE !OpenDBFExlusive ("test.dbf","Alias")

CASE TYPE("alias." +Field(1,"Alias") )="N"
cType="Numeric"

CASE TYPE("alias." +Field(1,"Alias") ="C"
cType="Character"

CASE TYPE("alias." +Field(1,"Alias") ="G"
cType="General"
ENDCASE