아래와같이 At selection-screen시 screen Loop를 통해
컨트롤을 조절할수있습니다.
아래는 체크박스를 눌렀을을 컴보박스를 나타나게 하려고 만든소스입니다.
참고하세요^^
AT SELECTION-SCREEN OUTPUT.
PERFORM modify_screen.
======================================
FORM modify_screen .
CASE ra_01_01.
WHEN 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'GR1'.
screen-active = 1.
WHEN 'GR2'.
screen-active = 0.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDCASE.
CASE ra_01_02.
WHEN 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'GR1'.
screen-active = 0.
WHEN 'GR2'.
screen-active = 1.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDCASE.
ENDFORM. " MODIFY_SCREEN