Here is the simple script
Names Default To Here( 1 );
dt = Current Data Table();
For Each Row(
dt:YourColumn = Substr( dt:YourColumn, 1, Length( dt:YourColumn ) - 4 ) || "9" ||
Right( dt:YourColumn, -2 )
);
I strongly suggest that you take the time to read the Scripting Guide, so that you will have the background knowledge that will allow you to solve these questions
Jim