Feldkatalog modifizieren für ALV-GRID

Code: Alles auswählen.

* Feldkatalog erstellen
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_structure_name             = 'ZVGZ'
      CHANGING
        ct_fieldcat                  = it_fcat
      EXCEPTIONS
        inconsistent_interface       = 1
        program_error                = 2
        OTHERS                       = 3.
    IF NOT sy-subrc IS INITIAL.
      LEAVE PROGRAM.
    ENDIF.
    IF NOT pa_neu IS INITIAL.
* Feldkatalog bearbeiten
      DESCRIBE TABLE it_fcat LINES i_col_pos.
      ADD 1 TO i_col_pos.
      LOOP AT it_fcat INTO st_fcat.
        IF st_fcat-fieldname(1) EQ 'F'.
          CLEAR it_new_fcat.
          it_new_fcat = st_fcat.
          it_new_fcat-col_pos = i_col_pos.
          CONCATENATE it_new_fcat-fieldname 'NEU' INTO
            it_new_fcat-fieldname.
          CONCATENATE it_new_fcat-reptext 'NEU' INTO
            it_new_fcat-reptext SEPARATED BY space.
          CONCATENATE it_new_fcat-scrtext_l 'N' INTO
            it_new_fcat-scrtext_l SEPARATED BY space.
          CONCATENATE it_new_fcat-scrtext_m 'N' INTO
            it_new_fcat-scrtext_m SEPARATED BY space.
          CONCATENATE it_new_fcat-scrtext_s 'N' INTO
            it_new_fcat-scrtext_s SEPARATED BY space.
          APPEND it_new_fcat.
          ADD 1 TO i_col_pos.
        ENDIF.
      ENDLOOP.

      LOOP AT it_new_fcat.
        CLEAR st_fcat.
        st_fcat = it_new_fcat.
        APPEND st_fcat TO it_fcat.
      ENDLOOP.
    ENDIF.