Experts plz help ALV issue

Question

hi all experts
plz help
i have an alv based on object oriented method
in the output i am gettin a toolbar in which i have two buttons like print and export
problem is
when i click on these buttons i am gettin short dump
Field symbol has not yet been assigned.
What happened?
    Error in the ABAP Application Program
    The current ABAP program "SAPLKKBL" had to be terminated because
    come across a statement that unfortunately cannot be executed.
plz tel me for printing do i need to wwrite any seperate event or any method for it
plz guide me
thanx in advance .

Answer 1

*& Report  ZMULTIPLE_ALV
*REPORT  ZMULTIPLE_ALV.
report zrich_0006.
tables: mara.
type-pools: slis.
Internal Tables
data: begin of ialv occurs 0,
      matnr type mara-matnr,
      maktx type makt-maktx,
      end of ialv .
Internal Tables
data: begin of ialv2 occurs 0,
      matnr type mard-matnr,
      werks type mard-werks,
      lgort type mard-lgort,
      end of ialv2 .
      CLASS lcl_event_receiver DEFINITION      Handles Double Click
class lcl_event_receiver definition.
  public section.
    methods handle_hotspot_click
       for event hotspot_click of cl_gui_alv_grid
      importing e_row_id.
  private section.
endclass.
      CLASS lCL_EVENT_RECEIVER IMPLEMENTATION    Handles Double Click
class lcl_event_receiver implementation.
  method handle_hotspot_click.
    perform get_details using e_row_id-index.
  endmethod.
endclass.
data: alv_container type ref to cl_gui_custom_container,
      event_receiver type ref to lcl_event_receiver,
      alv_grid type ref to cl_gui_alv_grid,
      alv_container2 type ref to cl_gui_custom_container,
      alv_grid2 type ref to cl_gui_alv_grid,
      ok_code like sy-ucomm,
      fieldcat type lvc_t_fcat,
      gs_layout   type lvc_s_layo,
      fieldcat2 type lvc_t_fcat.
select-options: s_matnr for mara-matnr.
start-of-selection.
  perform get_data.
  call screen 100.
     Module  status_0100  OUTPUT
module status_0100 output.
  data: variant type  disvariant.
  data: lt_exclude type ui_functions.
  data: ls_fcat type lvc_s_fcat.
  set pf-status '0100'.
  set titlebar '0100'.
  check alv_container is initial.
  Code for first ALV Grid
Create Controls
  create object alv_container
         exporting container_name = 'ALV_CONTAINER'.
  create object alv_grid
         exporting  i_parent =  alv_container.
  create Event Receiver
  create object event_receiver.
  clear fieldcat.  refresh: fieldcat.
  clear: ls_fcat.
  ls_fcat-reptext    = 'Material Number'.
  ls_fcat-coltext    = 'Material Number'.
  ls_fcat-fieldname  = 'MATNR'.
  ls_fcat-ref_table  = 'IALV'.
  ls_fcat-hotspot    = 'X'.
  ls_fcat-outputlen  = '18'.
  ls_fcat-col_pos    = 1.
  append ls_fcat to fieldcat.
  clear: ls_fcat.
  ls_fcat-reptext    = 'Material Description'.
  ls_fcat-coltext    = 'Material Description'.
  ls_fcat-fieldname  = 'MATKX'.
  ls_fcat-ref_table  = 'IALV'.
  ls_fcat-outputlen  = '40'.
  ls_fcat-col_pos    = 2.
  append ls_fcat to fieldcat.
  gs_layout-grid_title = 'Flights'(100).
  CALL METHOD alv_grid->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
     I_BUFFER_ACTIVE               =
     I_BYPASSING_BUFFER            =
     I_CONSISTENCY_CHECK           =
     I_STRUCTURE_NAME              =
     IS_VARIANT                    =
     I_SAVE                        =
     I_DEFAULT                     = 'X'
      IS_LAYOUT                     = gs_layout
     IS_PRINT                      =
     IT_SPECIAL_GROUPS             =
     IT_TOOLBAR_EXCLUDING          =
     IT_HYPERLINK                  =
     IT_ALV_GRAPHICS               =
     IT_EXCEPT_QINFO               =
     IR_SALV_ADAPTER               =
    CHANGING
      IT_OUTTAB                     = ialv[]
      IT_FIELDCATALOG               = fieldcat[]
     IT_SORT                       =
     IT_FILTER                     =
   EXCEPTIONS
     INVALID_PARAMETER_COMBINATION = 1
     PROGRAM_ERROR                 = 2
     TOO_MANY_LINES                = 3
     OTHERS                        = 4
  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 method alv_grid->set_table_for_first_display
     changing
          it_outtab       = ialv[]
          it_fieldcatalog = fieldcat[].
  handler for ALV grid
  set handler event_receiver->handle_hotspot_click for alv_grid.
  Code for second ALV Grid
Create Controls
  create object alv_container2
         exporting container_name = 'ALV_CONTAINER2'.
  create Event Receiver
  create object alv_grid2
         exporting  i_parent =  alv_container2.
  clear fieldcat.  refresh: fieldcat.
  clear: ls_fcat.
  ls_fcat-reptext    = 'Material Number'.
  ls_fcat-coltext    = 'Material Number'.
  ls_fcat-fieldname  = 'MATNR'.
  ls_fcat-ref_table  = 'IALV2'.
  ls_fcat-outputlen  = '18'.
  append ls_fcat to fieldcat2.
  clear: ls_fcat.
  ls_fcat-reptext    = 'Plant'.
  ls_fcat-coltext    = 'Plant'.
  ls_fcat-fieldname  = 'MATNR'.
  ls_fcat-ref_table  = 'IALV2'.
  ls_fcat-outputlen  = '4'.
  append ls_fcat to fieldcat2.
  clear: ls_fcat.
  ls_fcat-reptext    = 'Store Loc'.
  ls_fcat-coltext    = 'Store Loc'.
  ls_fcat-fieldname  = 'LGORT'.
  ls_fcat-ref_table  = 'IALV2'.
  ls_fcat-outputlen  = '4'.
  append ls_fcat to fieldcat2.
  call method alv_grid2->set_table_for_first_display
       changing
           it_outtab       = ialv2[]
           it_fieldcatalog = fieldcat2[].
endmodule.
     Module  USER_COMMAND_0100  INPUT
module user_command_0100 input.
  case sy-ucomm.
    when 'BACK' or 'CANC'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      if not alv_container2 is initial.
        call method alv_container2->free.
        clear: alv_container2.
        free : alv_container2.
      endif.
      if sy-subrc = 0.
        set screen 0.
        leave screen.
      else.
        leave program.
      endif.
  endcase.
endmodule.
      FORM GET_DATA.
form get_data.
  select maramatnr maktmaktx
             into corresponding fields of table ialv
                 from mara
                      inner join makt
                         on maramatnr = maktmatnr
                                where mara~matnr in s_matnr
                                  and makt~spras = sy-langu.
  sort ialv ascending by matnr.
endform.
      FORM GET_MORE_DATA.
form get_more_data.
  select matnr werks lgort
             into corresponding fields of table ialv2
                 from mard
                           where matnr = ialv-matnr.
  sort ialv2 ascending by matnr.
endform.
GET_DETAILS
form get_details using index.
  read table ialv index index.
  if sy-subrc = 0.
    perform get_more_data.
    call method alv_grid2->refresh_table_display.
  endif.
endform.