abap屏幕选择字段联动显示

*&---------------------------------------------------------------------*
*& Report  ZPARMETERS5
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zparmeters5.

TABLES ZTCUSTOMER9.

SELECTION-SCREEN BEGIN OF BLOCK f0 WITH FRAME TITLE text-000.
PARAMETERS p1 TYPE char1 AS CHECKBOX DEFAULT 'X' USER-COMMAND flag.
PARAMETERS p2 TYPE char1 AS CHECKBOX USER-COMMAND flag1.
PARAMETERS p3 TYPE char1 AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK f0.


SELECTION-SCREEN BEGIN OF BLOCK f1 WITH FRAME TITLE text-001.
PARAMETERS m1 TYPE char10 MODIF ID x1.
PARAMETERS m2 TYPE char10 MODIF ID x1.
PARAMETERS m3 TYPE char10 MODIF ID x1.
SELECT-OPTIONS xx for ZTCUSTOMER9-ZECOMPANYNAME MODIF ID x1.
SELECTION-SCREEN END OF BLOCK f1.

SELECTION-SCREEN BEGIN OF BLOCK f2 WITH FRAME TITLE text-002.
PARAMETERS d1 TYPE char10 MODIF ID x2.
PARAMETERS d2 TYPE char10 MODIF ID x2.
PARAMETERS d3 TYPE char10 MODIF ID x2.



SELECTION-SCREEN END OF BLOCK f2.

SELECTION-SCREEN BEGIN OF BLOCK f3 WITH FRAME TITLE text-003.
PARAMETERS s1 TYPE char10 MODIF ID x3.
PARAMETERS s2 TYPE char10 MODIF ID x3.
PARAMETERS s3 TYPE char10 MODIF ID x3.
SELECTION-SCREEN END OF BLOCK f3.

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.


INITIALIZATION.


AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.

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

    IF p2 = ''.
      IF screen-group1 = 'X1'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.


  ENDLOOP.