Dosya İsmini Ayıran Program.

data: pt(100) TYPE c.
DATA: w_file(100)     TYPE c,
      w_length1      LIKE sy-fdpos,
      w_length2      LIKE sy-fdpos,
      w_char         TYPE c.
FIELD-SYMBOLS  .
pt = '//Out/Ended/20140210_080114.txt'.


PERFORM FIND_FILENAME USING pt.
write: pt.

FORM FIND_FILENAME CHANGING W_FILE.
  W_LENGTH1 = STRLEN( W_FILE ).
  W_LENGTH2 = W_LENGTH1 - 1.
  MOVE W_FILE+W_LENGTH2(1) TO W_CHAR.
  WHILE W_CHAR NE '/'.
    IF W_LENGTH1 EQ 0.EXIT.ENDIF.
    SUBTRACT 1 FROM W_LENGTH1.
    MOVE W_FILE+W_LENGTH1(1) TO W_CHAR.
  ENDWHILE.
  ASSIGN W_FILE+W_LENGTH1(*) TO .
  MOVE +1 TO W_FILE.