Hola
@Fito, probe tu ejemplo solamente cambiando la coma por punto y funciona perfecto , modifique el valor de 1000.02 por 21000.02 y tambien lo toma
Código COBOL:
01 wdatos.
02 wtipo pic 999.
02 wperiodo pic x(7).
02 wimporte pic 9(9)v99.
02 l-importe pic z(9).zz. *> Cambia la coma por punto y funciona perfecto
Me parece que el problema es la configuracion regional.....
te mando un pantalllazo
Saludos ...