Gracias Jeff, pero al hacerlo así da error al ser un campo currency. (valor demasiado grande).
Lo solucioné asi:
DATA impabono(15) type p.
impabono = bsak-wrbtr.
if bsak-shkzg = 'S'.
impabono = impabono * -1.
else.
endif.
write impabono.
un saludo.
__________________
José Luis Dominguez
|