ALV Grid without screens

Question

Hello experts,
is it possible to implement ALV grid display (OO) without statements such as "call screen 100"?
I have an example, logically everything should work but, unfortunatelly, nothing displays. Code:
ZPROGRAM CODING ***
REPORT ZTESTPROG.
DATA: save_ok LIKE sy-ucomm,
      ok_code LIKE sy-ucomm,
      it_spfli TYPE TABLE OF spfli WITH HEADER LINE.
DATA: G_CUSTOM_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      GRID1  TYPE REF TO CL_GUI_ALV_GRID,
      it_cat TYPE LVC_T_FCAT,
      wa_cat TYPE LVC_S_FCAT.
START-OF-SELECTION.
  SELECT * FROM spfli
           INTO TABLE it_spfli.
  perform INITIAL_GRID.
form INITIAL_GRID.
  PERFORM create_field_catalog.
  PERFORM create_grid_control.
endform.                 " INITIAL_GRID  OUTPUT
FORM create_field_catalog .
  IF it_cat[] is initial.
    clear wa_cat.
    wa_cat-col_pos   = 1.
    wa_cat-fieldname = 'CARRID'.
    wa_cat-datatype  = 'CHAR'.
    wa_cat-inttype   = 'C'.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = 'Airline Code'.
    wa_cat-coltext   = 'Airline Code'.
    append wa_cat to it_cat.
    clear wa_cat.
    wa_cat-col_pos   = 2.
    wa_cat-fieldname = 'CONNID'.
    wa_cat-datatype  = 'NUMC'.
    wa_cat-inttype   = 'N'.
    wa_cat-intlen    = 4.
    wa_cat-reptext   = 'Flight Conn. No'.
    wa_cat-coltext   = 'Flight Conn. No'.
    append wa_cat to it_cat.
    clear wa_cat.
    wa_cat-col_pos   = 3.
    wa_cat-fieldname = 'CITYFROM'.
    wa_cat-datatype  = 'CHAR'.
    wa_cat-inttype   = 'C'.
    wa_cat-intlen    = 20.
    wa_cat-reptext   = 'Dep. city'.
    wa_cat-coltext   = 'Dep. city'.
    append wa_cat to it_cat.
    clear wa_cat.
    wa_cat-col_pos   = 4.
    wa_cat-fieldname = 'AIRPFROM'.
    wa_cat-datatype  = 'CHAR'.
    wa_cat-inttype   = 'C'.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = 'Dep. airport'.
    wa_cat-coltext   = 'Dep. airport'.
    append wa_cat to it_cat.
    clear wa_cat.
    wa_cat-col_pos   = 5.
    wa_cat-fieldname = 'CITYTO'.
    wa_cat-datatype  = 'CHAR'.
    wa_cat-inttype   = 'C'.
    wa_cat-intlen    = 20.
    wa_cat-reptext   = 'Arrival city'.
    wa_cat-coltext   = 'Arrival city'.
    append wa_cat to it_cat.
    clear wa_cat.
    wa_cat-col_pos   = 6.
    wa_cat-fieldname = 'AIRPTO'.
    wa_cat-datatype  = 'CHAR'.
    wa_cat-inttype   = 'C'.
    wa_cat-intlen    = 3.
    wa_cat-reptext   = 'Dest. airport'.
    wa_cat-coltext   = 'Dest. airport'.
    append wa_cat to it_cat.
  ENDIF.
ENDFORM.                    " create_field_catalog
*&      Form  create_grid_control
      text
-->  p1        text
<--  p2        text
FORM create_grid_control .
  IF G_CUSTOM_CONTAINER1 is initial .
    CREATE OBJECT G_CUSTOM_CONTAINER1
           EXPORTING CONTAINER_NAME = 'CUSTOM1'.
    CREATE OBJECT GRID1
           EXPORTING I_PARENT = G_CUSTOM_CONTAINER1.
    CALL METHOD GRID1->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                     =
       IS_PRINT                      =
       IT_SPECIAL_GROUPS             =
       IT_TOOLBAR_EXCLUDING          =
       IT_HYPERLINK                  =
       IT_ALV_GRAPHICS               =
       IT_EXCEPT_QINFO               =
       IR_SALV_ADAPTER               =
      CHANGING
        IT_OUTTAB                     = it_spfli[]
        IT_FIELDCATALOG               = it_cat[]
       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.
  ENDIF.
ENDFORM.                    " create_grid_control
In contrast, if you use function "Reuse_Alv_List_Display" it works without any screens.

Answer 1

Hi
If you wish to go with OO approach to ALV Grid you can use the CL_SALV class.
Here you do not need to create the screen.
TYPES: BEGIN OF ty_kna1,
        kunnr TYPE kunnr,
        name1 TYPE name1_gp,
        land1 TYPE land1_gp,
       END OF ty_kna1,
       ty_t_kna1 TYPE TABLE OF ty_kna1.
DATA: t_kna1       TYPE TABLE OF ty_kna1,
      r_salv_table TYPE REF TO cl_salv_table,
      r_display    TYPE REF TO cl_salv_display_settings,
      r_columns    TYPE REF TO cl_salv_columns_table.
START-OF-SELECTION.
** Fetch Data
  SELECT kunnr
         name1
         land1
    FROM kna1
    INTO TABLE t_kna1
    UP TO 25 ROWS.
  CALL METHOD cl_salv_table=>factory
*  EXPORTING
*    list_display   = if_salv_c_bool_sap=>true
*    r_container    =
*    container_name =
    IMPORTING
      r_salv_table   = r_salv_table
    CHANGING
      t_table        = t_kna1.
  r_columns = r_salv_table->get_columns( ).
  r_columns->set_optimize( ).
  r_display = r_salv_table->get_display_settings( ).
  r_display->set_striped_pattern( value = 'X' ).
  r_salv_table->display( ).
Edited by: SAP LEARNER on Apr 6, 2011 4:56 PM