Anteponer el signo de los números

El siguiente código vuelca el contenido de un número real (negativo) a una variable alfanumérica, poniendo el signo como prefijo de la misma.

DATA: importe_r TYPE dmbtr, importe_c(16). WRITE importe_r TO importe_c NO-GROUPING. CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT' CHANGING value = importe_c. WRITE importe_c TO importe_c RIGHT-JUSTIFIED.