How to set radio button value in submit statement

[Former Member]

Hi All,

I am trying to submit RHALEINI from my custom program .In RHALEINI by default All reporting period will be selected but from custom program i am trying to set Today radio button under reporting period .i am using the following code

SUBMIT rhaleini VIA SELECTION-SCREEN

WITH SELECTION-TABLE rspar_tab

WITH pchotype = 'P'

WITH pchobjid IN range_tab

WITH pchztr_a EQ ' '

WITH pchztr_z EQ ' '

WITH pchztr_m EQ ' '

WITH pchztr_p EQ ' '

WITH pchztr_y EQ ' '

WITH pchztr_d EQ 'X'

but always the All radio button is getting selected.Please let me know how can i select Today radio button using submit

Thanks

Bala Duvvuri

[Former Member]

Hi ,

Pass the radiobutton in the SELECTION-TABLE

CLEAR i_select.

i_select-selname = 'LGBST'.

i_select-kind = 'P'.

i_select-low = 'X'.

APPEND i_select.

[Former Member]

I wrote the following code but it doesn't work

&----

---

*& Report ZSENDSELECTION

*&

&----

---

*&

*&

&----

---

REPORT zsendselection.

DATA: text TYPE c LENGTH 10,

rspar_tab TYPE TABLE OF rsparams,

rspar_line LIKE LINE OF rspar_tab,

range_tab LIKE RANGE OF text,

range_line LIKE LINE OF range_tab.

...

rspar_line-selname = 'PCHOBJID'.

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'CP'.

rspar_line-low = 'ABAP'.

APPEND rspar_line TO rspar_tab.

clear rspar_line.

rspar_line-selname = 'PCHZTR_D'.

rspar_line-kind = 'P'.

*rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = 'X'.

APPEND rspar_line TO rspar_tab.

SUBMIT rhaleini VIA SELECTION-SCREEN

WITH SELECTION-TABLE rspar_tab

WITH pchotype = 'P'

WITH rcvprn = 'DX1CLNT500'

*WITH pchobjid IN range_tab

*WITH pchztr_a EQ space

*WITH pchztr_z EQ space

*WITH pchztr_m EQ space

*WITH pchztr_p EQ space

*WITH pchztr_y EQ space

*WITH pchztr_d EQ 'X'

.

Thanks

Bala Duvvuri

Edited by: Bala Duvvuri on Jun 20, 2010 7:22 PM

[Former Member]

BALA ,

have u passed the other radiobutton as space in the rsparam table , if not pass it , it should work .

[Former Member]

It is not working.check my code

*&---------------------------------------------------------------------*
*& Report  ZSENDSELECTION
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zsendselection.
DATA: text TYPE c LENGTH 10,
rspar_tab TYPE TABLE OF rsparams,
rspar_line LIKE LINE OF rspar_tab,
range_tab LIKE RANGE OF text,
range_line LIKE LINE OF range_tab.

rspar_line-selname = 'PCHOBJID'.
rspar_line-kind = 'S'.
rspar_line-sign = 'I'.
rspar_line-option = 'CP'.
rspar_line-low = 'ABAP'.
APPEND rspar_line TO rspar_tab.

range_line-sign = 'I'.
range_line-option = 'EQ'.
range_line-low = '10004435'.
APPEND range_line TO range_tab.

range_line-sign = 'I'.
range_line-option = 'EQ'.
range_line-low = '10004300'.
APPEND range_line TO range_tab.


clear rspar_line.
rspar_line-selname = 'PCHZTR_D'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = 'X'.
APPEND rspar_line TO rspar_tab.

clear rspar_line.
rspar_line-selname = 'PCHZTR_A'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = ' '.
APPEND rspar_line TO rspar_tab.

clear rspar_line.
rspar_line-selname = 'PCHZTR_Z'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = ''.
APPEND rspar_line TO rspar_tab.

clear rspar_line.
rspar_line-selname = 'PCHZTR_M'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = ' '.
APPEND rspar_line TO rspar_tab.

clear rspar_line.
rspar_line-selname = 'PCHZTR_Y'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = ' '.
APPEND rspar_line TO rspar_tab.

clear rspar_line.
rspar_line-selname = 'PCHZTR_P'.
rspar_line-kind = 'P'.
*rspar_line-sign = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low = ' '.
APPEND rspar_line TO rspar_tab.


SUBMIT rhaleini VIA SELECTION-SCREEN
WITH SELECTION-TABLE rspar_tab
WITH pchotype = 'P'
WITH rcvprn = 'DX1CLNT500'
WITH pchobjid IN range_tab
WITH pchztr_a eq space
WITH pchztr_z EQ space
WITH pchztr_m EQ space
WITH pchztr_p EQ space
WITH pchztr_y EQ space
WITH pchztr_d eq 'X'
.

Thanks

Bala Duvvuri

Edited by: Bala Duvvuri on Jun 21, 2010 11:06 PM

[Former Member]

I created a variant and submitted report using variant and it got solved

SUBMIT rhaleini VIA SELECTION-SCREEN

WITH SELECTION-TABLE rspar_tab

USING SELECTION-SET 'ZRADIO'

WITH pchobjid IN range_tab

.

Thanks

Bala Duvvuri

[kesavadas_thekkillath]

Hi Bala,

Just place a breakpoint in subroutine pbo in include DBPCHF00 and execute your program.

Initialization event in LDB pch

There is a code

IF pchtimed NE space.   "This must be satisfied
CASE pchtimed.
  WHEN 'D'.
    pchztr_d = 'X'.
  WHEN 'M'.
    pchztr_m = 'X'.
  WHEN 'Y'.
    pchztr_y = 'X'.
  WHEN 'P'.
    pchztr_p = 'X'.
  WHEN 'F'.
    pchztr_f = 'X'.
ENDCASE.
else.
          pchztr_a = 'X'.  "In your code this part executes always
endif.

So for solution pass PCHTIMED = D in your submit.

SUBMIT rhaleini VIA SELECTION-SCREEN
WITH SELECTION-TABLE rspar_tab
WITH pchotype = 'P'
WITH rcvprn = 'DX1CLNT500'
WITH pchobjid IN range_tab
with PCHTIMED = 'D'
WITH pchztr_d eq 'X'.