The purpose of this sample code is to generate select-options dynamically.
The selection-screen takes the table name as input and generates the select-options for the fields selected dynamically.
1.Selection screen:
2.Creating dynamic selection screen
Interface to read a table from the ABAP Dictionary
for example: iv_kotab = A549
CALL FUNCTION 'DDIF_TABL_GET'
EXPORTING
NAME = IV_KOTAB
TABLES
DD03P_TAB = GT_DD03P.
Build dynamic selection:
- Build Selections
S_SELOPT-SIGN = 'I'.
S_SELOPT-OPTION = 'EQ'.
LOOP AT GT_DD03P.
CASE GT_DD03P-FIELDNAME.
WHEN 'MANDT'
OR 'KAPPL'
OR 'KSCHL'
OR 'KNUMH'.
* Do nothing
WHEN OTHERS.
* Insert other selection
CONCATENATE
GT_DD03P-TABNAME '-' GT_DD03P-FIELDNAME
INTO S_SELOPT-LOW.
APPEND S_SELOPT.
ENDCASE.
ENDCASE.
ENDLOOP.
Looping the seleopt table to generate the selection code
CONCATENATE 'SELECT-OPTIONS:' W_PARAMNAME INTO W_SRC
SEPARATED BY SPACE.
CONCATENATE W_SRC 'FOR' W_TABNAME INTO W_SRC
SEPARATED BY SPACE.
CONCATENATE W_SRC '-' W_FIELDNAME '.' INTO W_SRC.
* add field description at offset 42 - if possible
W_STRLEN = STRLEN( W_SRC ).
IF W_STRLEN < 42.
WRITE: '"' TO W_SRC+42.
WRITE: W_FIELDTEXT TO W_SRC+43.
ELSE.
CONCATENATE W_SRC '"' W_FIELDTEXT INTO W_SRC.
ENDIF.
APPEND_LINE I_SELSCR_SRC W_SRC.
* generate a text element for this select-option
CLEAR I_TEXTS.
I_TEXTS-ID = 'S'.
I_TEXTS-KEY = W_PARAMNAME.
I_TEXTS-ENTRY = 'D'. "=take DDIC text if available
WRITE: W_FIELDTEXT TO I_TEXTS-ENTRY+8.
APPEND I_TEXTS.
* *****************************************
* Build some Types that reflects the Selection fields.
APPEND_EMPTY I_TYPES_SRC.
CONCATENATE
'TYPES: BEGIN OF TP_' W_PARAMNAME+2(6) '.' INTO W_SRC.
APPEND_LINE I_TYPES_SRC W_SRC.
CONCATENATE
'INCLUDE STRUCTURE' W_PARAMNAME '.' INTO W_SRC
SEPARATED BY SPACE.
APPEND_LINE I_TYPES_SRC W_SRC.
CONCATENATE
'TYPES: END OF TP_' W_PARAMNAME+2(6) '.' INTO W_SRC.
APPEND_LINE I_TYPES_SRC W_SRC.
- Combine all statements for selection include
* Table declaration
CONCATENATE
'TABLES:' GV_KOTAB '.'
INTO W_SRC SEPARATED BY SPACE.
APPEND W_SRC TO L_SOURCE.
* Frame start
W_SRC = 'SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME.'.
APPEND W_SRC TO L_SOURCE.
* Selection options
APPEND LINES OF I_SELSCR_SRC TO L_SOURCE.
* Frame end
W_SRC = 'SELECTION-SCREEN END OF BLOCK B0.'.
APPEND W_SRC TO L_SOURCE.
* Types
APPEND LINES OF I_TYPES_SRC TO L_SOURCE.
REFRESH I_TYPES_SRC.
* ********************************
* Add report title and change selection texts as text elements
CLEAR I_TEXTS.
I_TEXTS-ID = 'R'.
I_TEXTS-ENTRY = 'Selection for Conversion of Condition Records'.
APPEND I_TEXTS.
SORT I_TEXTS BY ID KEY.
* Create text elements
DELETE TEXTPOOL C_DYN_REPID LANGUAGE SY-LANGU.
INSERT TEXTPOOL C_DYN_REPID FROM I_TEXTS LANGUAGE SY-LANGU.
* ********************************
* Rebuild the selection include
* program code inserted into ABAP repository
INSERT REPORT C_DYN_REPID_SELECTION FROM L_SOURCE
KEEPING DIRECTORY ENTRY.
Output:
