选择屏幕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.