
  TYPE
    clt$i_data_value = record
      case kind: clt$data_kind of
      = clc$application =
        application_value: REL (clt$internal_data_value)
              ^clt$application_value_text,
      = clc$array =
        array_value: REL (clt$internal_data_value) ^array [ * ] of
              REL (clt$internal_data_value) ^clt$i_data_value,
      = clc$boolean =
        boolean_value: clt$boolean,
      = clc$cobol_name =
        cobol_name_value: REL (clt$internal_data_value) ^clt$cobol_name,
      = clc$command_reference =
        command_reference_value: REL (clt$internal_data_value)
              ^clt$command_reference,
      = clc$data_name =
        data_name_value: REL (clt$internal_data_value) ^ost$name,
      = clc$date_time =
        date_time_value: clt$date_time,
      = clc$deferred =
        deferred_value: REL (clt$internal_data_value) ^clt$expression_text,
      = clc$entry_point_reference =
        entry_point_reference_value: REL (clt$internal_data_value)
              ^pmt$entry_point_reference,
*IF NOT $true(osv$unix)
      = clc$file =
*ELSE
      = {clc$file} clc$nos_ve_file, clc$unix_file =
*IFEND
        file_value: REL (clt$internal_data_value) ^fst$file_reference,
      = clc$integer =
        integer_value: clt$integer,
      = clc$keyword =
        keyword_value: REL (clt$internal_data_value) ^clt$keyword,
      = clc$list =
        element_value: REL (clt$internal_data_value) ^clt$i_data_value,
        link: REL (clt$internal_data_value) ^clt$i_data_value,
        generated_via_list_rest: boolean,
      = clc$lock =
        lock_value: REL (clt$internal_data_value) ^clt$lock,
      = clc$name =
        name_value: REL (clt$internal_data_value) ^ost$name,
      = clc$network_title =
        network_title_value: REL (clt$internal_data_value) ^nat$title,
      = clc$program_name =
        program_name_value: REL (clt$internal_data_value) ^pmt$program_name,
      = clc$range =
        low_value: REL (clt$internal_data_value) ^clt$i_data_value,
        high_value: REL (clt$internal_data_value) ^clt$i_data_value,
      = clc$real =
        real_value: clt$real,
      = clc$record =
        field_values: REL (clt$internal_data_value) ^array [1 .. * ] of
              clt$internal_field_value,
      = clc$scu_line_identifier =
        scu_line_identifier_value: clt$scu_line_identifier,
      = clc$statistic_code =
        statistic_code_value: sft$statistic_code,
      = clc$status =
        status_value: REL (clt$internal_data_value) ^ost$status,
      = clc$status_code =
        status_code_value: ost$status_condition_code,
      = clc$string =
        string_value: REL (clt$internal_data_value) ^clt$string_value,
      = clc$string_pattern =
        string_pattern_value: REL (clt$internal_data_value)
              ^clt$string_pattern,
      = clc$time_increment =
        time_increment_value: REL (clt$internal_data_value)
              ^pmt$time_increment,
      = clc$time_zone =
        time_zone_value: ost$time_zone,
      = clc$type_specification =
        type_specification_value: REL (clt$internal_data_value)
              ^clt$type_specification,
      = clc$unspecified =
        ,
      casend,
    recend;

*copyc clt$application_value_text
*copyc clt$boolean
*copyc clt$cobol_name
*copyc clt$command_reference
*copyc clt$data_kind
*copyc clt$date_time
*copyc clt$expression_text
*copyc clt$integer
*copyc clt$internal_data_value
*copyc clt$internal_field_value
*copyc clt$keyword
*copyc clt$lock
*copyc clt$real
*copyc clt$scu_line_identifier
*copyc clt$string_value
*copyc clt$string_pattern
*copyc clt$type_specification
*copyc fst$file_reference
*copyc nat$title
*copyc ost$name
*copyc ost$status
*copyc ost$status_condition_code
*copyc ost$time_zone
*copyc pmt$entry_point_reference
*copyc pmt$program_name
*copyc pmt$time_increment
*copyc sfd$type_declarations
