
  TYPE
    clt$type_kind = (clc$application_type, clc$array_type, clc$boolean_type,
          clc$cobol_name_type, clc$command_reference_type, clc$data_name_type,
*IF NOT $true(osv$unix)
          clc$date_time_type, clc$entry_point_reference_type, clc$file_type,
          clc$integer_type, clc$keyword_type, clc$list_type, clc$lock_type,
          clc$name_type, clc$network_title_type, clc$program_name_type,
          clc$range_type, clc$real_type, clc$record_type,
          clc$scu_line_identifier_type, clc$statistic_code_type,
          clc$status_type, clc$status_code_type, clc$string_type,
          clc$string_pattern_type, clc$time_increment_type, clc$time_zone_type,
          clc$type_specification_type, clc$union_type);
*ELSE
          clc$date_time_type, clc$entry_point_reference_type,
          clc$nos_ve_file_type, clc$integer_type, clc$keyword_type,
          clc$list_type, clc$lock_type, clc$name_type, clc$network_title_type,
          clc$program_name_type, clc$range_type, clc$real_type,
          clc$record_type, clc$scu_line_identifier_type,
          clc$statistic_code_type, clc$status_type, clc$status_code_type,
          clc$string_type, clc$string_pattern_type, clc$time_increment_type,
          clc$time_zone_type, clc$type_specification_type, clc$union_type,
          clc$unix_file_type,
          {} clc$reserved_type_kind_30,
          {} clc$reserved_type_kind_31);

    CONST
      clc$file_type = clc$unix_file_type;

*IFEND

