在财务报表中,我们遇到很多情况都需要输出带有千分位的小数,大多数的做法是设置为CURR类型。但有时我们也需要将其引用为String类型,其实实现的方法很简单。主要的方法就是先设置一个P的变量,然后write这个变量到string中。另外如何将负号“-”设置在最前面,可以参照下面的例子,这里就不一一叙述了。
REPORT Z_TEST.
DATA: p TYPE p DECIMALS 4 ,
str(16) TYPE c .
p = '-232323.2'.
IF p < 0 .
p = - p.
WRITE P TO STR.
CONDENSE str.
CONCATENATE '-' str INTO str.
p = - p.
ELSE.
WRITE p TO str.
ENDIF.
WRITE str.