*PARAMETERS lv_str TYPE string .
*
*DATA:lv_string TYPE string.
*DATA:lv_string1 TYPE string.
*DATA:lv_fdpos TYPE sy-fdpos.
*
*lv_string = lv_str.
*
*WHILE lv_string IS NOT INITIAL.
*
- SEARCH lv_string FOR ‘/’.
- IF sy-subrc = 0.
- lv_string1 = lv_string+0(sy-fdpos).
- lv_fdpos = sy-fdpos + 1.
- lv_string = lv_string+lv_fdpos(*).
- ELSE.
- lv_string1 = lv_string.
- CLEAR lv_string.
- ENDIF.
- WRITE :lv_string1,/.
*ENDWHILE.