 TYPE
    fdt$record_attribute = record
      put_value_status: {output} fdt$put_value_status ,
      case key:  {input} fdt$change_record_key of

      = fdc$record_deck_name =
        record_deck_name: {input} ost$name,

      = fdc$record_name =
        record_name: {input} ost$name,

      = fdc$record_type =
        record_type: {input} fdt$record_type,

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

      = fdc$unused_record_entry =
        ,

      casend
    recend;

*copyc fdt$put_value_status
*copyc fdt$change_record_key
*copyc ost$name
*copyc fdt$record_type
