define record CDD$top.basic.variant_example
        description is
              /* test simple variant */.
        variant_example structure.
              my_string datatype text size 9.
              variants.
                    variant.
                          my_s_real datatype f_floating.
                          my_d_real datatype d_floating.
                    end variant.
                    variant.
                          my_g_real datatype g_floating.
                          my_h_real datatype h_floating.
                    end variant.
              end variants.
                          my_byte datatype signed byte.
      end variant_example structure.
  end variant_example.