全角埋める

DATA:     c_zen_sp(300)     TYPE c,         "全角スペース

CONSTANTS:
           cc_zen_sp(1)            TYPE c
                                    VALUE '　',             "全角スペース

CLEAR:  c_zen_sp WITH cc_zen_sp IN CHARACTER MODE.

*&---------------------------------------------------------------------*
* 　 C_CHAROUT         : 全角項目　　　　　　　            [変更]
*----------------------------------------------------------------------*
FORM fm_name_change
         CHANGING
           c_c_string TYPE c.
* 左寄り
  SHIFT c_c_string LEFT DELETING LEADING space.

* 全角スペースで埋める
  CONCATENATE c_c_string c_zen_sp INTO c_c_string.

ENDFORM.