ALV Error: Fieldcatalog not found...

Question

Hello Experts,
I am currently creating a new report that uses object oriented ALV with
custom control. But when I run my program it always gives me that there is no fieldcatalog
found. I will paste my code below so you can see. Hope you can help me out here guys.
Thank you and take care!
*=====================================================================
* Program Name : ZSD_ORDERSTAGE
* Author       : Aris Hidalgo
* Date Created : May 4, 2007
* Description  : Display sales orders for a given customer on a given
*                date range
*=====================================================================
REPORT  zsd_orderstage
        NO STANDARD PAGE HEADING.
* Data Dictionary Table/s                      *
TABLES: vbak.
* Global Structure/s                           *
TYPES: BEGIN OF t_vbak,
          vbeln TYPE vbak-vbeln,
          posnr TYPE vbap-posnr,
          erdat TYPE vbak-erdat,
          ernam TYPE vbak-ernam,
          auart TYPE vbak-auart,
          kunnr TYPE vbak-kunnr,
          vkgrp TYPE vbak-vkgrp,
         END OF t_vbak.
TYPES: BEGIN OF t_vbfa,
        vbelv   TYPE vbfa-vbelv,
        posnv   TYPE vbfa-posnv,
        vbtyp_n TYPE vbfa-vbtyp_n,
        vbtyp_v TYPE vbfa-vbtyp_v,
        vbeln   TYPE vbfa-vbeln,
       END OF t_vbfa.
TYPES: BEGIN OF t_likp,
        vgbel TYPE lips-vgbel,
        vgpos TYPE lips-vgpos,
        vbeln TYPE likp-vbeln,
        posnr TYPE lips-posnr,
        kunnr TYPE likp-kunnr,
       END OF t_likp.
TYPES: BEGIN OF t_vbrk,
        aubel TYPE vbrp-aubel,
        aupos TYPE vbrp-aupos,
        vbeln TYPE vbrk-vbeln,
       END OF t_vbrk.
TYPES: BEGIN OF t_output,
        salesorder    TYPE vbak-vbeln,
        salesitem     TYPE vbap-posnr,
        salesgroup    TYPE vbak-vkgrp,
        custcode      TYPE vbak-kunnr,
        shipto        TYPE likp-kunnr,
        creation_date TYPE vbak-erdat,
        created_by    TYPE vbak-ernam,
        delorder      TYPE likp-vbeln,
        invnumber     TYPE vbrk-vbeln,
       END OF t_output.
* Global Internal Table/s                      *
DATA: gt_vbak   TYPE STANDARD TABLE OF t_vbak,
      gt_vbfa   TYPE STANDARD TABLE OF t_vbfa,
      gt_likp   TYPE STANDARD TABLE OF t_likp,
      gt_vbrk   TYPE STANDARD TABLE OF t_vbrk,
      gt_output TYPE STANDARD TABLE OF t_output.
* SELECTION-SCREEN                             *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:     p_kunnr TYPE vbak-kunnr OBLIGATORY.
SELECT-OPTIONS: s_vkgrp FOR vbak-vkgrp,
                s_auart FOR vbak-auart,
                s_erdat FOR vbak-erdat  OBLIGATORY,
                s_ernam FOR vbak-ernam.
SELECTION-SCREEN END OF BLOCK b1.
CLASS lcl_event_receiver DEFINITION DEFERRED.
* Data Declaration/s                           *
DATA: ok_code             TYPE sy-ucomm,
      save_ok             TYPE sy-ucomm,
      g_max               TYPE i VALUE 100,
      g_repid             TYPE sy-repid,
      gs_layout           TYPE lvc_s_layo,
      cont_for_flights    TYPE scrfname VALUE 'BCALV_GRID_02_100',
      grid1               TYPE REF TO cl_gui_alv_grid,
      custom_container    TYPE REF TO cl_gui_custom_container,
      grid2               TYPE REF TO cl_gui_alv_grid,
* reference to dialogbox container.
      dialogbox_container TYPE REF TO cl_gui_dialogbox_container,
      event_receiver      TYPE REF TO lcl_event_receiver.
*       CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_double_click
        FOR EVENT double_click OF cl_gui_alv_grid
            IMPORTING e_row e_column,
    handle_close
        FOR EVENT close OF cl_gui_dialogbox_container
            IMPORTING sender,
    create_detail_list.
  PRIVATE SECTION.
    DATA: dialogbox_status TYPE c.  "'X': does exist, SPACE: does not ex.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*       CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
* §3.At doubleclick(1): The event DOUBLE_CLICK provides
*    parameters of the clicked row and column.
*    Use row parameter to select a line of the
*    corresponding internal table.
  METHOD handle_double_click.
*    DATA: ls_sflight LIKE LINE OF gt_sflight.
* read selected row from internal table gt_sflight
*    READ TABLE gt_sflight INDEX e_row-index INTO ls_sflight.
* §4.At Doubleclick(2): Select booking data
*    PERFORM select_table_sbook USING ls_sflight
*                               CHANGING gt_sbook.
* §5.At doubleclick(3): Create dialogbox to show detail list
*   (if not already existent)
    IF dialogbox_status IS INITIAL.
      dialogbox_status = 'X'.
*      PERFORM create_detail_list.
      CALL METHOD me->create_detail_list.
    ELSE.
      CALL METHOD dialogbox_container->set_visible
        EXPORTING
          visible = 'X'.
      CALL METHOD grid2->refresh_table_display.
    ENDIF.
  ENDMETHOD.                    "handle_double_click
  METHOD handle_close.
* §6.Handle the CLOSE-button of the dialogbox
* set dialogbox invisible
* (the dialogbox is destroyed outomatically when the user
* switches to another dynpro).
    CALL METHOD sender->set_visible
      EXPORTING
        visible = space.
* In this example closing the dialogbox leads
* to make it invisible. It is also conceivable to destroy it
* and recreate it if the user doubleclicks a line again.
* Displaying a great amount of data has a greater impact on performance.
  ENDMETHOD.                    "handle_close
  METHOD create_detail_list.
* create dialogbox container as dynpro-instance
* When the user switches to another screen, it is
* destroyed by lifetime mangagement of CFW
    CREATE OBJECT dialogbox_container
        EXPORTING
          top = 150
          left = 150
          lifetime = cntl_lifetime_dynpro
          caption = 'Sales Orders'(200)
          width = 800
          height = 200.
    CREATE OBJECT grid2
        EXPORTING i_parent = dialogbox_container.
* Register ABAP OO event 'CLOSE'. It is not necessary to register this
* event at the frontend (this is done during creation).
    SET HANDLER event_receiver->handle_close FOR dialogbox_container.
* display data
    gs_layout-grid_title = space.
    CALL METHOD grid2->set_table_for_first_display
      EXPORTING
        i_structure_name = 'T_OUTPUT'
        is_layout        = gs_layout
      CHANGING
        it_outtab        = gt_output.
    CALL METHOD cl_gui_control=>set_focus
      EXPORTING
        control = grid2.
  ENDMETHOD.                    "create_detail_list
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
*       CLASS lcl_get_so DEFINITION
CLASS lcl_get_so DEFINITION.
  PUBLIC SECTION.
    METHODS: get_sales_orders
                EXPORTING
                   ex_vbak LIKE gt_vbak.
ENDCLASS.                    "lcl_get_so DEFINITION
*       CLASS lcl_get_so IMPLEMENTATION
CLASS lcl_get_so IMPLEMENTATION.
  METHOD get_sales_orders.
    SELECT vbak~vbeln vbap~posnr vbak~erdat
           vbak~ernam vbak~auart vbak~kunnr
           vbak~vkgrp
      FROM vbak
      INNER JOIN vbap
      ON vbak~vbeln = vbap~vbeln
      INTO TABLE gt_vbak
     WHERE vbak~erdat IN s_erdat
       AND vbak~ernam IN s_ernam
       AND vbak~auart IN s_auart
       AND vbak~vkgrp IN s_vkgrp
       AND vbak~kunnr = p_kunnr.
    IF NOT gt_vbak[] IS INITIAL.
      ex_vbak[] = gt_vbak[].
    ENDIF.
  ENDMETHOD.                    "get_sales_orders
ENDCLASS.                    "lcl_get_so IMPLEMENTATION
*       CLASS lcl_get_do DEFINITION
CLASS lcl_get_do DEFINITION.
  PUBLIC SECTION.
    METHODS: get_delivery_orders
                IMPORTING
                   value(im_vbak) LIKE gt_vbak
                EXPORTING
                   value(ex_likp) LIKE gt_likp.
ENDCLASS.                    "lcl_get_do DEFINITION
*       CLASS lcl_get_do IMPLEMENTATION
CLASS lcl_get_do IMPLEMENTATION.
  METHOD get_delivery_orders.
    IF NOT im_vbak[] IS INITIAL.
      SELECT lips~vgbel lips~vgpos
             likp~vbeln lips~posnr
             likp~kunnr
        FROM likp
       INNER JOIN lips
          ON likp~vbeln = lips~vbeln
        INTO TABLE gt_likp
         FOR ALL ENTRIES IN im_vbak
       WHERE vgbel = im_vbak-vbeln
         AND vgpos = im_vbak-posnr.
    ENDIF.
    IF NOT gt_likp[] IS INITIAL.
      ex_likp[] = gt_likp[].
    ENDIF.
  ENDMETHOD.                    "get_delivery_orders
ENDCLASS.                    "lcl_get_do IMPLEMENTATION
*       CLASS lcl_get_bd DEFINITION
CLASS lcl_get_bd DEFINITION.
  PUBLIC SECTION.
    METHODS: get_billing_documents
               IMPORTING
                 value(im_vbak) LIKE gt_vbak
               EXPORTING
                 value(ex_vbrk) LIKE gt_vbrk.
ENDCLASS.                    "lcl_get_bd DEFINITION
*       CLASS lcl_get_bd IMPLEMENTATION
CLASS lcl_get_bd IMPLEMENTATION.
  METHOD get_billing_documents.
    IF NOT im_vbak[] IS INITIAL.
      SELECT vbrp~aubel vbrp~aupos vbrk~vbeln
        FROM vbrk
       INNER JOIN vbrp
          ON vbrk~vbeln = vbrp~vbeln
        INTO TABLE gt_vbrk
         FOR ALL ENTRIES IN im_vbak
       WHERE aubel = im_vbak-vbeln
         AND aupos = im_vbak-posnr.
    ENDIF.
    IF NOT gt_vbrk[] IS INITIAL.
      ex_vbrk[] = gt_vbrk[].
    ENDIF.
  ENDMETHOD.                    "get_billing_documents
ENDCLASS.                    "lcl_get_bd IMPLEMENTATION
*       CLASS lcl_combine_data DEFINITION
CLASS lcl_combine_data DEFINITION.
  PUBLIC SECTION.
    METHODS: combine_data
               IMPORTING
                 value(im_vbak) LIKE gt_vbak
                 value(im_likp) LIKE gt_likp
                 value(im_vbrk) LIKE gt_vbrk
               EXPORTING
                 value(ex_output) LIKE gt_output.
ENDCLASS.                    "lcl_combine_data DEFINITION
*       CLASS lcl_combine_data IMPLEMENTATION
CLASS lcl_combine_data IMPLEMENTATION.
  METHOD combine_data.
    FIELD-SYMBOLS: <fs_vbak> LIKE LINE OF im_vbak,
                   <fs_likp> LIKE LINE OF im_likp,
                   <fs_vbrk> LIKE LINE OF im_vbrk.
    DATA: wa_output LIKE LINE OF ex_output.
    SORT im_vbak ASCENDING BY: vbeln posnr.
    SORT im_likp ASCENDING BY: vgbel vgpos.
    SORT im_vbrk ASCENDING BY: aubel aupos.
    LOOP AT im_vbak ASSIGNING <fs_vbak>.
      READ TABLE im_likp ASSIGNING <fs_likp>
                         WITH KEY vgbel = <fs_vbak>-vbeln
                                  vgpos = <fs_vbak>-posnr
                                  BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE: <fs_vbak>-vbeln TO wa_output-salesorder,
              <fs_vbak>-posnr TO wa_output-salesitem,
              <fs_vbak>-vkgrp TO wa_output-salesgroup,
              <fs_vbak>-kunnr TO wa_output-custcode,
              <fs_likp>-kunnr TO wa_output-shipto,
              <fs_vbak>-erdat TO wa_output-creation_date,
              <fs_vbak>-ernam TO wa_output-created_by,
              <fs_likp>-vbeln TO wa_output-delorder.
      ENDIF.
      READ TABLE im_vbrk ASSIGNING <fs_vbrk>
                         WITH KEY aubel = <fs_vbak>-vbeln
                                  aupos = <fs_vbak>-posnr
                                  BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE <fs_vbrk>-vbeln TO wa_output-invnumber.
      ENDIF.
      APPEND wa_output TO ex_output.
      CLEAR wa_output.
    ENDLOOP.
    DELETE ex_output WHERE salesorder IS INITIAL.
  ENDMETHOD.                    "combine_data
ENDCLASS.                    "lcl_combine_data IMPLEMENTATION
* START-OF-SELECTION                           *
START-OF-SELECTION.
  DATA: lt_vbak_dum    LIKE gt_vbak,
        lt_likp_dum    LIKE gt_likp,
        lt_vbrk_dum    LIKE gt_vbrk.
  DATA: o_get_so         TYPE REF TO lcl_get_so,
        o_get_do         TYPE REF TO lcl_get_do,
        o_get_bd         TYPE REF TO lcl_get_bd,
        o_combine_data   TYPE REF TO lcl_combine_data.
  CREATE OBJECT: o_get_so,
                 o_get_do,
                 o_get_bd,
                 o_combine_data.
END-OF-SELECTION.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
*  SET TITLEBAR 'xxx'.
  g_repid = sy-repid.
  IF custom_container IS INITIAL.
    CALL METHOD o_get_so->get_sales_orders
      IMPORTING
        ex_vbak = lt_vbak_dum.
    CALL METHOD o_get_do->get_delivery_orders
      EXPORTING
        im_vbak = lt_vbak_dum
      IMPORTING
        ex_likp = lt_likp_dum.
    CALL METHOD o_get_bd->get_billing_documents
      EXPORTING
        im_vbak = lt_vbak_dum
      IMPORTING
        ex_vbrk = lt_vbrk_dum.
    CALL METHOD o_combine_data->combine_data
      EXPORTING
        im_vbak   = lt_vbak_dum
        im_likp   = lt_likp_dum
        im_vbrk   = lt_vbrk_dum
      IMPORTING
        ex_output = gt_output.
*Create a custom container control for our ALV Control
    CREATE OBJECT custom_container
        EXPORTING
            container_name = cont_for_flights
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
*Add your handling, for example
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = g_repid
          txt2  = sy-subrc
          txt1  = 'The control could not be created'(510).
    ENDIF.
*Create an instance of alv control
    CREATE OBJECT grid1
         EXPORTING i_parent = custom_container.
*Set a titlebar for the grid control
    gs_layout-grid_title = 'List of Sales Orders'(100).
    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
*        i_structure_name = 'T_OUTPUT'
        is_layout        = gs_layout
      CHANGING
        it_outtab        = gt_output.
*Create Object to receive events and link them to handler methods.
*When the ALV Control raises the event for the specified instance
*the corresponding method is automatically called.
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_double_click FOR grid1.
  ENDIF.
  CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = grid1.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CASE save_ok.
    WHEN 'BACK'.
      CALL METHOD custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      IF sy-subrc <> 0.
*Add your handling, for example
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = g_repid
            txt2  = sy-subrc
            txt1  = 'Error in FLush'(500).
      ENDIF.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      CALL METHOD custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      IF sy-subrc <> 0.
*Add your handling, for example
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = g_repid
            txt2  = sy-subrc
            txt1  = 'Error in FLush'(500).
      ENDIF.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CALL METHOD custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      IF sy-subrc <> 0.
*Add your handling, for example
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = g_repid
            txt2  = sy-subrc
            txt1  = 'Error in FLush'(500).
      ENDIF.
      LEAVE PROGRAM.
  ENDCASE.
  CLEAR save_ok.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

Answer 1

Hi Viraylab,
                   You need to craete a fieldcat to print data in ALV and pass this table to the method written below :
CALL METHOD grid1->set_table_for_first_display
      EXPORTING
       i_structure_name = 'T_OUTPUT'
        is_layout        = gs_layout
      CHANGING
        it_outtab        = gt_output.
       i_fieldcat        = gt_fieldcat
u can bulid afield catlog table like this :
form FIELDCAT  using    p_i_fieldcat TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
FOR MATERIAL NO
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = '1'.
L_FIELDCAT-FIELDNAME = 'MATNR'.
L_FIELDCAT-TABNAME = 'IT_MATSTOCK'.
L_FIELDCAT-seltext_l   = 'MATERIAL NO'.                     " LONG TEXT FOR HEADER.
L_FIELDCAT-seltext_m   = 'MAT NO'.                     " MEDIUM TEXT FOR HEADER.
L_FIELDCAT-seltext_s   = 'MATNO'.                     " SHORT TEXT FOR HEADER.
L_FIELDCAT-EMPHASIZE = 'C410'.                           " COLOR OF THIS COLUMN.
L_FIELDCAT-OUTPUTLEN = '20'.
APPEND L_FIELDCAT TO P_I_FIELDCAT.
FOR MATERIAL TYPE
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = '2'.
L_FIELDCAT-FIELDNAME = 'MTART'.
L_FIELDCAT-TABNAME = 'IT_MATSTOCK'.
L_FIELDCAT-seltext_l   = 'MATERIAL TYPE'.                     " LONG TEXT FOR HEADER.
L_FIELDCAT-seltext_m   = 'MAT TYPE'.                     " MEDIUM TEXT FOR HEADER.
L_FIELDCAT-seltext_s   = 'MAT TYP'.                     " SHORT TEXT FOR HEADER.
L_FIELDCAT-EMPHASIZE = 'C510'.                           " COLOR OF THIS COLUMN.
L_FIELDCAT-OUTPUTLEN = '6'.
APPEND L_FIELDCAT TO P_I_FIELDCAT.
FOR MATERIAL DESCRIPTION
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = '3'.
L_FIELDCAT-FIELDNAME = 'MAKTX'.
L_FIELDCAT-TABNAME = 'IT_MATSTOCK'.
L_FIELDCAT-seltext_l   = 'MAT DESCRIP'.                     " LONG TEXT FOR HEADER.
L_FIELDCAT-seltext_m   = 'M DESCRIP'.                     " MEDIUM TEXT FOR HEADER.
L_FIELDCAT-seltext_s   = 'MDESCRIP'.                     " SHORT TEXT FOR HEADER.
L_FIELDCAT-EMPHASIZE = 'C310'.                           " COLOR OF THIS COLUMN.
L_FIELDCAT-OUTPUTLEN = '40'.
APPEND L_FIELDCAT TO P_I_FIELDCAT.
Reward points if helpful.
Regards,
Hemant