Retrieve position and text from String

Question

Hi Experts
I have a string example displayed below:
14JUL-DO-HOU/CF-TEST/ST-1435/W-PROD 0601 VNDR 11195 HOLIDAY AUTOS S/DT-2035/RT-ZAR5000/TJ-54IMP
I need to find the value prefixed by "/RT-" and then retrieve the text up until the next "/".
EG. The result needs to be "ZAR5000" from the example string above.
Could someone please show me how to do that?
Thanks in Advance
Anton Kruse

Answer 1

Hi Anton,
Try beow code:
DATA: str TYPE string,
      str1 TYPE string.
DATA: result_tab TYPE match_result_tab,
      wa TYPE match_result.
DATA: len TYPE i,
      len1 TYPE i,
      cnt TYPE i VALUE 0,
      moff TYPE i.
DATA: final TYPE TABLE OF string,
      wa1 LIKE LINE OF final.
str = '14JUL-DO-HOU/CF-TEST/ST-1435/W-PROD 0601 VNDR 11195 HOLIDAY AUTOS S/DT-2035/RT-ZAR5000/TJ-54IMP'.
len = STRLEN( str ).
FIND ALL OCCURRENCES OF '/RT-' IN str RESPECTING CASE
RESULTS result_tab.
LOOP AT result_tab INTO wa.
  moff = wa-offset + 4.
  len1 = len - moff.
  wa1 = str+moff(len1).
  APPEND wa1 TO final.
ENDLOOP.
LOOP AT final INTO wa1.
  len = STRLEN( wa1 ).
  DO len TIMES.
    IF wa1+cnt(1) = '/'.
      wa1 = wa1+0(cnt).
      MODIFY final FROM wa1. " Final internal table containing all the texts
      EXIT.
    ENDIF.
    cnt  = cnt + 1.
  ENDDO.
ENDLOOP.