TABLES: MSEG,AUFK,EKKO.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_P1 TYPE C RADIOBUTTON GROUP B1 DEFAULT 'X' USER-COMMAND FLAG,
P_P2 TYPE C RADIOBUTTON GROUP B1.
SELECTION-SCREEN SKIP 1.
PARAMETERS: P_WERKS TYPE MARC-WERKS DEFAULT '3001' .
SELECT-OPTIONS: S_LGORT FOR MSEG-LGORT MODIF ID M1,
S_MATNR FOR MSEG-MATNR,
S_AUFNR FOR AUFK-AUFNR MODIF ID M1,
S_EBELN FOR EKKO-EBELN MODIF ID M2,
S_MBLNR FOR MSEG-MBLNR,
S_BWART FOR MSEG-BWART.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN 'M1'.
IF P_P1 = 'X'.
SCREEN-ACTIVE = '0'.
ELSE.
SCREEN-ACTIVE = '1'.
ENDIF.
WHEN 'M2'.
IF P_P1 = 'X'.
SCREEN-ACTIVE = '1'.
ELSE.
SCREEN-ACTIVE = '0'.
ENDIF.
WHEN OTHERS.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.