Yo haria lo siguiente:
Código COBOL:
01 Tarifa.
02 cpo-1 pic 999.
02 cpo-2 pic x
02 cpo-3 pic 99.
01 valor1 pic 9(5).
01 valor2 pic 999v99.
move cpo-1 to valor1(01:03)
move cpo-3 to valor1(04:02)
move valor1 to valor2
En valor dos es un campo numero que sirve para hacer cualquier tipo de cuenta.
Saludos y espero que sirva.