Cuando se trabaja con Ado utilizando UPDATE se pueden pasar los númericos con la representación de Cobol, pero si accedes nativamente a la bbdd hay que hacer lo que dice jcantero.
Esto es lo que hago en esos casos:
Código COBOL:
01 VALORORIGINAL PIC S9(10)V99.
01 VALORNUEVO PIC ----------,--.
01 VALORAPASAR PIC X(13).
MOVE VALORORIGINAL TO VALORNUEVO
MOVE VALORNUEVO TO VALORAPASAR
INSPECT VALORAPASAR REPLACING ALL ',' BY '.'
Y después hago el insert con ese valor o el update.
Luego hago un
INSPECT REPLACING y sustituyo la coma por el punto, siempre que estemos en un sistema decimal como el que se utiliza en España.
Y una vez cambiada paso el valor