    class
    	ECOM_DECIMAL

    General
    	cluster: structures
    	description: "COM Decimal Structure.  Wrapping COM DECIMAL type"
    	create: make_from_double, make_from_pointer, make

    Ancestors
    	ECOM_STRUCTURE*
    	NUMERIC*

    Queries
    	absolute: ECOM_DECIMAL
    	ceiled_integer_portion: ECOM_DECIMAL
    	divisible (other: ECOM_DECIMAL): BOOLEAN
    	exists: BOOLEAN
    	exponentiable (other: ECOM_DECIMAL): BOOLEAN
    	infix "*" (other: [like Current] ECOM_DECIMAL): [like Current] ECOM_DECIMAL
    	infix "+" (other: [like Current] ECOM_DECIMAL): [like Current] ECOM_DECIMAL
    	infix "-" (other: [like Current] ECOM_DECIMAL): [like Current] ECOM_DECIMAL
    	infix "/" (other: [like Current] ECOM_DECIMAL): [like Current] ECOM_DECIMAL
    	infix "^" (other: [like Current] ECOM_DECIMAL): [like Current] ECOM_DECIMAL
    	is_equal (other: [like Current] ECOM_DECIMAL): BOOLEAN
    	item: POINTER
    	one: ECOM_DECIMAL
    	prefix "+": [like Current] ECOM_DECIMAL
    	prefix "-": [like Current] ECOM_DECIMAL
    	rounded (value: INTEGER_32): ECOM_DECIMAL
    	scale: INTEGER_32
    	shared: BOOLEAN
    	structure_size: INTEGER_32
    	truncated_to_double: REAL_64
    	truncated_to_integer_portion: ECOM_DECIMAL
    	zero: ECOM_DECIMAL

    Commands
    	copy (other: [like Current] ECOM_DECIMAL)
    	dispose
    	initialize
    	initialize_with_character (a_character: CHARACTER_8)
    	make
    	make_from_double (dbl_value: REAL_64)
    	memory_copy (source_pointer: POINTER; length: INTEGER_32)
    	set_shared
    	set_unshared
    	set_value (source: [like Current] ECOM_DECIMAL)