topic Re: Checking a radiobutton in Application Development and Automation Discussions

Checking a radiobutton

Former Member — Wed, 06 Jun 2007 14:49:30 GMT

Hy !

I have this :

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 5.

SELECTION-SCREEN COMMENT (13) text-p03 FOR FIELD sb_wks.

PARAMETERS: sb_wks RADIOBUTTON GROUP myg.

..............................................................................

And same for another radiobutton from the same group, in another line.

I want to perform something is the radiobutton is choosed .

I tried:

IF NOT sb_wks IS INITIAL.

PERFORM ods_wks.

ENDIF.

Not working ,

Suggestions? Solutions?

Thank you.

Re: Checking a radiobutton

RichHeilman — Wed, 06 Jun 2007 14:53:28 GMT

Try something like this.

IF sb_wks = 'X'.
PERFORM ods_wks.
ENDIF.

Regards,

Rich Heilman

Re: Checking a radiobutton

Former Member — Thu, 07 Jun 2007 02:21:59 GMT

Hi Anda,

when ever u select the radiobutton the corresponding parameter gets a value of X.

IF sb_wks = 'X'.

ELSE.

PERFORM ods_wks.

ENDIF

Thanks

venki

Re: Checking a radiobutton

Former Member — Thu, 07 Jun 2007 05:24:52 GMT

hi,

check the sample pg: declare radio buttons like below in program and use

if P_list = 'X'.

perform validation.

endif.

REPORT ZSUDHA_SCREEN.

**--- Radiobuttons

PARAMETERS: p_up RADIOBUTTON GROUP a DEFAULT 'X' USER-COMMAND rb,

p_list RADIOBUTTON GROUP a.

PARAMETERS: p_pcfile LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\'

MODIF ID ccc,

p_pctype LIKE rlgrap-filetype OBLIGATORY DEFAULT 'ASC'

MODIF ID ccc,

p_unix LIKE rlgrap-filename OBLIGATORY DEFAULT '.\'

MODIF ID ccc.

PARAMETERS: p_dir LIKE rlgrap-filename OBLIGATORY DEFAULT '.'

MODIF ID ddd,

p_fp LIKE rlgrap-filename

MODIF ID ddd.

AT SELECTION-SCREEN OUTPUT.

IF p_up = 'X' .

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CCC'.

screen-input = 1. "Enable

screen-invisible = 0. "Disable

MODIFY SCREEN.

WHEN 'DDD'.

screen-input = 0.

screen-invisible = 1.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

IF p_list = 'X'.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CCC'.

screen-input = 0.

screen-invisible = 1.

MODIFY SCREEN.

WHEN 'DDD'.

screen-input = 1.

screen-invisible = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.