Si hay qu hacer un blucle para ubicar la coma,
Se me ocurre Otra, que pasa si defines un CmText con el RenderText de 999999,9999, le mueves el texto al "text" y luego el POW-NUMERIC a un campo pic 999999v9999 eso funciona, y no hay que hacer nada.
Código COBOL:
WORKING-STORAGE SECTION.
01 campo pic x(7) value "123,48".
01 numer pic 9(6)v9(4).
01 zetas pic 999999,9999.
PROCEDURE DIVISION.
move campo to "Text" OF cmtext1
MOVE POW-NUMERIC OF cmtext1 TO numer.
move numer to zetas.
display zetas