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

*&---------------------------------------------------------------------* 
*& 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.