Feldkatalog aus interner Tabelle LVC_FIELDCATALOG_MERGE ?

Code: Alles auswählen.

TYPES: BEGIN OF ekpo_type,
         ebeln          TYPE ebeln,
         ebelp          TYPE ebelp,
         bstyp          TYPE ebstyp,
         ekorg          TYPE ekorg,
         ekgrp          TYPE bkgrp,
         lifnr          TYPE elifn,
         bukrs          TYPE bukrs,
         bedat          TYPE ebdat,
         ernam          TYPE ernam,
         matkl          TYPE matkl,
         matnr          TYPE matnr,
         werks          TYPE ewerk,
         lgort          TYPE lgort_d,
         menge          TYPE bstmg,
         meins          TYPE bstme,
         netpr          TYPE bprei,
         waers          TYPE waers,
         bprme          TYPE bbprm,
         pstyp          TYPE pstyp,
         knttp          TYPE knttp,
         reswk          TYPE reswk,
         afnam          TYPE afnam,
....
DATA i_pos        TYPE TABLE OF ekpo_type.
DATA i_fieldcat   TYPE lvc_t_fcat.

....
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
*   I_BUFFER_ACTIVE              =
*   I_STRUCTURE_NAME             = 'I_POS'
*   I_CLIENT_NEVER_DISPLAY       = 'X'
*   I_BYPASSING_BUFFER           =
    I_INTERNAL_TABNAME           = 'I_POS'
  CHANGING
    ct_fieldcat                  = i_fieldcat
 EXCEPTIONS
   INCONSISTENT_INTERFACE       = 1
   PROGRAM_ERROR                = 2
   OTHERS                       = 3
          .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.