ALV报表——选择屏幕变量赋值

ABAP选择屏幕变量赋值

运行效果：

代码：

*&---------------------------------------------------------------------*
*& Report ZPPR9998_TEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPR9998_TEST.

DATA: LASTDATE TYPE D.     "第一天
DATA: FIRSTDAY TYPE D.      "最后一天

SELECT-OPTIONS:S_DATE FOR SY-DATUM.

INITIALIZATION.

CALL FUNCTION 'FIMA_DATE_CREATE'
        EXPORTING
             I_DATE                  = SY-DATUM
             I_MONTHS                = '-1'
             I_SET_LAST_DAY_OF_MONTH = 'X'
        IMPORTING
             E_DATE                  = LASTDATE.

CONCATENATE LASTDATE+0(6) '01' INTO FIRSTDAY."

S_DATE-SIGN     = 'I'.
S_DATE-OPTION = 'CP'.
S_DATE-LOW = FIRSTDAY.
S_DATE-HIGH = LASTDATE.

APPEND S_DATE.CLEAR S_DATE.

START-OF-SELECTION.

WRITE:/ S_DATE-LOW,S_DATE-HIGH.