Radio button processing in selection screen
Hai all.
I have two radio buttons i.e P0(copy) & P1(delete) on selection screen. if i click on copy it shoud display the copy related selection screen. if click delete it should display delete relate selection screen,. default is delete
related selection-screen. Now i am getting the above selection screen, but by default it is displaying all fileds on the selection-screen but iwant to display only the delete related selection-screen(P_VERDEL).Here i am copying the code. Please give me some idea.
SELECTION-SCREEN BEGIN OF BLOCK rad1 WITH FRAME TITLE text-003 .
selection-screen begin of line.
SELECTION-SCREEN POSITION 11.
SELECTION-SCREEN COMMENT 1(12) text-004 modif id mg1.
parameters p_verfr like zrepl_gps-ZVERSIONFROM modif id mg1.
SELECTION-SCREEN POSITION 41 .
SELECTION-SCREEN COMMENT 35(16) text-005 modif id mg1.
parameters p_verto like zrepl_gps-ZVERSIONTO modif id mg1.
selection-screen end of line.
selection-screen skip 1.
selection-screen begin of line.
SELECTION-SCREEN POSITION 11.
SELECTION-SCREEN COMMENT 1(22) text-008 modif id mg2.
Parameters : p_verdel(10) type c modif id mg2.
selection-screen end of line.
selection-screen skip 4.
selection-screen begin of line.
SELECTION-SCREEN POSITION 11.
SELECTION-SCREEN COMMENT 1(10) text-001.
PARAMETERS : P0 RADIOBUTTON GROUP RADI user-command ABCD.
SELECTION-SCREEN POSITION 41.
SELECTION-SCREEN COMMENT 35(16) text-002.
PARAMETERS P1 RADIOBUTTON GROUP RADI default 'X'.
selection-screen end of line.
selection-screen skip 1.
parameters : c2 as checkbox.
SELECTION-SCREEN end OF BLOCK rad1.
data: v_chk.
at selection-screen.
if sy-ucomm = 'ABCD'.
v_chk = 'X'.
endif.
***********************************************************************************
AT SELECTION-SCREEN OUTPUT.
if v_chk = 'X'.
loop at screen.
IF P0 = 'X'.
if SCREEN-GROUP1 = 'MG2'.
screen-input = 0.
screen-active = 0.
ENDIF.
elseif P1 = 'X'.
if SCREEN-GROUP1 = 'MG1'.
screen-input = 0.
screen-active = 0.
ENDIF.
endif.
modify screen.
endloop.
ENDIF.