在ABAP中给字段补的处理代码的方法
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.
本文地址:http://www.45fan.com/bcdm/71912.html