 TYPE
    fdt$form_area = record
      case key: fdt$form_area_key of

      = fdc$defined_area =
        x_position: fdt$x_position,
        y_position: fdt$y_position,
        width: fdt$width,
        height: fdt$height,

      = fdc$screen_area =
        ,

      casend
    recend;

*copyc fdt$form_area_key
*copyc fdt$x_position
*copyc fdt$y_position
*copyc fdt$width
*copyc fdt$height
