How to determine the passed Data Type in a ? (any) parameter?

I think I found a tiny bit more on the origins of TUFO
www.attryde.com/clarion/binary/tswd.txt

(*  new types for clarion *)

    Decimal,
    Pdecimal,
    Bfloat,
    UFO,
    DynDecimal,
    DynPdecimal,