动态选择屏幕详解编程语言

*&---------------------------------------------------------------------* 
*& Report  ZLYTEST_SCREEN 
*& 
*&---------------------------------------------------------------------* 
*& 
*& 
*&---------------------------------------------------------------------* 
REPORT ZLYTEST_SCREEN. 
DATA: LV_SELECTION_ID TYPE                   RSDYNSEL-SELID, 
LT_TABLES_TAB   TYPE STANDARD TABLE OF RSDSTABS, 
LS_TABLES_TAB   TYPE                   RSDSTABS. 
DATA: LT_FIELDS_TAB    TYPE STANDARD TABLE OF RSDSFIELDS, 
LT_WHERE_CLAUSES TYPE                   RSDS_TWHERE, 
GS_WHERE_CLAUSES LIKE LINE OF           LT_WHERE_CLAUSES. 
DATA:GT_ZTSD_LSXY TYPE TABLE OF ZTSD_LSXY. 
DATA:LV_TABNAME TYPE TABNAME VALUE 'ZTSD_LSXY'. 
"可以多个表，字段等 
LS_TABLES_TAB-PRIM_TAB = LV_TABNAME. 
APPEND LS_TABLES_TAB TO LT_TABLES_TAB. 
CALL FUNCTION 'FREE_SELECTIONS_INIT' 
EXPORTING 
KIND                     = 'T' 
IMPORTING 
SELECTION_ID             = LV_SELECTION_ID 
TABLES 
TABLES_TAB               = LT_TABLES_TAB 
EXCEPTIONS 
FIELDS_INCOMPLETE        = 1 
FIELDS_NO_JOIN           = 2 
FIELD_NOT_FOUND          = 3 
NO_TABLES                = 4 
TABLE_NOT_FOUND          = 5 
EXPRESSION_NOT_SUPPORTED = 6 
INCORRECT_EXPRESSION     = 7 
ILLEGAL_KIND             = 8 
AREA_NOT_FOUND           = 9 
INCONSISTENT_AREA        = 10 
KIND_F_NO_FIELDS_LEFT    = 11 
KIND_F_NO_FIELDS         = 12 
TOO_MANY_FIELDS          = 13 
DUP_FIELD                = 14 
FIELD_NO_TYPE            = 15 
FIELD_ILL_TYPE           = 16 
DUP_EVENT_FIELD          = 17 
NODE_NOT_IN_LDB          = 18 
AREA_NO_FIELD            = 19 
OTHERS                   = 20. 
IF SY-SUBRC EQ 0. 
CALL FUNCTION 'FREE_SELECTIONS_DIALOG' 
EXPORTING 
SELECTION_ID    = LV_SELECTION_ID 
TITLE           = '选择' 
FRAME_TEXT      = '查询条件' 
AS_WINDOW       = 'X' 
IMPORTING 
WHERE_CLAUSES   = LT_WHERE_CLAUSES 
TABLES 
FIELDS_TAB      = LT_FIELDS_TAB 
EXCEPTIONS 
INTERNAL_ERROR  = 1 
NO_ACTION       = 2 
SELID_NOT_FOUND = 3 
ILLEGAL_STATUS  = 4 
OTHERS          = 5. 
IF SY-SUBRC EQ 0. 
CLEAR GS_WHERE_CLAUSES. 
ENDIF. 
ENDIF. 
"根据不同的查询表，将查询参数一次加入各个表 
READ TABLE LT_WHERE_CLAUSES INTO GS_WHERE_CLAUSES 
WITH KEY TABLENAME = LV_TABNAME. 
IF SY-SUBRC = 0. 
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ZTSD_LSXY 
FROM ZTSD_LSXY WHERE ZJLH <> '' AND (GS_WHERE_CLAUSES-WHERE_TAB) . 
ENDIF. 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 
EXPORTING 
I_CALLBACK_PROGRAM = SY-REPID 
I_STRUCTURE_NAME   = 'ZTSD_LSXY' 
TABLES 
T_OUTTAB           = GT_ZTSD_LSXY 
EXCEPTIONS 
PROGRAM_ERROR      = 1 
OTHERS             = 2. 
IF SY-SUBRC <> 0. 
ENDIF.