abap模拟MMBE的屏幕选择

*&---------------------------------------------------------------------*
*& Report  ZMMBE1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zmmbe1.

TABLES t001w.
TABLES t001l.
TABLES lfa1.
TABLES rmmmb.

SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-001.

PARAMETERS matnr TYPE mara-matnr.
SELECT-OPTIONS werks FOR t001w-werks.
SELECT-OPTIONS lgort FOR t001l-lgort.
SELECT-OPTIONS lifnr FOR lfa1-lifnr.

SELECTION-SCREEN END OF BLOCK one.



SELECTION-SCREEN BEGIN OF BLOCK two WITH FRAME TITLE text-002.

PARAMETERS p1 TYPE char1 AS CHECKBOX DEFAULT 'X' USER-COMMAND flag.
PARAMETERS p2 TYPE char1 AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK two.


SELECTION-SCREEN BEGIN OF BLOCK three WITH FRAME TITLE text-003.

SELECT-OPTIONS kzson FOR rmmmb-kzson.
PARAMETERS bb TYPE char3 DEFAULT 1 VISIBLE LENGTH 3.
PARAMETERS dw TYPE char3 VISIBLE LENGTH 3.

PARAMETERS p3 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p4 TYPE char1 AS CHECKBOX DEFAULT ''.

SELECTION-SCREEN BEGIN OF BLOCK f4 WITH FRAME TITLE text-004.
PARAMETERS p5 TYPE char1 AS CHECKBOX DEFAULT 'X' MODIF ID f1.
PARAMETERS p6 TYPE char1 AS CHECKBOX DEFAULT 'X' MODIF ID f1.
PARAMETERS p7 TYPE char1 AS CHECKBOX DEFAULT 'X' MODIF ID f1.
PARAMETERS p8 TYPE char1 AS CHECKBOX DEFAULT 'X' MODIF ID f1.
PARAMETERS p9 TYPE char1 AS CHECKBOX DEFAULT 'X' MODIF ID f1.
SELECTION-SCREEN END OF BLOCK f4.


SELECTION-SCREEN END OF BLOCK three.



SELECTION-SCREEN BEGIN OF BLOCK f5 WITH FRAME TITLE text-005.

SELECT-OPTIONS kzson2 FOR rmmmb-kzson.

SELECTION-SCREEN END OF BLOCK f5.


*初始化屏幕
INITIALIZATION.
  matnr = 'A34'.

*显示屏幕后
AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF p1 = ''.
      IF screen-group1 = 'F1'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

*F8执行事件
START-OF-SELECTION.
  WRITE matnr.