Drop down on Selection screen using domain values
Maintain values in value range tab at Domain level for the data element 'zvb_dom'
*&---------------------------------------------------------------------*
*& Report ZVB_EX
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_ex.
PARAMETERS:p_r1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND us,
p_r2 RADIOBUTTON GROUP g1.
PARAMETERS:p_c TYPE zvb_dom AS LISTBOX VISIBLE LENGTH 50 USER-COMMAND dummy MODIF ID a1,
p_date TYPE dats MODIF ID a2,
p_mon TYPE dats MODIF ID a3.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF p_r1 = 'X' AND screen-group1 = 'A1'.
screen-active = 1.
MODIFY SCREEN.
ELSEIF p_r1 = 'X' AND p_c = '0000000001' AND screen-group1 = 'A2'." AND screen-group2 = 'A3'.
screen-active = 1.
MODIFY SCREEN.
ELSEIF p_r1 = 'X' AND p_c eq '0000000002' AND screen-group1 = 'A3'.
screen-active = 1.
MODIFY SCREEN.
ELSEIF p_r1 = ' ' AND screen-group1 = 'A1' OR screen-group1 = 'A2' or screen-group1 = 'A3' .
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
Output:
Comments
Post a Comment