[代码]如何在选择画面中创建动态的select-options详解编程语言

REPORT ztest_dynamic_selection. 
*---------------------------------------------------------------------- 
*Tables * 
*---------------------------------------------------------------------- 
TABLES : sscrfields, "Fields on selection screens 
dd03l. "Table Fields 
*---------------------------------------------------------------------- 
*Type Pools * 
*---------------------------------------------------------------------- 
TYPE-POOLS:rsds. 
*---------------------------------------------------------------------- 
*Selection Screen * 
*---------------------------------------------------------------------- 
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001, 
SKIP, 
BEGIN OF LINE, 
COMMENT 1(5) text-002. 
PARAMETERS : p_tab LIKE dd03l-tabname OBLIGATORY. "Table name 
SELECTION-SCREEN : PUSHBUTTON 45(8) p_btn USER-COMMAND clk, "Select-options 
END OF LINE, 
END OF BLOCK b1. 
*---------------------------------------------------------------------- 
*Types * 
*---------------------------------------------------------------------- 
TYPES: BEGIN OF t_dd03l, 
tabname    LIKE dd03l-tabname, "Table Name 
fieldname  LIKE dd03l-fieldname, "Field Name 
keyflag    LIKE dd03l-keyflag, "Key Flag 
rollname   LIKE dd03l-rollname, "Roll Name 
position   LIKE dd03l-position, "Position 
ddtext(30), "Description 
END OF t_dd03l, 
BEGIN OF t_fields. 
INCLUDE STRUCTURE dd03l. 
TYPES: END OF t_fields. 
TYPES : BEGIN OF t_tabs. "To hold the table names 
INCLUDE STRUCTURE rsdstabs. 
TYPES : END OF t_tabs. 
TYPES : BEGIN OF t_flds. "To hold the field names 
INCLUDE STRUCTURE rsdsfields. 
TYPES : END OF t_flds. 
TYPES : BEGIN OF t_fname, "To hold the field names 
fld LIKE dd03l-fieldname, 
END OF t_fname. 
*---------------------------------------------------------------------- 
*Internal Tables * 
*---------------------------------------------------------------------- 
DATA : it_dd03l  TYPE TABLE OF t_dd03l, "To hold the field names 
it_tabs   TYPE TABLE OF t_tabs, "To hold the table names 
it_flds   TYPE TABLE OF t_flds, "To hold the field names 
it_temp   TYPE TABLE OF t_flds, "Temp. table to hold field names 
it_fields TYPE TABLE OF t_fields, "To hold the field names 
it_cat    TYPE TABLE OF lvc_s_fcat, "To hold Field Catalog 
it_fname  TYPE TABLE OF t_fname. 
*---------------------------------------------------------------------- 
*Work areas * 
*---------------------------------------------------------------------- 
DATA: d_ref     TYPE REF TO data , "Data reference 
wa_dd03l  LIKE LINE OF it_dd03l, "Workarea for IT_DD03L 
wa_tabs   LIKE LINE OF it_tabs, "Workarea for IT_TABS 
wa_flds   LIKE LINE OF it_flds, "Workarea for IT_FLDS 
wa_temp   LIKE LINE OF it_temp, "Workarea for IT_TEMP 
wa_fields LIKE LINE OF it_fields, "Workarea for IT_FIELDS 
wa_cat    LIKE LINE OF it_cat , "Workarea for IT_CAT 
wa_fname  LIKE LINE OF it_fname. "Workarea for IT_FNAME 
*---------------------------------------------------------------------- 
*Field Symbols * 
*---------------------------------------------------------------------- 
FIELD-SYMBOLS : <f_fs> TYPE table. "FieldSymbol for holding fields 
*---------------------------------------------------------------------- 
*Variables * 
*---------------------------------------------------------------------- 
DATA: gx_texpr         TYPE rsds_texpr, "Variable to hold Expression 
gx_twhere        TYPE rsds_twhere, "Variable to hold Where Clause 
gv_selid         LIKE rsdynsel-selid, "Variable to hold Selid 
gv_actnum        LIKE sy-tfill, "Variable to hold no of fields 
gv_title         LIKE sy-title, "Variable to hold Title 
gv_where_cl(100) TYPE c, "Variable to hold Where clause 
gv_tbname        LIKE dd03l-tabname, 
gv_temp. 
SELECT-OPTIONS: 
s_fld   FOR dd03l-fieldname NO-DISPLAY, "To hold fields selected 
s_selop FOR dd03l-fieldname NO-DISPLAY, "To hold fields for creating dyn. select-options 
s_where FOR gv_where_cl NO-DISPLAY. "To hold where condition 
PARAMETERS: gv_t_old LIKE dd03l-tabname NO-DISPLAY. "Earlier Table name 
DATA : gt_grid TYPE REF TO cl_gui_alv_grid, 
gt_cust TYPE REF TO cl_gui_custom_container, "Custom Container 
cust    TYPE scrfname VALUE 'CC_OUTPUT'. "Custom controller 
*---------------------------------------------------------------------- 
*Constants * 
*---------------------------------------------------------------------- 
CONSTANTS: gc_i     TYPE c VALUE 'I', 
gc_eq(2) TYPE c VALUE 'EQ'. 
*---------------------------------------------------------------------- 
*Initialization * 
*---------------------------------------------------------------------- 
INITIALIZATION. 
**--Initialize values 
PERFORM initialize. 
*---------------------------------------------------------------------- 
*At Selection Screen * 
*---------------------------------------------------------------------- 
AT SELECTION-SCREEN. 
*--Select the fields of the input table 
PERFORM select_flds. 
*---------------------------------------------------------------------- 
*Start Of Selection * 
*---------------------------------------------------------------------- 
START-OF-SELECTION. 
*--Fetch data to display output 
PERFORM fetch_data. 
*---------------------------------------------------------------------- 
*End Of Selection * 
*---------------------------------------------------------------------- 
END-OF-SELECTION. 
CALL SCREEN '0300'. 
*---------------------------------------------------------------------- 
*At User Command * 
*---------------------------------------------------------------------- 
AT USER-COMMAND. 
CASE sy-ucomm. 
WHEN 'OK'. 
REFRESH it_temp. 
CLEAR it_temp. 
MOVE 'S' TO wa_temp-type. 
MOVE gv_tbname TO wa_temp-tablename. 
DO. 
READ LINE sy-index FIELD VALUE gv_temp INTO gv_temp. 
IF sy-subrc NE 0. 
EXIT. 
ENDIF. 
IF gv_temp EQ 'X'. 
sy-index = sy-index - 1. 
READ TABLE it_dd03l INTO wa_dd03l INDEX sy-index. 
IF sy-subrc = 0. 
MOVE wa_dd03l-fieldname TO wa_temp-fieldname. 
APPEND wa_temp TO it_temp. 
CLEAR gv_temp. 
ENDIF. 
ENDIF. 
ENDDO. 
DESCRIBE TABLE it_temp. 
IF sy-tfill GT 70. 
**--More than 70 fields can not be selected 
MESSAGE 'Cannot select more than 70 Parameters' TYPE 'I'. 
REFRESH it_temp[]. 
CLEAR it_temp. 
ELSE. 
LEAVE LIST-PROCESSING. 
ENDIF. 
WHEN 'CANCEL'. 
LEAVE LIST-PROCESSING. 
WHEN 'SELALL'. 
**--Select all fields 
CLEAR wa_dd03l-fieldname. 
DO. 
READ LINE sy-index. 
IF sy-subrc EQ 0 AND 
wa_dd03l-fieldname NE space. 
gv_temp = 'X'. 
MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp. 
HIDE gv_temp. 
CLEAR wa_dd03l-fieldname. 
ELSEIF sy-subrc NE 0. 
EXIT. 
ENDIF. 
ENDDO. 
WHEN 'DSELALL'. 
**--Deselect all fields 
CLEAR gv_temp. 
DO. 
READ LINE sy-index. 
IF sy-subrc EQ 0. 
CLEAR gv_temp. 
MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp FROM gv_temp. 
HIDE gv_temp. 
ELSEIF sy-subrc NE 0. 
EXIT. 
ENDIF. 
ENDDO. 
ENDCASE. 
sy-lsind = 0. 
*&--------------------------------------------------------------------- 
*& Form INITIALIZE 
*&--------------------------------------------------------------------- 
* Initialize values on selection-screen 
*---------------------------------------------------------------------- 
FORM initialize . 
p_btn = 'Options'(003). 
ENDFORM. " INITIALIZE 
*&--------------------------------------------------------------------- 
*& Form SELECT_FLDS 
*&--------------------------------------------------------------------- 
* Select fields from the table 
*---------------------------------------------------------------------- 
FORM select_flds . 
CASE sscrfields-ucomm. 
WHEN 'CLK'. 
**--Display Screen with the list of fields 
PERFORM genr_scr. 
ENDCASE. 
ENDFORM. " SELECT_FLDS 
*&--------------------------------------------------------------------- 
*& Form genr_scr 
*&--------------------------------------------------------------------- 
* Display a screen with list of fields 
*---------------------------------------------------------------------- 
FORM genr_scr. 
**--If table in the parameter is not the same as the old table and 
**--old table is not blank, then initialise all the variables associated 
IF p_tab NE gv_t_old AND gv_t_old IS NOT INITIAL. 
REFRESH: it_tabs, it_flds, 
gx_texpr, gx_twhere, 
s_where, s_selop. 
CLEAR: gv_selid. 
**--Pass current table parameter value to Old table parameter 
gv_t_old = p_tab. 
ENDIF. 
**--Pass the current table name to old table variable 
IF gv_t_old EQ space. 
gv_t_old = p_tab. 
ENDIF. 
**--Check if table name is given before clicking the button 
IF p_tab IS INITIAL. 
MESSAGE 'Enter the Table name' TYPE 'E'. 
ENDIF. 
**--Get the list of fields of a given table 
PERFORM get_selections. 
**--If none of the fields, provide the list of fields for selecting 
IF it_flds[] IS INITIAL. 
CLEAR gv_selid. 
PERFORM select_fieldlist. 
ENDIF. 
**--Show message if none of the fields are selected 
IF it_flds[] IS INITIAL. 
MESSAGE 'No parameters selected' TYPE 'S'. 
EXIT. 
ENDIF. 
**--Generate dynamic select-options 
REFRESH it_tabs. 
CLEAR : it_tabs, wa_tabs. 
wa_tabs-prim_tab = p_tab. 
APPEND wa_tabs TO it_tabs. 
PERFORM set_values. 
**--Generate Expression from Where clause 
CALL FUNCTION 'FREE_SELECTIONS_WHERE_2_EX' 
EXPORTING 
where_clauses        = gx_twhere 
IMPORTING 
expressions          = gx_texpr 
EXCEPTIONS 
incorrect_expression = 1 
OTHERS               = 2. 
IF sy-subrc NE 0. 
MESSAGE 'Error in Dynamic screen generation' TYPE 'I'. 
EXIT. 
ENDIF. 
IF gx_texpr IS NOT INITIAL. 
**--Populate values to select-options from expression 
PERFORM set_values. 
ENDIF. 
**--Display screen with the fields listed 
IF gv_selid IS NOT INITIAL. 
PERFORM call_screen. 
ENDIF. 
ENDFORM. " genr_scr 
*&--------------------------------------------------------------------- 
*& Form GET_SELECTIONS 
*&--------------------------------------------------------------------- 
* Fetch the fields in the table given 
*---------------------------------------------------------------------- 
FORM get_selections. 
DATA : wa_where LIKE LINE OF gx_twhere. 
REFRESH: it_flds, gx_twhere. 
CLEAR : wa_flds. 
wa_flds-tablename = p_tab. 
wa_flds-type = 'S'. 
LOOP AT s_selop. 
**--Populate all the fields selected that are previously selected 
wa_flds-fieldname = s_selop-low. 
APPEND wa_flds TO it_flds. 
ENDLOOP. 
IF s_where[] IS NOT INITIAL. 
**--Populate values to where condition if any data is previously given 
**--to the dynamic select-options 
wa_where-tablename = p_tab. 
LOOP AT s_where. 
APPEND s_where-low TO wa_where-where_tab. 
ENDLOOP. 
APPEND wa_where TO gx_twhere. 
ENDIF. 
ENDFORM. " GET_SELECTIONS 
*&--------------------------------------------------------------------- 
*& Form SELECT_FIELDLIST 
*&--------------------------------------------------------------------- 
* Display the list of fields 
*---------------------------------------------------------------------- 
FORM select_fieldlist. 
CLEAR: it_dd03l[], it_dd03l, 
gv_tbname. 
**--Get field names for given table 
SELECT tabname 
fieldname 
keyflag 
rollname 
position 
FROM dd03l 
INTO TABLE it_dd03l 
WHERE tabname EQ p_tab 
AND fieldname NE 'MANDT'. 
IF sy-subrc = 0. 
SORT it_dd03l BY position. 
DELETE it_dd03l WHERE fieldname CP '.INCLU*'. 
ENDIF. 
**--Get the description of the fields 
LOOP AT it_dd03l INTO wa_dd03l. 
IF NOT wa_dd03l-rollname IS INITIAL. 
SELECT SINGLE ddtext 
FROM dd04t 
INTO wa_dd03l-ddtext 
WHERE rollname EQ wa_dd03l-rollname 
AND ddlanguage = sy-langu 
AND as4local = 'A'. 
MODIFY it_dd03l FROM wa_dd03l. 
ELSE. 
SELECT SINGLE ddtext 
FROM dd03t 
INTO wa_dd03l-ddtext 
WHERE tabname EQ wa_dd03l-tabname 
AND ddlanguage = sy-langu 
AND as4local = 'A' 
AND fieldname = wa_dd03l-fieldname. 
MODIFY it_dd03l FROM wa_dd03l. 
ENDIF. 
ENDLOOP. 
gv_tbname = p_tab. 
**--Display screen with the fields listed for the given table 
CALL SCREEN 200 STARTING AT 10 2 
ENDING AT 70 22. 
**--Clear all the fields selected 
CLEAR : it_flds, it_flds[], gv_tbname. 
**--Populate the newly selected fields 
it_flds[] = it_temp[]. 
**--Clear temporary table with the fields selected 
CLEAR : it_temp, it_temp[]. 
ENDFORM. " SELECT_FIELDLIST 
*&--------------------------------------------------------------------- 
*& Form INITIALIZE_SCREEN 
*&--------------------------------------------------------------------- 
FORM initialize_screen. 
CALL FUNCTION 'FREE_SELECTIONS_INIT' 
EXPORTING 
kind                     = 'T' 
expressions              = gx_texpr 
IMPORTING 
selection_id             = gv_selid 
number_of_active_fields  = gv_actnum 
TABLES 
tables_tab               = it_tabs 
fields_tab               = it_flds 
EXCEPTIONS 
fields_incomplete        = 01 
fields_no_join           = 02 
field_not_found          = 03 
no_tables                = 04 
table_not_found          = 05 
expression_not_supported = 06 
incorrect_expression     = 07 
illegal_kind             = 08 
area_not_found           = 09 
inconsistent_area        = 10 
kind_f_no_fields_left    = 11 
kind_f_no_fields         = 12 
too_many_fields          = 13. 
ENDFORM. " INITIALIZE_SCREEN 
*&--------------------------------------------------------------------- 
*& Form SET_VALUES 
*&--------------------------------------------------------------------- 
* Set the values to the select-options 
*---------------------------------------------------------------------- 
FORM set_values. 
CALL FUNCTION 'FREE_SELECTIONS_INIT' 
EXPORTING 
kind                     = 'T' 
expressions              = gx_texpr 
IMPORTING 
selection_id             = gv_selid 
number_of_active_fields  = gv_actnum 
TABLES 
tables_tab               = it_tabs 
fields_tab               = it_flds 
EXCEPTIONS 
fields_incomplete        = 01 
fields_no_join           = 02 
field_not_found          = 03 
no_tables                = 04 
table_not_found          = 05 
expression_not_supported = 06 
incorrect_expression     = 07 
illegal_kind             = 08 
area_not_found           = 09 
inconsistent_area        = 10 
kind_f_no_fields_left    = 11 
kind_f_no_fields         = 12 
too_many_fields          = 13. 
ENDFORM. " SET_VALUES 
*&--------------------------------------------------------------------- 
*& Form CALL_SCREEN 
*&--------------------------------------------------------------------- 
* Call the screen to display the fields 
*---------------------------------------------------------------------- 
FORM call_screen. 
DATA : wa_where LIKE LINE OF gx_twhere, 
lv_txt   TYPE string. 
lv_txt = 'Dynamic Selections Parameters for'(007). 
CONCATENATE lv_txt p_tab 
INTO gv_title SEPARATED BY space. 
CALL FUNCTION 'FREE_SELECTIONS_DIALOG' 
EXPORTING 
selection_id            = gv_selid 
title                   = gv_title 
tree_visible            = ' ' 
IMPORTING 
where_clauses           = gx_twhere 
expressions             = gx_texpr 
number_of_active_fields = gv_actnum 
TABLES 
fields_tab              = it_flds 
EXCEPTIONS 
internal_error          = 01 
no_action               = 02 
no_fields_selected      = 03 
no_tables_selected      = 04 
selid_not_found         = 05. 
IF sy-subrc EQ 0. 
REFRESH: s_where, s_selop. 
**--Populate the Where clause with selected values 
s_where-sign = gc_i. 
s_where-option = gc_eq. 
CLEAR wa_where. 
READ TABLE gx_twhere INDEX 1 INTO wa_where. 
LOOP AT wa_where-where_tab INTO s_where-low. 
APPEND s_where. 
ENDLOOP. 
**--Populate all the fields 
s_selop-sign = gc_i. 
s_selop-option = gc_eq. 
CLEAR : wa_flds. 
LOOP AT it_flds INTO wa_flds. 
s_selop-low = wa_flds-fieldname. 
APPEND s_selop. 
ENDLOOP. 
ENDIF. 
ENDFORM. " CALL_SCREEN 
*&--------------------------------------------------------------------- 
*& Module STATUS_0200 OUTPUT 
*&--------------------------------------------------------------------- 
* Display screen with select-options 
*---------------------------------------------------------------------- 
MODULE status_0200 OUTPUT. 
DATA: lv_txt TYPE string. 
lv_txt = 'Selection Paramters List'(008). 
SET PF-STATUS 'DIALOG'. 
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0. 
SUPPRESS DIALOG. 
MOVE lv_txt TO sy-title. 
**--display list of fields that can be selected for creating dynamic select-options 
LOOP AT it_dd03l INTO wa_dd03l. 
AT FIRST. 
WRITE: (60) sy-uline. 
ENDAT. 
READ TABLE it_flds INTO wa_flds WITH KEY fieldname = wa_dd03l-fieldname. 
IF sy-subrc NE 0. 
CLEAR gv_temp. 
ELSE. 
gv_temp = 'X'. 
ENDIF. 
WRITE:/ '|' ,gv_temp AS CHECKBOX. 
WRITE: (20) wa_dd03l-fieldname,'|', wa_dd03l-ddtext, AT 60 '|'. 
HIDE: gv_temp, wa_dd03l-fieldname, wa_dd03l-keyflag. 
AT LAST. 
WRITE: (60) sy-uline. 
ENDAT. 
ENDLOOP. 
ENDMODULE. " STATUS_0200 OUTPUT 
*&--------------------------------------------------------------------- 
*& Form FETCH_DATA 
*&--------------------------------------------------------------------- 
* Fetch data from table 
*---------------------------------------------------------------------- 
FORM fetch_data . 
DATA: lv_where TYPE string, 
lv_cnt   TYPE i. 
**--Check for the existance of the table 
SELECT * 
FROM dd03l 
INTO TABLE it_fields 
WHERE tabname = p_tab. 
SORT it_fields BY position. 
**--Delete the fields starting with .INCLU 
DELETE it_fields WHERE fieldname CP '.INCLU*'. 
**--Display the first 150 fields of the table 
LOOP AT it_fields INTO wa_fields TO 150. 
lv_cnt = lv_cnt + 1. 
wa_cat-tabname = p_tab. 
wa_cat-fieldname = wa_fields-fieldname. 
wa_cat-col_pos = lv_cnt. 
wa_cat-inttype = wa_fields-inttype. 
wa_cat-datatype = wa_fields-datatype. 
wa_cat-intlen = wa_fields-intlen. 
wa_cat-seltext = wa_fields-fieldname. 
wa_cat-decimals = wa_fields-decimals. 
wa_cat-ref_field = wa_fields-fieldname. 
wa_cat-ref_table = p_tab. 
APPEND wa_cat TO it_cat. 
CLEAR wa_cat. 
wa_fname-fld = wa_fields-fieldname. 
APPEND wa_fname TO it_fname. 
CLEAR wa_fname. 
ENDLOOP. 
**--Create a dynamic internal table with the 150 fields 
CALL METHOD cl_alv_table_create=>create_dynamic_table 
EXPORTING 
it_fieldcatalog = it_cat 
IMPORTING 
ep_table        = d_ref. 
ASSIGN d_ref->* TO <f_fs>. 
**--Populate the Where clause as a string 
LOOP AT s_where. 
CONCATENATE lv_where s_where-low INTO lv_where SEPARATED BY space. 
ENDLOOP. 
**--Select the data from the table given as input and populate 
**--it into the dynamic internal table created based on the where condition 
SELECT (it_fname) 
FROM (p_tab) 
INTO CORRESPONDING FIELDS OF TABLE <f_fs> 
WHERE (lv_where). 
**--If no entries are found that satisfies the selection criteria 
IF sy-subrc <> 0. 
MESSAGE 'No data found' TYPE 'I'. 
ENDIF. 
ENDFORM. " FETCH_DATA 
*&--------------------------------------------------------------------- 
*& Form DISPLAY_DATA 
*&--------------------------------------------------------------------- 
* Display data in the grid control 
*---------------------------------------------------------------------- 
FORM display_data . 
IF gt_cust IS INITIAL. 
CREATE OBJECT gt_cust 
EXPORTING 
container_name = cust. 
CREATE OBJECT gt_grid 
EXPORTING 
i_parent = gt_cust. 
**--Display the data in the grid control 
CALL METHOD gt_grid->set_table_for_first_display 
EXPORTING 
i_buffer_active               = 'X' 
i_bypassing_buffer            = ' ' 
CHANGING 
it_outtab                     = <f_fs> 
it_fieldcatalog               = it_cat 
EXCEPTIONS 
invalid_parameter_combination = 1 
program_error                 = 2 
too_many_lines                = 3 
OTHERS                        = 4. 
IF sy-subrc <> 0. 
ENDIF. 
ENDIF. 
ENDFORM. " DISPLAY_DATA 
*&--------------------------------------------------------------------- 
*& Module DISPLAY_DATA OUTPUT 
*&--------------------------------------------------------------------- 
* Dispaly data in the output 
*---------------------------------------------------------------------- 
MODULE display_data OUTPUT. 
PERFORM display_data. 
ENDMODULE. " DISPLAY_DATA OUTPUT 
*&--------------------------------------------------------------------- 
*& Module STATUS_0300 OUTPUT 
*&--------------------------------------------------------------------- 
* Pf-status for the screen 
*---------------------------------------------------------------------- 
MODULE status_0300 OUTPUT. 
SET PF-STATUS '13317'. 
ENDMODULE. " STATUS_0300 OUTPUT 
*&--------------------------------------------------------------------- 
*& Module USER_COMMAND_0300 INPUT 
*&--------------------------------------------------------------------- 
* Handling the button clicks 
*---------------------------------------------------------------------- 
MODULE user_command_0300 INPUT. 
CASE sy-ucomm. 
**--Go to the previous screen 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 
**--Come out of the program 
WHEN 'EXIT'. 
LEAVE PROGRAM. 
ENDCASE. 
ENDMODULE. " USER_COMMAND_0300 INPUT

PROCESS BEFORE OUTPUT. 
**--Set PF-STATUS 
MODULE STATUS_0200. 
PROCESS AFTER INPUT.

PROCESS BEFORE OUTPUT. 
**--Set PF-STATUS 
MODULE STATUS_0300. 
**--Display data using custom controller 
MODULE DISPLAY_DATA. 
PROCESS AFTER INPUT. 
**--Handle button clicks 
MODULE USER_COMMAND_0300.