Here you go....

The only drawback to this is that the parameters passed cannot be declared as local in the calling procedure

PROCEDURE cMyFunc( uMyVar )

IF TYPE('uMyVar') = 'C' AND NOT INLIST(TYPE(uMyVar),'U','N')
cReturnValue = TYPE(uMyVar)
ELSE
cReturnValue = TYPE('uMyVar')
ENDIF
RETURN cReturnValue
ENDPROC


Kurt