ABAP中给字段补0的处理代码
ABAP 中给字段补0 的处理代码，如 Customer table: VNA1 的 customer number: kunnr的字段长度规定是 10 位，那么我们就要对其进⾏动态的补 0 e.g  Kunnr: 1031
1031-->0000001031
Kewword: CONCATENATE
字符串长度不够后面补0公式⽤法：CONCATENATE ZERO CUST_NO INTO 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.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。