Dynamic Table Selection

REPORT zdany_dynamic_select.

* We use some parameters to dynamically control the select, this is not very
* clever but this is just a test program !!
PARAMETER : p_tabnam TYPE tabname DEFAULT 'SFLIGHT',
            p_selfl1 TYPE edpline DEFAULT 'CARRID',
            p_selfl2 TYPE edpline DEFAULT 'CONNID',
            p_selfl3 TYPE edpline DEFAULT 'FLDATE',
            p_selfl4 TYPE edpline DEFAULT 'PRICE',
            p_selfl5 TYPE edpline DEFAULT 'CURRENCY',
            p_where1 TYPE edpline DEFAULT 'PRICE > 300',
            p_where2 TYPE edpline DEFAULT 'AND CURRENCY = ''EUR'''.

FIELD-SYMBOLS :  TYPE ANY TABLE,
                 TYPE ANY,
                 TYPE ANY.

DATA: lt_where    TYPE TABLE OF edpline,
      lt_sel_list TYPE TABLE OF edpline,
      lt_group    TYPE TABLE OF edpline,
      l_having    TYPE string,
      l_wa_name   TYPE string,
      l_sel_list  TYPE edpline,
      dref        TYPE REF TO data,
      itab_type   TYPE REF TO cl_abap_tabledescr,
      struct_type TYPE REF TO cl_abap_structdescr,
      elem_type   TYPE REF TO cl_abap_elemdescr,
      comp_tab    TYPE cl_abap_structdescr=>component_table,
      comp_fld    TYPE cl_abap_structdescr=>component.

TYPES: f_count TYPE i.

* Creation of the output table including a non standard field, f_count
* see ABAP FAQ #14 for more information on this topic
struct_type ?= cl_abap_typedescr=>describe_by_name( p_tabnam ).
elem_type   ?= cl_abap_elemdescr=>describe_by_name( 'F_COUNT' ).
comp_tab = struct_type->get_components( ).



* We remove the unnecessary fields
LOOP AT comp_tab INTO comp_fld.
   IF comp_fld-name <> p_selfl1 AND
      comp_fld-name <> p_selfl2 AND
      comp_fld-name <> p_selfl3 AND
      comp_fld-name <> p_selfl4 AND
      comp_fld-name <> p_selfl5.
         DELETE TABLE comp_tab WITH TABLE KEY name = comp_fld-name.
   ENDIF.
ENDLOOP.

comp_fld-name = 'F_COUNT'.
comp_fld-type = elem_type.
APPEND comp_fld TO comp_tab.

struct_type = cl_abap_structdescr=>create( comp_tab ).
itab_type   = cl_abap_tabledescr=>create( struct_type ).

l_wa_name = 'l_WA'.
CREATE DATA dref TYPE HANDLE itab_type.
ASSIGN dref->* TO .
CREATE DATA dref TYPE HANDLE struct_type.
ASSIGN dref->* TO .

* Creation of the selection fields and the "group by" clause
APPEND p_selfl1 TO lt_sel_list.
APPEND p_selfl1 TO lt_group.
APPEND p_selfl2 TO lt_sel_list.
APPEND p_selfl2 TO lt_group.
APPEND p_selfl3 TO lt_sel_list.
APPEND p_selfl3 TO lt_group.
APPEND p_selfl4 TO lt_sel_list.
APPEND p_selfl4 TO lt_group.
APPEND p_selfl5 TO lt_sel_list.
APPEND p_selfl5 TO lt_group.
APPEND 'COUNT(*) AS F_COUNT' TO lt_sel_list.

* creation of the "where" clause
APPEND p_where1 TO lt_where.
APPEND p_where2 TO lt_where.

* Creation of the "having" clause
l_having = 'count(*) >= 1'.

* THE dynamic select
SELECT          (lt_sel_list)
       FROM     (p_tabnam)
       INTO CORRESPONDING FIELDS OF TABLE
       WHERE    (lt_where)
       GROUP BY (lt_group)
       HAVING   (l_having)
       ORDER BY (lt_group).

* display of the results
LOOP AT  ASSIGNING .
   LOOP AT comp_tab INTO comp_fld.
      ASSIGN COMPONENT comp_fld-name OF STRUCTURE  TO .
      WRITE: .
   ENDLOOP.
   SKIP.
ENDLOOP.

Comments

Post a Comment

Popular posts from this blog

ABAP Dialog Programming : Set Filter data of Table Control

Example ABAP code for Filter data of table control *---------------------------------------------------------------------* *      Form  F_filter_data *---------------------------------------------------------------------* *  By Oka Wirasatha *---------------------------------------------------------------------* form F_FILTER_DATA .   field-symbols :     <selected_col> type CXTAB_COLUMN.   data : LW_COLS like TC_ITEM-COLS.   data : GT_FIELDCAT type LVC_T_FCAT.   data LAYO type LVC_S_LAYO.   data : GT_FILTER_INDEX type LVC_T_FIDX,          LT_SELCOL type table of LVC_S_COL with header line.   data : LT_FILT type LVC_T_FILT,          LW_FILT type LVC_S_FILT,          LT_LAYOUT type LVC_S_LAYO. * find out if a column is selected.   loop at TC_ITEM-COLS assigning <selected_col>.     if <selected_col...
Read more

Step by step Create SAP LIS Report

Steps in LIS EXTRACTION: T.code - :MC18 – create field catalog 1. Characteristic Catalog Application-01-Sales and Distribution, 02-Purchasing, 03-Inventory Controlling, etc.. Catalog category 1. Characteristic catalog, 2. Key figures catalog 3. Date catalog Select characteristic catalog and enter, click on characteristic select the source table and it will be display the relevant source field and select the source field, copy + close, copy. Save, similarly create key figures catalog T.code : MC21 – create infostructure Example – Inforstructure : S789 Application – 01 Choose characteristic select the catalog, select the fields, copy + close Choose key figures catalog select the key figures ,copy + close, save and generate T.code – MC24 – create updating Infostructure : S789 Update group : 01- Sales document, delivery, billing document ,enter Select the key figures click on rules for key figures give suggest rules, copy save and generate Click on updating (activate updatin...
Read more

SAP Bapi Price Change (MR21)

Image
when i am try find BAPI for change prince on search engine, I'm Found BAPI_M_REVAL_CREATEPRICECHANGE but in this BAPI block by statement .... * Im Standard deaktiviert error_flag = 'X'. IF ( NOT error_flag IS INITIAL ). EXIT. ENDIF. ..... Why ?? until now I don't no why this BAPI is block !!. My solution is just copy to Z_BAPI .. and remove that statement and running well. Note : minimal required for parameters table MATERIAL_PRICE_LIST is plant = ft_list-werks. material = ft_list-matnr. curr_type = '10'. IF ft_list-vprsv = 'S'. change_std_price = 'X'. std_price = ft_list-nstpr * 100. ELSE. change_mov_price = 'X'. moving_pr = ft_list-nstpr * 100. ENDIF. currency = ft_list-waers. iso_code = ft_list-waers. price_unit = ft_list-peinh. quantity_unit = ft_list-meins. isocode_unit = ft_list-meins. hope can help for change price (MR21).
Read more