安安
补0
DATA:LV_STR(8) VALUE ‘A’.
WHILE STRLEN( LV_STR ) < 5.
LV_STR = ‘0’ && LV_STR.
ENDWHILE.
DATA:LINT_INDEX TYPEI.
DATA: ZERO(1) VALUE ‘O’.
DATA:LV LEN TYPEI.
DESCRIBE FIELD LV_STR OUTPUT-LENGTH LV_LEN.
LINT_INDEX = LV_LEN - STRLEN(LV_STR).
IF STRLEN(LV_STR) <LV_LEN.
DO LINT_INDEX TIMES.
CONCATENATE ZERO LV_STR INTO LV_STR.
ENDDO.
ENDIF.
原文链接:https://blog.csdn.net/an1850329665/article/details/121524133