 CONST
    fdc$system_record_type = fdc$program_data_type_record;

*copyc fdt$record_type
