 TYPE
    fdt$get_record_attribute = record
      get_value_status {output} : fdt$get_value_status,
      case key {input} fdt$get_record_key of

      = fdc$get_record_deck_name =
        record_deck_name: {output} ost$name,

      = fdc$get_record_length =
        record_length {output} : fdt$record_length,

      = fdc$get_record_name =
        record_name {output} : ost$name,

      = fdc$get_record_type =
        record_type {output} : fdt$record_type,

      = fdc$get_table_access =
        table_name {input} : ost$name,
        access_all_occurrences {output} : boolean,

      = fdc$get_unused_record_entry =
        ,

      casend
    recend;

*copyc fdt$get_value_status
*copyc fdt$get_record_key
*copyc fdt$number_variables
*copyc ost$name
*copyc fdt$occurrence
*copyc fdt$program_data_type
*copyc fdt$record_position
*copyc fdt$record_length
*copyc fdt$record_type
