Field catalog problem ,

Question

HI ,
in CALL METHOD ob_grid1->set_table_for_first_display
method how we can delcare the fieldcatalog , manually i created field catalog how we can pass this to this method ,
i am getting NO_FIELDCATALOG_FOUND exception ,
pls tell me

Answer 1

Hi,
refer following code,
tables : zrecords.
data: gr_alv type ref to cl_gui_alv_grid,
      gc_custom_control type scrfname value 'CRL',
      gr_container type ref to cl_gui_custom_container,
      fcat type lvc_t_fcat,
      rrecords type table of zrecords.
SELECT-OPTIONS : name FOR zrecords-name.
start-of-selection.
  select * from zrecords into table rrecords where name IN name.
  call screen 300.
*&      Module  malv  OUTPUT
      text
module malv output.
  perform display_alv.
endmodule.                 " malv  OUTPUT
      FORM display_alv                                              *
form display_alv.
*  if grid is empty ---------------------------------------------------------------------
  if gr_alv is initial.
create a container
    create object gr_container
      exporting
        container_name              = gc_custom_control
        exceptions
          cntl_error                  = 1
          cntl_system_error           = 2
          create_error                = 3
          lifetime_error              = 4
          lifetime_dynpro_dynpro_link = 5
          others                      = 6
  create grid object
    create object gr_alv
      exporting
        i_parent          = gr_container
      exceptions
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        others            = 5
   perform field_cat changing fcat.
    data : fcat1 like line of fcat.
    clear fcat1.
    fcat1-reptext = 'EMPLOYEE DETAILS'.
    fcat1-fieldname = 'ID'.
    fcat1-COLTEXT  = 'ID'.
    fcat1-col_pos = 1.
    append fcat1 to fcat.
    clear fcat1.
    fcat1-fieldname = 'NAME'.
    fcat1-COLTEXT = 'NAME'.
    fcat1-col_pos = 2.
    append fcat1 to fcat.
    clear fcat1.
    fcat1-fieldname = 'ADDRESS'.
    fcat1-COLTEXT = 'ADDRESS'.
    fcat1-col_pos = 3.
    append fcat1 to fcat.
    call method gr_alv->set_table_for_first_display
      changing
        it_outtab                     = rrecords[]
        it_fieldcatalog               = fcat[]
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4
    call method gr_alv->refresh_table_display
      exceptions
        finished       = 1
        others         = 2     
  endif.
endform.   " form dispay_alv.
*&      Module  USER_COMMAND_0300  INPUT
      text
module user_command_0300 input.
  if sy-ucomm = 'EXIT'.
    leave program.
  endif.
endmodule.                 " USER_COMMAND_0300  INPUT
Reward pts if useful.
Regards,
Dhan