ABAP 中给字段补0 的处理代码

 

ABAP 中给字段补0 的处理代码，如 Customer table: VNA1 的 customer number: kunnr的字段长度规定是 10 位，那么我们就要对其进行动态的补 0

e.g  Kunnr: 1031

     1031-->0000001031

Kewword: CONCATENATE

用法：CONCATENATE ZEROCUST_NOINTO CUST_NO.

ZERO为要补的内容

CUST_NO补给的对象

INTO CUST_NO  最终合并的对象                          

*-----------------------------------------------------------------------

* Form get customer number

*-----------------------------------------------------------------------

FORM GET_CUST_NO.

 

DATA: LINT_INDEX TYPE I.

DATA: ZERO(1).

 

    LINT_INDEX = 10 - LINT_INDEX.

    IF STRLEN( CUST_NO ) < 10.

        DO LINT_INDEX TIMES.

            CONCATENATE ZERO CUST_NO INTO CUST_NO.

        ENDDO.

    ENDIF.

ENDFORM.