SAP-abap学习记录（23）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_23
*&
*&---------------------------------------------------------------------*
*&屏幕事件简单例子以及事件中止
*& "EXIT, STOP:從EXIT語句后的程序將不再執行, 包括END-OF-SELECTION模塊
*&REJECT.語名后的程序將不再執行，但不影響END-OF-SELECTION.模塊的執行.
*&---------------------------------------------------------------------*
REPORT ztest_abap_23.


PARAMETERS qual_day TYPE d DEFAULT sy-datum.

"initialization事件

INITIALIZATION.

  qual_day+6(2) = '01'.   "设置成每月1日
  qual_day = qual_day - 1.  "设置成每月最后一日

*START-OF-SELECTION事件
START-OF-SELECTION.

  REJECT.
*  STOP.
*  EXIT.
  WRITE: / 'date: ',qual_day.





*end-OF-DEFINITION事件
END-OF-SELECTION.

  IF  qual_day <> sy-datum.

    WRITE: / 'today: ', sy-datum.

  ENDIF.