Code: Alles auswählen.
data:
ls_fcat type lvc_s_fcat.
call function 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'MERGENEGLN'
CHANGING
ct_fieldcat = pt_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc <> 0.
*--- TODO: Exception-Handling
endif.
loop at pt_fieldcat into ls_fcat.
case ls_fcat-fieldname.
when 'AS4POS'.
if gp_debug is initial.
ls_fcat-no_out = 'X'.
endif.
modify pt_fieldcat from ls_fcat.
when 'PGMID'.
ls_fcat-coltext = 'PGMID'.
ls_fcat-seltext = 'Program-ID'.
ls_fcat-edit = 'X'.
...