如何去掉前导零

  

如何去掉变量 '001000010' 前面的 '00' 呀？就是把它变成 '1000010'

方法 1 使用 SHIFT 语句

SHIFT str LEFT  DELETING LEADING '0'.

另 SHIFT c RIGHT DELETING TRAILING c1. 用来截去后面的字符是很不错的。

方法 2 使用函数 不推荐

FUNCTION SHIFTZERO.
*"----------------------------------------------------------------------
*"*" 本地接口 :
*"       CHANGING
*"             VALUE(STR) DEFAULT SPACE
*"----------------------------------------------------------------------
IF STR NE SPACE.
DATA:  STRTEMP(50) TYPE C, LENGTH TYPE I , LENINFACT TYPE I.
LENGTH = STRLEN( STR ).
LENINFACT = LENGTH.
STRTEMP = STR.   " Because the function para can't be +0(1)
DO LENGTH TIMES.
 IF STRTEMP+0(1) EQ '0'.
     LENINFACT = LENINFACT - 1.
     STRTEMP = STRTEMP+1(LENINFACT).
 ELSE.
     EXIT.
 ENDIF.
ENDDO.
STR = STRTEMP.
ENDIF.
ENDFUNCTION.

方法 3 WRITE 语句

WRITE: '000123',
    / '000123' NO-ZERO.000123

方法 4  CALL FUNCTION

data: p1(5) type c value '00100'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
   input         = p1
 IMPORTING
   OUTPUT        = p1.

其中方法4是最为常用的。

另 FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 为加前导零时使用。