REPORT  ZTEST2021                               .
TYPE-POOLS: SLIS, KKBLO.

DATA:      SV_FIELDCAT     TYPE SLIS_T_FIELDCAT_ALV,
           GT LIKE LINE OF SV_FIELDCAT,
           PRN LIKE SY-REPID,
           V_T001 LIKE T001 OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

PRN = SY-REPID.

SELECT * FROM T001 INTO TABLE V_T001.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    I_STRUCTURE_NAME       = 'T001'
  CHANGING
    CT_FIELDCAT            = SV_FIELDCAT
  EXCEPTIONS
    INCONSISTENT_INTERFACE = 1
    PROGRAM_ERROR          = 2
    OTHERS                 = 3.

LOOP AT SV_FIELDCAT INTO GT.
  CASE GT-FIELDNAME.
     WHEN 'BUTXT' OR 'ORT01'.
        GT-EDIT = 'X'.
     WHEN OTHERS.
        GT-EDIT = SPACE.
  ENDCASE.
  MODIFY SV_FIELDCAT FROM GT.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = PRN
    I_SAVE                   = 'A'
    IT_FIELDCAT              = SV_FIELDCAT[]
  TABLES
    T_OUTTAB                 = V_T001[].