อยากได้ Leading Zero (0001) แบบ Dynamic ทำไง มาดูกันครับ
*&———————————————————————*
*& Form f_leading_zero
*&———————————————————————*
* Create Leading Zero text
*———————————————————————-*
* –>I_NUM Input Number
* –>I_LEN Length
* –>O_OUT Output text
*———————————————————————-*
FORM f_leading_zero USING i_num
i_len
CHANGING o_out.
DATA: lo_data TYPE REF TO data,
lv_out TYPE string.
FIELD-SYMBOLS: <data> TYPE ANY.
CREATE DATA lo_data TYPE n LENGTH i_len.
ASSIGN lo_data->* TO <data>.
<data> = i_num.
lv_out = <data>.
o_out = lv_out.
ENDFORM. “f_leading_zero