Code: Alles auswählen.
ULINE.
LOOP AT Tabelle2 INTO wa_Tabelle.
FIND SUCHE IN wa_Tabelle IGNORING CASE.
IF sy-subrc EQ 0.
ADD 1 TO CountSU.
ENDIF.
ENDLOOP.
Write: / 'Das Suchkriterium kommt' , CountSU , 'x vor.'.
Code: Alles auswählen.
DESCRIBE FELD LENGTH LAENGE.
POSITION = 0.
WHILE POSITION < LAENGE.
IF FELD+POSITION(1) CO 'eE'.
ANZAHL = ANZAHL + 1.
ENDIF.
POSITION = POSITION + 1.
ENDWHILE.
Code: Alles auswählen.
DESCRIBE FIELD feld LENGTH laenge.
Code: Alles auswählen.
DATA: LAENGE TYPE I.
DATA: POSITION TYPE I.
Code: Alles auswählen.
DATA: OFFSET LIKE SY-FDPOS.
DATA: TEXTFELD(5) TYPE c.
DATA: ZEICHEN(1) TYPE c.
TEXTFELD = 'ABCDB'.
SEARCH TEXTFELD FOR 'B'.
* jetzt ist SY-FDPOS = 2
IF SY-SUBRC = 0.
OFFSET = SY-FDPOS - 1.
ZEICHEN = TEXTFELD+OFFSET(1).
* jetzt ist ZEICHEN = 'B'
ELSE.
WRITE:/ 'nicht gefunden'.
ENDIF.
Code: Alles auswählen.
LOOP.
SEARCH wa_Tabelle2 FOR Suche.
CountSU , 'x vor.'.
IF sy-subrc EQ 0.
ADD 1 TO CountSU.
ENDIF.
ENDLOOP.
Write: / 'Das Suchkriterium kommt' , CountSU , 'x vor.'.