Prüfung auf zeichenartigen Typen

Code: Alles auswählen.

  LOOP AT gt_tab ASSIGNING <ls_tab>.
    DO.
      ASSIGN COMPONENT sy-index OF STRUCTURE <ls_tab> TO <lv_comp>.
      IF sy-subrc NE 0.
        EXIT.
      ENDIF.

      IF <lv_comp> CA umlaute.
        lv_text = <lv_comp>.
        "hier dann Beseitigung der Umlaute
      ENDIF.
...
    ENDDO.
  ENDLOOP.

Code: Alles auswählen.

REPORT.

DATA: descr         TYPE REF TO cl_abap_typedescr.
DATA: test          TYPE syst.

FIELD-SYMBOLS: <fs> TYPE ANY.




END-OF-SELECTION.
  test = syst.
  DO.
* Der Reihe nach alle Felder durchgehen -
    ASSIGN COMPONENT sy-index OF STRUCTURE test TO <fs>.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    WRITE:/ 'Position',sy-index, AT (80) <fs> color 1.
    descr ?= cl_abap_typedescr=>describe_by_data( <fs> ).
    WRITE: 'Typekind',descr->type_kind color 4.
    CASE descr->type_kind.
      WHEN ''
*      or cl_abap_typedescr=>TYPEKIND_NUM       " Technisch sind NUMC-Felder Characterfelder -> kein Dump aber sinnlos
*        OR cl_abap_typedescr=>typekind_date    " Technisch sind DATE-Felder Characterfelder -> kein Dump aber sinnlos
*      or cl_abap_typedescr=>TYPEKIND_PACKED
*        OR cl_abap_typedescr=>typekind_time    " Technisch sind TIME-Felder Characterfelder -> kein Dump aber sinnlos
        OR cl_abap_typedescr=>typekind_char
*      or cl_abap_typedescr=>TYPEKIND_HEX       " Könnte auch gehen - aber da gibt es keine Sonderzeichen --> sinnlos
*      or cl_abap_typedescr=>TYPEKIND_FLOAT
*      or cl_abap_typedescr=>TYPEKIND_INT
*      or cl_abap_typedescr=>TYPEKIND_INT1
*      or cl_abap_typedescr=>TYPEKIND_INT2
*      or cl_abap_typedescr=>TYPEKIND_W         " Keine Ahnung - vielleicht - ausprobieren
*      or cl_abap_typedescr=>TYPEKIND_STRUCT1
*      or cl_abap_typedescr=>TYPEKIND_STRUCT2
*      or cl_abap_typedescr=>TYPEKIND_OREF
        OR cl_abap_typedescr=>typekind_string
*      or cl_abap_typedescr=>TYPEKIND_XSTRING   " Könnte auch gehen - aber da gibt es keine Sonderzeichen --> sinnlos
*      or cl_abap_typedescr=>TYPEKIND_DREF
*      or cl_abap_typedescr=>TYPEKIND_CLASS
*      or cl_abap_typedescr=>TYPEKIND_INTF
*      or cl_abap_typedescr=>TYPEKIND_ANY
*      or cl_abap_typedescr=>TYPEKIND_DATA
*      or cl_abap_typedescr=>TYPEKIND_SIMPLE
        OR cl_abap_typedescr=>typekind_clike    " Kommt das wirklich vor bei "describe_by_data"?  Sicherheitshalber mitnehmen
        OR cl_abap_typedescr=>typekind_csequence" Kommt das wirklich vor bei "describe_by_data"?  Sicherheitshalber mitnehmen
*      or cl_abap_typedescr=>TYPEKIND_XSEQUENCE
*      or cl_abap_typedescr=>TYPEKIND_NUMERIC
*      or cl_abap_typedescr=>TYPEKIND_TABLE
*      or cl_abap_typedescr=>TYPEKIND_IREF
  .

        WRITE 'Replace possible' COLOR 5.
        CLEAR <fs> WITH 'X'.
        WRITE (80) <fs>.
    ENDCASE.


  ENDDO.