Plz help in object oriented report

Question

Hi experts ,
i have a report in which i am fetching data from som tables and applying some checks to get desired data and finally displaying the data in an ALV .
not i want to convert this whole thing into Object oriented approach .
plz guide me how i can do it .
please give me any example code of this type of report
thanx in advance

Answer 1

hi use this example.
*& Report  ZKN_ALV_GRID                                                *
REPORT  zkn_alv_grid                                                .
DATA itab_saplane TYPE TABLE OF saplane.
DATA: r_container TYPE REF TO cl_gui_custom_container,
      r_grid TYPE REF TO cl_gui_alv_grid.
START-OF-SELECTION.
  SELECT * FROM saplane INTO TABLE itab_saplane.
  CALL SCREEN 100.
*&      Module  create_control  OUTPUT
      text
MODULE create_control OUTPUT.
  CHECK r_container IS INITIAL.
  CREATE OBJECT r_container
    EXPORTING
      container_name              = 'CONTAINER_1'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CREATE OBJECT r_grid
    EXPORTING
      i_parent          = r_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
  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 r_grid->set_table_for_first_display
    EXPORTING
      i_structure_name              = 'SAPLANE'
    CHANGING
      it_outtab                     = itab_saplane
    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.
ENDMODULE.                 " create_control  OUTPUT
reward if useful.