
  TYPE
    clt$type_specification_header = record
      version: clt$declaration_version,
      name_size: 0 .. osc$max_name_size,
      { clt$type_name_reference follows header if name_size > 0 }
      case kind: clt$type_kind of
      = clc$application_type =
        { clt$application_type_qualifier follows header } ,
      = clc$array_type =
        { clt$array_type_qualifier follows header } ,
      = clc$boolean_type =
        ,
      = clc$cobol_name_type =
        ,
      = clc$command_reference_type =
        ,
      = clc$data_name_type =
        ,
      = clc$date_time_type =
        { clt$date_time_type_qualifier follows header } ,
      = clc$entry_point_reference_type =
        ,
*IF NOT $true(osv$unix)
      = clc$file_type =
*ELSE
      = {clc$file_type} clc$nos_ve_file_type, clc$unix_file_type =
*IFEND
        ,
      = clc$integer_type =
        { clt$integer_type_qualifier follows header } ,
      = clc$keyword_type =
        { clt$keyword_type_qualifier follows header } ,
      = clc$list_type =
*IF NOT $true(osv$unix)
        { clt$list_type_qualifier follows header } ,
*ELSE
        { clt$list_type_qualifier[_v2] follows header } ,
*IFEND
      = clc$lock_type =
        ,
      = clc$name_type =
        { clt$name_type_qualifier follows header } ,
      = clc$network_title_type =
        ,
      = clc$program_name_type =
        ,
      = clc$range_type =
        { clt$range_type_qualifier follows header } ,
      = clc$real_type =
        { clt$real_type_qualifier follows header } ,
      = clc$record_type =
        { clt$record_type_qualifier follows header } ,
      = clc$scu_line_identifier_type =
        ,
      = clc$statistic_code_type =
        ,
      = clc$status_type =
        ,
      = clc$status_code_type =
        ,
      = clc$string_type =
        { clt$string_type_qualifier follows header } ,
      = clc$string_pattern_type =
        ,
      = clc$time_increment_type =
        ,
      = clc$time_zone_type =
        ,
      = clc$type_specification_type =
        ,
      = clc$union_type =
*IF NOT $true(osv$unix)
        { clt$union_type_qualifier follows header } ,
*ELSE
        { clt$union_type_qualifier[_v2] follows header } ,
*IFEND
      casend,
    recend;

*copyc clt$declaration_version
*copyc clt$type_kind
*copyc ost$name
