ABAPの小技

パス入力を求めるシステムで有効。

ここでは文字列の項目（type c）にパスが格納されているとする。

data path(50) type c value '/user/data/data.csv'.

ファイル名抜き出し。

data : filename(30) type c,
       x type i.

move 0 to x.

* 文字列の終端探し
while path+x(1) <> space.
  x = x + 1.
endwhile.

* 戻ってディレクトリの区切り探し
while path+x(1) <> '/'.
  x = x - 1.
endwhile.

x = x + 1.

* ファイル名移動
move path+x(30) to filename.