도움이 되셨으면 좋겠습니다.
소스 그냥 통채로 올립니다.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(18) text-009.
PARAMETERS : p_rb1 RADIOBUTTON GROUP rbg USER-COMMAND ucom DEFAULT 'X'.
SELECTION-SCREEN COMMENT 30(24) text-010.
PARAMETERS : p_rb2 RADIOBUTTON GROUP rbg.
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT.
PERFORM field_hide_by_radiobutton.
*&---------------------------------------------------------------------*
*& Form field_hide_by_radiobutton
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM field_hide_by_radiobutton .
IF p_rb1 EQ 'X'.
LOOP AT SCREEN.
IF screen-name EQ '%C006012_1000' OR
screen-name EQ '%_S_VDATU_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_VDATU-LOW' OR
screen-name EQ '%_S_VDATU_%_APP_%-TO_TEXT' OR
screen-name EQ 'S_VDATU-HIGH' OR
screen-name EQ '%C007016_1000' OR
screen-name EQ '%_S_GWLDT_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_GWLDT-LOW' OR
screen-name EQ '%_S_GWLDT_%_APP_%-TO_TEXT' OR
screen-name EQ 'S_GWLDT-HIGH' OR
screen-name EQ '%C008020_1000' OR
screen-name EQ '%_S_AUDAT_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_AUDAT-LOW' OR
screen-name EQ '%_S_AUDAT_%_APP_%-TO_TEXT' OR
screen-name EQ 'S_AUDAT-HIGH' OR
screen-name EQ '%B002024_BLOCK_1000' OR
screen-name EQ '%C003026_1000' OR
screen-name EQ '%_S_SPART_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_SPART-LOW' OR
screen-name EQ '%_S_SPART_%_APP_%-VALU_PUSH' OR
screen-name EQ '%C004030_1000 ' OR
screen-name EQ '%_S_VKBUR_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_VKBUR-LOW' OR
screen-name EQ '%_S_VKBUR_%_APP_%-VALU_PUSH' OR
screen-name EQ '%C005034_1000' OR
screen-name EQ '%_S_VKGRP_%_APP_%-OPTI_PUSH' OR
screen-name EQ 'S_VKGRP-LOW' OR
screen-name EQ '%_S_VKGRP_%_APP_%-VALU_PUSH' OR
screen-name EQ '%_17SNS0000652317_%_%_%_%_%_%_' OR
screen-name EQ 'SSCRFIELDS-UCOMM'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-name EQ '%_P_VBELN_%_APP_%-TEXT' OR
screen-name EQ 'P_VBELN'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM. "" field_hide_by_radiobutton"
<< 발췌는 역시나 http://www.storyroom.net >>