需求：根据输入条件，动态显示输出的列。
REPORT ZMM001.
TABLES:rsddstat_olap, rsddstatheader .
DATA:lv_infoprov(30),
lv_objname(30),
lv_name_first(40),
lv_name_last(40).
TYPES:BEGIN OF is_datail, "明细
uname TYPE rsddstat_olap-uname, "用户ID
uname_l(80), "用户名称
calday TYPE rsddstat_olap-calday, "运行日期
utime TYPE rsddstat_olap-utime, "运行时间
infoprov TYPE rsddstat_olap-infoprov,"信息提供者
objname TYPE rsddstat_olap-objname, "QURRY ID
txtlg TYPE rszelttxt-txtlg, "QURRY 名称
END OF is_datail.
DATA: ls_detail TYPE is_datail,
wa_detail TYPE is_datail,
lt_detail TYPE TABLE OF is_datail,
lt_out TYPE TABLE OF is_datail.
TYPES:BEGIN OF is_total,
objname TYPE rsddstat_olap-objname, "QURRY ID
txtlg TYPE rszelttxt-txtlg, " QURRY 名称
uname TYPE rsddstat_olap-uname, "用户ID
uname_l(80), "用户名称
calday TYPE rsddstat_olap-calday, "运行日期
utime TYPE rsddstat_olap-utime, "运行时间
infoprov TYPE rsddstat_olap-infoprov,"信息提供者
END OF is_total.
DATA:ls_total TYPE is_total,
lt_total TYPE TABLE OF is_total.
DATA:fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
layout TYPE slis_layout_alv.
DATA lv_repid LIKE sy-repid value sy-repid.
TYPES:BEGIN OF is_period,"汇总数据包含的月份期间
period(6), "期间
pertx(10), "期间描述
END OF is_period.
DATA:ls_period TYPE is_period,
lt_period TYPE TABLE OF is_period.
TYPES:BEGIN OF is_compid,
compid TYPE v_rep_join-compuid, "QURRY ID
txtlg TYPE rszelttxt-txtlg, "QURRY 名称
END OF is_compid.
DATA:lt_compid TYPE TABLE OF is_compid.
DATA: lv_year(4),
lv_line TYPE i,
lv_index TYPE i,
lv_last TYPE i.
DATA:dy_table TYPE REF TO data,
dy_line TYPE REF TO data,
ls_fieldcat TYPE lvc_s_fcat,
lt_fieldcat TYPE lvc_t_fcat.
FIELD-SYMBOLS: <it_table> TYPE STANDARD TABLE,
<wa_table>,
<wa_field>,
<wa_sum>.
SELECT-OPTIONS:s_calday FOR rsddstat_olap-calday OBLIGATORY,"运行日期
s_uname FOR rsddstat_olap-uname, "用户名
s_oname FOR rsddstatheader-objname. "Query ID
PARAMETERS:r_total RADIOBUTTON GROUP g1 DEFAULT 'X', "显示汇总
r_detail RADIOBUTTON GROUP g1. "显示明细
INITIALIZATION.
CONCATENATE 'Z' '%' INTO lv_infoprov.
CONCATENATE 'Z' '%' INTO lv_objname.
"搜索帮助
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_oname-low.
CLEAR:lt_compid.
SELECT compid txtlg
INTO CORRESPONDING FIELDS OF TABLE lt_compid
FROM v_rep_join
INNER JOIN rszelttxt
ON v_rep_join~compuid = rszelttxt~eltuid
WHERE v_rep_join~objvers = 'A'
AND v_rep_join~deftp = 'REP'
AND v_rep_join~compid LIKE lv_objname
AND rszelttxt~langu = sy-langu.
SORT lt_compid BY compid.
DELETE ADJACENT DUPLICATES FROM lt_compid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'COMPID'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'S_ONAME-LOW'
value_org = 'S'
TABLES
value_tab = lt_compid
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_oname-high.
CLEAR:lt_compid.
SELECT compid txtlg
INTO CORRESPONDING FIELDS OF TABLE lt_compid
FROM v_rep_join
INNER JOIN rszelttxt
ON v_rep_join~compuid = rszelttxt~eltuid
WHERE v_rep_join~objvers = 'A'
AND v_rep_join~deftp = 'REP'
AND v_rep_join~compid LIKE lv_objname
AND rszelttxt~langu = sy-langu.
SORT lt_compid BY compid.
DELETE ADJACENT DUPLICATES FROM lt_compid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'COMPID'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'S_ONAME-HIGH'
value_org = 'S'
TABLES
value_tab = lt_compid
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
START-OF-SELECTION.
IF r_total = 'X'."获取汇总数据
PERFORM get_total_data.
PERFORM dis_alv.
ELSEIF r_detail = 'X'."获取明细数据
PERFORM get_detail_data.
PERFORM display_alv.
ENDIF.
*&---------------------------------------------------------------------*
*& Form GET_DETAIL_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM get_detail_data.
SELECT a~objname a~infoprov
b~uname b~calday
b~utime
FROM rsddstatheader AS a
INNER JOIN rsddstatinfo AS b
ON b~stepuid = a~stepuid
INNER JOIN rsddstatevdata AS c
ON c~stepuid = a~stepuid
AND c~handleid = a~handleid
AND c~handletp = a~handletp
INTO CORRESPONDING FIELDS OF TABLE lt_detail
WHERE c~handletp = 'OLAP'
AND c~eventid = '3010'
AND b~steptp = 'AOE'
AND a~infoprov LIKE lv_infoprov
AND a~objname LIKE lv_objname
AND b~calday IN s_calday
AND b~uname IN s_uname
AND a~objname IN s_oname.
LOOP AT lt_detail INTO ls_detail.
"在用户ID在表ZMM001中的排除
SELECT COUNT(*) FROM ZMW001 WHERE uname = ls_detail-uname.
CHECK sy-subrc <> 0.
SELECT SINGLE name_first name_last INTO (lv_name_first,lv_name_last)
FROM adrp
INNER JOIN usr21 on usr21~PERSNUMBER = adrp~PERSNUMBER
WHERE usr21~BNAME = ls_detail-uname.
CONCATENATE lv_name_first lv_name_last INTO ls_detail-uname_l.
SELECT SINGLE txtlg INTO ls_detail-txtlg
FROM rszelttxt
INNER JOIN v_rep_join ON v_rep_join~compuid = rszelttxt~eltuid
WHERE v_rep_join~compid = ls_detail-objname
AND v_rep_join~objvers = 'A'
AND v_rep_join~deftp = 'REP'
AND rszelttxt~langu = sy-langu.
APPEND ls_detail TO lt_out.
MOVE-CORRESPONDING ls_detail TO ls_total.
APPEND ls_total TO lt_total.
CLEAR:ls_detail,ls_total.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM display_alv .
layout-colwidth_optimize = 'X'.
REFRESH fieldcat.
fieldcat-fieldname = 'UNAME'.
fieldcat-seltext_m = '用户ID'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'UNAME_L'.
fieldcat-seltext_m = '用户名称'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'CALDAY'.
fieldcat-seltext_m = '运行日期'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'UTIME'.
fieldcat-seltext_m = '运行时间'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'INFOPROV'.
fieldcat-seltext_m = '信息提供者'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'OBJNAME'.
fieldcat-seltext_m = 'QURRY ID'.
APPEND fieldcat.
CLEAR fieldcat.
fieldcat-fieldname = 'TXTLG'.
fieldcat-seltext_m = '报表名称'.
APPEND fieldcat.
CLEAR fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = lv_repid
IS_LAYOUT = layout
IT_FIELDCAT = fieldcat[]
TABLES
T_OUTTAB = lt_out
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_TOTAL_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM get_total_data .
PERFORM get_detail_data.
"获取查询期间
IF s_calday-high IS INITIAL.
ls_period-period = s_calday-low.
CONCATENATE ls_period-period(4) '年' ls_period-period+4(2) '月' INTO ls_period-pertx.
APPEND ls_period TO lt_period.
ELSEIF s_calday-low IS INITIAL.
ls_period-period = s_calday-high.
CONCATENATE ls_period-period(4) '年' ls_period-period+4(2) '月' INTO ls_period-pertx.
APPEND ls_period TO lt_period.
ELSE.
ls_period-period = s_calday-low(6).
CONCATENATE ls_period-period(4) '年' ls_period-period+4(2) '月' INTO ls_period-pertx.
APPEND ls_period TO lt_period.
DO.
IF ls_period-period < s_calday-high(6).
IF ls_period-period+4(2) <> 12.
ls_period-period = ls_period-period + 1.
ELSE.
lv_year = ls_period-period(4) + 1.
CONCATENATE lv_year '01' into ls_period-period.
ENDIF.
CONCATENATE ls_period-period(4) '年' ls_period-period+4(2) '月' INTO ls_period-pertx.
APPEND ls_period TO lt_period.
ELSE.
EXIT.
ENDIF.
ENDDO.
ENDIF.
SORT lt_period BY period ASCENDING.
PERFORM dynamic_table.
DESCRIBE TABLE lt_period lines lv_line.
lv_last = lv_line + 2."汇总列所处的列序号
SORT lt_total BY objname txtlg calday ASCENDING.
LOOP AT lt_total INTO ls_total.
AT NEW txtlg.
ASSIGN COMPONENT 1 OF STRUCTURE <wa_table> to <wa_field>.
<wa_field> = ls_total-txtlg.
lv_index = 2."期间开始的列序号
ASSIGN COMPONENT lv_last OF STRUCTURE <wa_table> to <wa_sum>.
DO lv_line TIMES.
ASSIGN COMPONENT lv_index OF STRUCTURE <wa_table> TO <wa_field>.
READ TABLE lt_fieldcat INTO ls_fieldcat INDEX lv_index.
IF SY-SUBRC = 0.
CONDENSE ls_fieldcat-fieldname NO-GAPS.
LOOP AT lt_total INTO ls_total WHERE txtlg = ls_total-txtlg
AND objname = ls_total-objname
AND calday(6) = ls_fieldcat-fieldname.
<wa_field> = <wa_field> + 1.
ENDLOOP.
<wa_sum> = <wa_sum> + <wa_field>.
ENDIF.
lv_index = lv_index + 1.
ENDDO.
APPEND <wa_table> TO <it_table>.
CLEAR: <wa_table>,ls_total.
ENDAT.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DYNAMIC_TABLE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM dynamic_table .
DEFINE init_field.
CLEAR &1.
&1-fieldname = &2.
&1-reptext_ddic = &3.
&1-do_sum = &4.
&1-no_zero = 'X'.
&1-hotspot = &5.
APPEND &1.
END-OF-DEFINITION.
INIT_FIELD fieldcat 'TXTLG' '报表名称' '' ''.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'TXTLG'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-inttype = 'C'.
ls_fieldcat-intlen = 60.
ls_fieldcat-decimals = 0.
APPEND ls_fieldcat TO lt_fieldcat.
LOOP AT lt_period into ls_period.
init_field fieldcat ls_period-period ls_period-pertx '' ''.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = ls_period-period.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-inttype = 'C'.
ls_fieldcat-intlen = 10.
ls_fieldcat-decimals = 0.
APPEND ls_fieldcat TO lt_fieldcat.
ENDLOOP.
INIT_FIELD fieldcat 'TOTAL' '总计' '' ''.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'TOTAL'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-inttype = 'C'.
ls_fieldcat-intlen = 10.
ls_fieldcat-decimals = 0.
APPEND ls_fieldcat TO lt_fieldcat.
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = lt_fieldcat
IMPORTING
ep_table = dy_table.
ASSIGN dy_table->* TO <it_table>.
CREATE DATA dy_line LIKE LINE OF <it_table>.
ASSIGN dy_line->* TO <wa_table>.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DIS_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM dis_alv .
layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = lv_repid
is_layout = layout
i_save = 'A'
it_fieldcat = fieldcat[]
TABLES
T_OUTTAB = <it_table>
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_GRID_DISPLAY'.
ENDIF.
ENDFORM.
本文地址：https://blog.csdn.net/Mona_1220/article/details/108981582