  TYPE
    fdt$variable_value = record
      case program_data_type: fdt$program_data_type of
      = fdc$program_character_type, fdc$program_upper_case_type =
        p_text: ^fdt$text,
        text_length: fdt$text_length,
      = fdc$program_cobol_type =
        p_cobol_data: ^cell,
        cobol_data_length: fdt$program_variable_length,
      = fdc$program_integer_type =
        integer_value: integer,
      = fdc$program_real_type =
        real_value: real,
      casend
    recend;

*copyc fdt$program_variable_length
*copyc fdt$program_data_type
*copyc fdt$text
*copyc fdt$text_length
