3 alternatives, no easy way to do it.
1. Locate each _ and partition each section into a different column. Hope you don't have too many sections.
2. Although I am not a BASIC/PERL/COBOL programmer, I believe you can move the table to a file, partition it programatically and reload the tabble.
3. If you have V2R5 (I don't) you amy be able to create or find a user defined function (UDF) to perform the task.