Ich würde es mit ILE RPG probieren, und zwar mit der BIF %SCAN und %SUBST.
Mit Scan kann Du nach dem . und dem , suchen
und dir damit die genaue Position ausgeben lassen und dann mit den Zahlen, kannst Du dir dann mittels Subst den String rausholen.