my $rec = $this->record_source(0)->next_record;
my $dval = $rec->dvals->[0];
if ($dval->dimension_id == 1000) {
   $dval->dimension_id = 2000; # Swap dimensions
}