 TYPE
    fdt$get_object_definition = record
      case key: {input} fdt$object_definition_key of

      = fdc$box =
        box_width: {output} fdt$width,
        box_height: {output} fdt$height,

      = fdc$line =
        x_increment: {output} fdt$x_increment,
        y_increment: {output} fdt$y_increment,

      = fdc$constant_text =
        constant_text_width: {output} fdt$width,
        constant_text_length: {output} fdt$text_length,

      = fdc$constant_text_box =
        constant_box_height: {output} fdt$height,
        constant_box_processing: {output} fdt$text_box_processing,
        constant_box_width: {output} fdt$width,
        constant_box_text_length: {output} fdt$text_length,

      = fdc$table =
        table_height: {output} fdt$height,
        table_width: {output} fdt$width,

      = fdc$variable_text_box =
        variable_box_height: {output} fdt$height,
        variable_box_processing: {output} fdt$text_box_processing,
        variable_box_text_length: {output} fdt$text_length,
        variable_box_width: {output} fdt$width,

      = fdc$variable_text =
        variable_text_length: {output} fdt$text_length,
        variable_text_width: {output} fdt$width,

      casend
    recend;

*copyc fdt$object_definition_key
*copyc fdt$width
*copyc fdt$height
*copyc fdt$x_increment
*copyc fdt$y_increment
*copyc fdt$text_length
*copyc fdt$text_box_processing
