AIX shell script loop and move

I need a shell script for AIX unix that will let me specifiy a starting directory and then loop through all the sub-directories and files and move them according to the sub-directory they were located in.  For example.

If I start in a directory named "tommy" and I have three sub-directories named "a", "b", and "c" then I want to move all the files located in "a" to a specific folder name "newfoldera", and so forth.  Keep in mind, one of the sub-directories could also have a sub-directory in itself so the script would need to be recursive. Thanks in advance for the help on this!