No field catalog found error

Question

in alv grid display ,cant we use REUSE_ALV_FIELDCATALOG_MERGE if the o/p internal table is formed by joining 2 or more tables.

Answer 1

Hi
U can use REUSE_ALV_FIELDCATALOG_MERGE  for any internal table.
If u r gettin the error 'no field catalog found' try passing the program name in the exporting parameter INCLUDE_NAME.
Refer the foll code:
*& Report  ZALV                                                 *
REPORT  zalv                              .
TYPE-POOLS SLIS.
TABLES: vbrk,
        vbrp,
        likp,
        lips,
        vbak,
        vbap.
DATA: FIELDCAT TYPE  SLIS_T_FIELDCAT_ALV.
DATA: BEGIN OF tbl_inv OCCURS 10,
         vbeln LIKE vbrk-vbeln,
         erdat LIKE vbrk-erdat,
         kunnr LIKE vbrk-kunrg,
         sfakn LIKE vbrk-sfakn,
         xblnr LIKE vbrk-xblnr,
         posnr LIKE vbrp-posnr,
         vgbel LIKE vbrp-vgbel,
         vgpos LIKE vbrp-vgpos,
         aubel LIKE vbrp-aubel,
         aupos LIKE vbrp-aupos,
         matnr LIKE vbrp-matnr,
         arktx LIKE vbrp-arktx,
         werks LIKE vbrp-werks,
      END OF tbl_inv,
      BEGIN OF tbl_sales OCCURS 10,
         vbeln LIKE vbak-vbeln,
         erdat LIKE vbak-erdat,
         kunnr LIKE vbak-kunnr,
         posnr LIKE vbap-posnr,
         kwmeng LIKE vbap-kwmeng,
      END OF tbl_sales,
      BEGIN OF tbl_lips OCCURS 10,
         vbeln LIKE lips-vbeln,
         posnr LIKE lips-posnr,
         lfimg LIKE lips-lfimg,
         meins LIKE lips-meins,
      END OF tbl_lips.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   s_werks FOR vbrp-werks OBLIGATORY.
PARAMETERS p_vkorg LIKE vbrk-vkorg OBLIGATORY.       "Sales Organisation
SELECT-OPTIONS : s_vtweg FOR vbrk-vtweg,
"Distribution channel
                 s_spart FOR vbrk-spart,             "Division
                 s_erdat FOR vbrk-erdat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
IF s_vtweg IS INITIAL AND s_spart IS INITIAL.
  SELECT p~vbeln
         p~erdat
         p~kunrg
         p~sfakn
         p~xblnr
         q~posnr
         q~vgbel
         q~vgpos
         q~aubel
         q~aupos
         q~matnr
         q~arktx
         q~werks
         iNTO TABLE tbl_inv
         FROM vbrk AS p
         JOIN vbrp AS q
         ON pvbeln = qvbeln
         WHERE p~erdat IN s_erdat
         AND p~vkorg   = p_vkorg.
ELSEIF s_vtweg IS INITIAL.
  SELECT   p~vbeln
           p~erdat
           p~kunrg
           p~sfakn
           p~xblnr
           q~posnr
           q~vgbel
           q~vgpos
           q~aubel
           q~aupos
           q~matnr
           q~arktx
           q~werks
           INTO TABLE tbl_inv
           FROM vbrk AS p
           JOIN vbrp AS q
           ON pvbeln = qvbeln
           WHERE p~erdat IN s_erdat
           AND p~vkorg   = p_vkorg
           AND p~spart IN s_spart.
ELSEIF s_spart IS INITIAL.
  SELECT   p~vbeln
           p~erdat
           p~kunrg
           p~sfakn
           p~xblnr
           q~posnr
           q~vgbel
           q~vgpos
           q~aubel
           q~aupos
           q~matnr
           q~arktx
           q~werks
           INTO TABLE tbl_inv
           FROM vbrk AS p
           JOIN vbrp AS q
           ON pvbeln = qvbeln
           WHERE p~erdat IN s_erdat
           AND p~vkorg   = p_vkorg
           AND p~vtweg IN s_vtweg.
ELSE.
  SELECT   p~vbeln
           p~erdat
           p~kunrg
           p~sfakn
           p~xblnr
           q~posnr
           q~vgbel
           q~vgpos
           q~aubel
           q~aupos
           q~matnr
           q~arktx
           q~werks
           INTO TABLE tbl_inv
           FROM vbrk AS p
           JOIN vbrp AS q
           ON pvbeln = qvbeln
           WHERE p~erdat IN s_erdat
           AND p~vkorg   = p_vkorg
           AND p~vtweg IN s_vtweg
           AND p~spart IN s_spart.
ENDIF.
WRITE 'Number of entries:'.
DESCRIBE TABLE tbl_lips LINES sy-tfill.
WRITE sy-tfill.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
    I_PROGRAM_NAME               = 'ZALV'
    I_INTERNAL_TABNAME           = 'TBL_INV'
  I_STRUCTURE_NAME             =
  I_CLIENT_NEVER_DISPLAY       = 'X'
    I_INCLNAME                   = 'ZALV'
  I_BYPASSING_BUFFER           =
  I_BUFFER_ACTIVE              =
CHANGING
    ct_fieldcat                  = 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.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = 'ZALV_68416'
TABLES
    t_outtab                          = tbl_inv
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Message was edited by:
        Vasudha L