In continuation of previous example (see CDS ALV report in seconds with 7.5 SP 03), this ALV report development will show CDS functionality of 1) selection screen criteria and 2) maximum display size threshold.

See SAP classes CL_SALV_IDA_* and SAP programs SALV_IDA_* as of 7.5 SP03. With all this functionality provided by SAP, HANA / CDS is powerful development tool saving time and making possible the code pushdown to HANA database.

Create CDS view from ADT using folder Core Data Services, right-click to create New -> DDL Source

Create program (full source code below) which leverages standard SAP classes CL_SALV_*IDA*

From SE80, right-click program, click “Create GUI Status” called STATUS (see line 84)

See selection criteria made possible by SAP class CL_SALV_IDA_QUERY_ENGINE

See selection limitation made possible by SAP class CL_SALV_GUI_GRID_MODEL_IDA

CDS view on HANA DB quickly displays records according to selection criteria, in less than 1 second, including the custom ABAP CDS annotations.

 

REPORT  z_fi_header_cds_alv_select.
DATA:   go_alv_gui_table_ida TYPE REF TO if_salv_gui_table_ida ##NEEDED.
TABLES: bkpf.
SELECT-OPTIONS: s_belnr      FOR bkpf-belnr,
                s_bukrs      FOR bkpf-bukrs,
                s_gjahr      FOR bkpf-gjahr,
                s_budat      FOR bkpf-budat.
PARAMETERS:     p_limit      TYPE syst_tabix DEFAULT 2000000.
CLASS  lcl_salv_cds DEFINITION ##CLASS_FINAL.
  PUBLIC SECTION.
    CLASS-METHODS:
      display,
      status_function_selected
                    FOR EVENT function_selected OF if_salv_gui_fullscreen_ida
        IMPORTING ev_fcode.
  PRIVATE SECTION.
ENDCLASS.                    "lcl_salv_alv DEFINITION
CLASS lcl_salv_cds IMPLEMENTATION.
  METHOD display.
    DATA: lt_excluding_fcode    TYPE if_salv_gui_types_ida=>yt_excluding_fcode.
    DATA: lt_ranges             TYPE if_salv_service_types=>yt_named_ranges.
    FIELD-SYMBOLS: <fs_r>       LIKE LINE OF lt_ranges.
    FIELD-SYMBOLS: <fs_s>     LIKE LINE OF s_belnr,
                   <fs_bukrs> LIKE LINE OF s_bukrs,
                   <fs_gjahr> LIKE LINE OF s_gjahr,
                   <fs_budat> LIKE LINE OF s_budat.

    cl_salv_ida_services=>create_entity_and_abqi(
    EXPORTING iv_entity_id   = CONV #( 'Z_FI_HEADER2' )
              iv_entity_type = 'CDS'
    IMPORTING eo_entity      = DATA(lo_entity)
              eo_fetch       = DATA(lo_fetch) ).
    DATA(lo_ida_structdescr) = cl_salv_ida_structdescr=>create_for_sadl_entity( io_entity = lo_entity ).
    cl_salv_ida_text_search_prov=>get_search_attributes( EXPORTING io_salv_ida_structdescr = lo_ida_structdescr
                                                         IMPORTING ets_search_attribute    = DATA(lt_search_attribute) ).
    DATA(lo_sti_text_search) = cl_salv_ida_text_search_prov=>create_4_sti( lt_search_attribute ).
    DATA(lo_sadl_entity) = lo_ida_structdescr->get_sadl_entity( ).
    DATA(lo_text_search) = cl_salv_ida_text_search_prov=>create_4_ida_api( lo_ida_structdescr ).
    DATA(lo_query_engine) = NEW cl_salv_ida_query_engine( io_sadl_entity          = lo_sadl_entity
                                                          io_sadl_fetch           = lo_fetch
                                                          io_salv_ida_text_search = lo_text_search ).
    DATA(lo_idas) = cl_salv_ida_services=>create( io_structdescr_prov     = lo_ida_structdescr
                                                  io_sti_text_search_prov = lo_sti_text_search
                                                  io_query_engine         = lo_query_engine ).
*   begin Z_FI_HEADER_CDS_ALV_SELECT selection screen data to CL_SALV_IDA_QUERY_ENGINE range table
    REFRESH: lt_ranges.
    LOOP AT s_belnr ASSIGNING <fs_s>.
      APPEND INITIAL LINE TO lt_ranges ASSIGNING <fs_r>.
      MOVE-CORRESPONDING <fs_s> TO <fs_r>.       <fs_r>-name   = 'BELNR'.
    ENDLOOP.
    LOOP AT s_bukrs ASSIGNING <fs_bukrs>.
      APPEND INITIAL LINE TO lt_ranges ASSIGNING <fs_r>.
      MOVE-CORRESPONDING <fs_bukrs> TO <fs_r>.   <fs_r>-name   = 'BUKRS'.
    ENDLOOP.
    LOOP AT s_gjahr ASSIGNING <fs_gjahr>.
      APPEND INITIAL LINE TO lt_ranges ASSIGNING <fs_r>.
      MOVE-CORRESPONDING <fs_gjahr> TO <fs_r>.   <fs_r>-name   = 'GJAHR'.
    ENDLOOP.
    LOOP AT s_budat ASSIGNING <fs_budat>.
      APPEND INITIAL LINE TO lt_ranges ASSIGNING <fs_r>.
      MOVE-CORRESPONDING <fs_budat> TO <fs_r>.   <fs_r>-name   = 'BUDAT'.
    ENDLOOP.
    lo_idas->get_query_engine( )->set_selection_range_tab( it_ranges = lt_ranges ).
*   end Z_FI_HEADER_CDS_ALV_SELECT selection screen data to CL_SALV_IDA_QUERY_ENGINE range table
    DATA(lo_observer_manager)   = cl_salv_gui_observer_manager=>create_observer_manager( ).
    DATA(lo_user_action)        = NEW cl_salv_gui_user_action( ).
    DATA(lo_standard_functions) = NEW cl_salv_gui_std_functions_ida( ).
    DATA(lo_field_catalog)      = NEW cl_salv_gui_field_catalog_ida( io_structdescr_provider = lo_ida_structdescr ).
    DATA(lo_layout)             = NEW cl_salv_gui_layout_ida(        io_standard_functions   = lo_standard_functions
                                                                     io_text_search          = lo_sti_text_search
                                                                     io_field_catalog        = lo_field_catalog ).
    DATA(lo_model_ida)          = NEW cl_salv_gui_grid_model_ida(    io_idas                 = lo_idas
                                                                     io_field_catalog        = lo_field_catalog
                                                                     io_layout               = lo_layout
                                                                     io_user_action          = lo_user_action ).
*   begin set selection limitation
    lo_model_ida->if_salv_gui_table_ida~set_maximum_number_of_rows( iv_number_of_rows = p_limit ).
*   begin set selection limitation
    go_alv_gui_table_ida = cl_salv_gui_grid_controler_ida=>create_for_fullscreen(
                                                           EXPORTING io_user_action          = lo_user_action
                                                                     io_gui_grid_model       = lo_model_ida
                                                                     io_observer_manager     = lo_observer_manager ).
    go_alv_gui_table_ida->fullscreen( )->set_pf_status(
            iv_pf_status_name        = 'STATUS'
            iv_program_name          = sy-repid
            it_excluding_fcode       = lt_excluding_fcode  ).
    SET HANDLER status_function_selected FOR go_alv_gui_table_ida->fullscreen( ).
    go_alv_gui_table_ida->fullscreen( )->display( ).
  ENDMETHOD.
  METHOD status_function_selected.
    CASE ev_fcode.
      WHEN OTHERS.
        go_alv_gui_table_ida->fullscreen( )->exit( ).
    ENDCASE.
  ENDMETHOD.
ENDCLASS.                    "lcl_salv_cds IMPLEMENTATION

END-OF-SELECTION.
  CALL METHOD lcl_salv_cds=>display.
To report this post you need to login first.

3 Comments

You must be Logged on to comment or reply to a post.

    1. Todd Witter Post author

      Hi Amol, Integrated Data Access delivered from NW 7.4 onwards. Since this particular example using NW 7.5 SP03 some of the IDA functionality (class, methods, etc.) may not be available in NW 7.5 SP02.

      All the best,
      Todd

      (0) 

Leave a Reply