01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | REPORT ztest. TABLES pa0002. *----------------------------------------------------------------------- * Selection screen *----------------------------------------------------------------------- PARAMETERS : p_radio1 RADIOBUTTON GROUP rad1 DEFAULT 'X' USER - COMMAND rad. "set s_pernr visible PARAMETERS : p_radio2 RADIOBUTTON GROUP rad1. "set s_pernr invisible SELECT - OPTIONS : s_pernr FOR pa0002-pernr MODIF ID 100. *---------------------------------------------------------------------- * AT SELECTION-SCREEN *---------------------------------------------------------------------- AT SELECTION - SCREEN OUTPUT . " PBO LOOP AT SCREEN . CASE screen -group1. WHEN '100' . screen -invisible = COND #( WHEN p_radio1 = abap_true THEN 0 ELSE 1 ). MODIFY SCREEN . ENDCASE . ENDLOOP . |