选择屏幕abap , pararmeters,USER-COMMAND详解编程语言

*——————————————————————
*选择屏
SELECTION-SCREEN BEGIN OF BLOCK BL1  WITH FRAME  TITLE TEXT–002 .
PARAMETERS : P1 RADIOBUTTON GROUP B1 DEFAULT ‘X’ USER-COMMAND chg,
             P2 RADIOBUTTON GROUP B1.
SELECTION-SCREEN END OF BLOCK BL1.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT–001.

SELECT-OPTIONS: S_VKORG  FOR A611–VKORG MODIF ID ADD,
                S_VTWEG  FOR A611–VTWEG MODIF ID ADD,
                S_WERKS  FOR A611–WERKS MODIF ID ADD,
                S_KUNNR  FOR A611–KUNNR MODIF ID ADD,
                S_MATNR  FOR A611–MATNR MODIF ID ADD,
                S_VKORG1 FOR A608–VKORG MODIF ID DIS,
                S_VTWEG1 FOR A608–VTWEG MODIF ID DIS,
                S_WERKS1 FOR A608–WERKS MODIF ID DIS,
                S_KDGRP1 FOR A608–KDGRP MODIF ID DIS,
                S_MATNR1 FOR A608–MATNR MODIF ID DIS.
PARAMETERS: S_DATE LIKE RV130–DATAM.

SELECTION-SCREEN END OF BLOCK B1.

*——————————————————————–*
* 屏幕事件: AT SELECTION-SCREEN OUTPUT
*——————————————————————–*
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.

    IF P1 = ‘X’.
      IF SCREEN–GROUP1 = ‘DIS’.
        SCREEN–ACTIVE = 0.
      ENDIF.
    ELSE.
      IF SCREEN–GROUP1 = ‘ADD’ .
        SCREEN–ACTIVE = 0.
      ENDIF.
    ENDIF.

    MODIFY SCREEN.
  ENDLOOP.