*&---------------------------------------------------------------------*
*& Report ZTEST_NEGATIVE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NEGATIVE.
DATA : GV_NUM TYPE I .
GV_NUM = '-9633110.235'.
WRITE : / '处理前输出样式:', GV_NUM.
SKIP 2.
PERFORM ASSET_FRONT_MINUS CHANGING GV_NUM.
*&---------------------------------------------------------------------*
*& Form asset_front_minus
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
*----------------------------------------------------------------------*
FORM ASSET_FRONT_MINUS CHANGING VALUE1.
DATA : VALUE2 TYPE I.
DATA : STRING1 TYPE CHAR20.
VALUE2 = ABS( VALUE1 ).
WRITE VALUE2 TO STRING1.
CONDENSE STRING1.
IF VALUE1 < 0.
WRITE:/ '处理后输出样式:', '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ELSE.
WRITE:/ '处理后输出样式:', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ENDIF.
*& Report ZTEST_NEGATIVE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NEGATIVE.
DATA : GV_NUM TYPE I .
GV_NUM = '-9633110.235'.
WRITE : / '处理前输出样式:', GV_NUM.
SKIP 2.
PERFORM ASSET_FRONT_MINUS CHANGING GV_NUM.
*&---------------------------------------------------------------------*
*& Form asset_front_minus
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
*----------------------------------------------------------------------*
FORM ASSET_FRONT_MINUS CHANGING VALUE1.
DATA : VALUE2 TYPE I.
DATA : STRING1 TYPE CHAR20.
VALUE2 = ABS( VALUE1 ).
WRITE VALUE2 TO STRING1.
CONDENSE STRING1.
IF VALUE1 < 0.
WRITE:/ '处理后输出样式:', '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ELSE.
WRITE:/ '处理后输出样式:', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ENDIF.
ENDFORM. "asset_front_minus
原文地址:http://blog.csdn.net/zhongguomao/article/details/45914315