* データ構造をアサイン
ASSIGN: u_fs_str TO <l_fs_str>.
* フィールド単位で変換処理
DO.
UNASSIGN: <l_fs_comp>.
CLEAR: l_i_length,
l_s_string.
* フィールド単位でREAD(固定バイト長構造と固定文字長構造)
ASSIGN COMPONENT sy-index OF STRUCTURE:
<l_fs_str> TO <l_fs_comp>.
IF sy-subrc <> 0.
* 最後のフィールドに到達の為、ループから抜ける
EXIT.
ELSE.
* 処理継続
ENDIF.
* 編集用バイト長構造の項目毎に「長さ」を取得
DESCRIBE FIELD <l_fs_comp> LENGTH l_i_length IN CHARACTER MODE.
l_s_string = <l_fs_comp>.