ABAP-向后补0

FUNCTION zbcfm002.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(I_PUT)  参数
*"     REFERENCE(I_LNG)  输出长度
*"  EXPORTING
*"     REFERENCE(E_PUT)
*"----------------------------------------------------------------------
  DATA:nullen(1) TYPE p VALUE '0',
       lng_i     TYPE i.

  FIELD-SYMBOLS: <i_ptr>,
                 <e_ptr>,
                 <a_ptr>.

  ASSIGN e_put(i_lng) TO <e_ptr>.
  UNPACK nullen TO <e_ptr>.

  lng_i = strlen( i_put ).
  ASSIGN i_put(lng_i) TO <i_ptr>.

  ASSIGN e_put+0(lng_i) TO <a_ptr>.
  MOVE <i_ptr> TO <a_ptr>.

ENDFUNCTION.