ABAP负号提前的测试

来源：互联网发布：淘宝pc转无线连接编辑：程序博客网时间：2024/04/26 22:32

*&---------------------------------------------------------------------*
*& 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

0 0