select-option

[Former Member]

how do i print selection screen values on a report.pls send the relevant code.

[Former Member]

Create a class

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS: top_of_page FOR EVENT top_of_page OF cl_gui_alv_grid

IMPORTING e_dyndoc_id.

ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD top_of_page.

• Selection Criteria

CONCATENATE 'Selection Scree' ' : ' INTO lv_text SEPARATED BY space.

CALL METHOD go_dyndoc_id->add_text

EXPORTING

text = lv_text

sap_style = cl_dd_area=>key.

• Company code

CALL METHOD go_dyndoc_id->new_line.

CONCATENATE 'Company Code' ' :' ' s_bukrs-low INTO lv_text SEPARATED BY space.

CALL METHOD go_dyndoc_id->add_text

EXPORTING

text = lv_text

sap_style = cl_dd_area=>key.

Reward if useful.........

[varma_narayana]

Hi..

SELECT-OPTIONS : S_DATE FOR SY-DATUM.

START-OF-SELECTION.

LOOP AT S_DATE.

WRITE:/ S_DATE-SIGN,

S_DATE-OPTION,

S_DATE-LOW,

S_DATE-HIGH.

ENDLOOP.

<b>reward if Helpful.</b>

[Former Member]

Hi,

Use the below code.

• Declare your select options or parameters here

tables: pa0000.

select-options: s_pernr for pa0000-pernr,

s_begda for pa0000-begda.

*-- Types for selection-screen options

TYPES: BEGIN OF t_varinfo,

flag TYPE c,

olength TYPE x,

line LIKE raldb-infoline,

END OF t_varinfo.

DATA: it_varinfo TYPE t_varinfo OCCURS 0 WITH HEADER LINE.

*-- Get selection screen options

CALL FUNCTION 'PRINT_SELECTIONS'

EXPORTING

mode = ' '

rname = sy-cprog

rvariante = ''

TABLES

infotab = it_varinfo.

FORMAT RESET.

SUMMARY.

*-- Processing each selection screen element

LOOP AT it_varinfo.

*-- Display the current line 'it_varinfo' table

• WRITE:/ it_varinfo+2.

WRITE:/ it_varinfo-line+0(79).

ENDLOOP.

*if the statement WRITE:/ it_varinfo+2 does not work

*then use the statement WRITE:/ it_varinfo-line+0(79).

Message was edited by:

Velangini Showry Maria Kumar Bandanadham

Message was edited by:

Velangini Showry Maria Kumar Bandanadham

[Former Member]

[code]REPORT ztesting .

TABLES: afru.

SELECT-OPTIONS : s_date FOR sy-datum,

s_werks FOR afru-werks.

START-OF-SELECTION.

WRITE:

/ s_date-low,

/ s_date-high,

/ s_werks-low,

/ s_werks-high.

[Former Member]

hi

good

REPORT ZHELLO7 MESSAGE-ID 00.

TABLES T005T.

DATA: greeting(20) VALUE 'Hello World',

sel_cont(20), "selected continent

string1(21), "dummy string variable

string2(72), "dummy string variable

cfield(80), "field the cursor is on

ret_button1(10) VALUE '++++++++++', "screen return button

ret_button2(10) VALUE '+ RETURN +'. "screen return button

DATA: BEGIN OF loc OCCURS 20, "locations itab with three fields

continent(20), "continent name

nat(20), "nation/country name

cap(20), "capitol city of the nation/country

END OF loc.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. "3.0

SELECT-OPTIONS s_land1 FOR T005T-Land1.

SELECTION-SCREEN ULINE.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 5(36) TEXT-001.

PARAMETERS color TYPE N.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK b1. "3.0

START-OF-SELECTION.

PERFORM build_loc. "populate loc with names

PERFORM level0.

AT LINE-SELECTION.

GET CURSOR FIELD cfield.

IF cfield CS 'ret_button'.

SET USER-COMMAND 'BACK'.

ELSE.

CASE SY-LSIND.

WHEN 1. PERFORM level1.

WHEN 2. PERFORM level2.

WHEN 3. PERFORM level3.

ENDCASE.

ENDIF.

CLEAR cfield.

AT SELECTION-SCREEN ON color.

IF color LT 1 OR color GT 7.

MESSAGE E208 WITH 'Color value must be between 1 and 7'.

ENDIF.

AT SELECTION-SCREEN ON s_land1.

IF s_land1 IS INITIAL.

MESSAGE E208 WITH 'Enter at least one country code'.

ENDIF.

TOP-OF-PAGE.

WRITE: 'Demo program - First page'.

PERFORM return_button.

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE: 'Demo program - Page', SY-PAGNO.

PERFORM return_button.

FORM build_loc.

loc-continent = 'North America'.

loc-nat = 'Canada'. loc-cap = 'Ottawa'. APPEND loc.

loc-nat = 'United States'. loc-cap = 'Washington'. APPEND loc.

loc-nat = 'Mexico'. loc-cap = 'Mexico'. APPEND loc.

loc-continent = 'South America'.

loc-nat = 'Venezuela'. loc-cap = 'Caracas'. APPEND loc.

loc-nat = 'Colombia'. loc-cap = 'Bogota'. APPEND loc.

loc-nat = 'Ecuador'. loc-cap = 'Quito'. APPEND loc.

loc-nat = 'Peru'. loc-cap = 'Lima'. APPEND loc.

loc-nat = 'Bolivia'. loc-cap = 'La Paz'. APPEND loc.

loc-nat = 'Chile'. loc-cap = 'Santiago'. APPEND loc.

loc-nat = 'Argentina'. loc-cap = 'Buenos Aires'. APPEND loc.

loc-nat = 'Uruguay'. loc-cap = 'Montevideo'. APPEND loc.

loc-nat = 'Paraguay'. loc-cap = 'Asuncion'. APPEND loc.

loc-nat = 'Brazil'. loc-cap = 'Brasilia'. APPEND loc.

loc-continent = 'Western Europe'.

loc-nat = 'United Kingdom'. loc-cap = 'London'. APPEND loc.

loc-nat = 'Ireland'. loc-cap = 'Dublin'. APPEND loc.

loc-nat = 'Norway'. loc-cap = 'Oslo'. APPEND loc.

loc-nat = 'Sweden'. loc-cap = 'Stockholm'. APPEND loc.

loc-nat = 'Finland'. loc-cap = 'Helsinki'. APPEND loc.

loc-nat = 'Denmark'. loc-cap = 'Copenhagen'. APPEND loc.

loc-nat = 'Netherlands'. loc-cap = 'The Hague'. APPEND loc.

loc-nat = 'Belgium'. loc-cap = 'Brussels'. APPEND loc.

loc-nat = 'France'. loc-cap = 'Paris'. APPEND loc.

loc-nat = 'Spain'. loc-cap = 'Madrid'. APPEND loc.

loc-nat = 'Portugal'. loc-cap = 'Lisbon'. APPEND loc.

loc-nat = 'Italy'. loc-cap = 'Rome'. APPEND loc.

loc-nat = 'Austria'. loc-cap = 'Vienna'. APPEND loc.

loc-nat = 'Switzerland'. loc-cap = 'Bern'. APPEND loc.

loc-nat = 'Germany'. loc-cap = 'Bonn'. APPEND loc.

ENDFORM. "build_loc

FORM level0.

WRITE greeting.

ENDFORM. "level0

FORM level1.

IF cfield CS 'greeting'.

CLEAR loc.

LOOP AT loc.

AT NEW continent.

WRITE /12 loc-continent.

HIDE loc-continent.

ENDAT.

ENDLOOP.

CLEAR loc.

WRITE /12 'Country list'.

ENDIF.

ENDFORM. "level1

FORM level2.

IF SY-LISEL CS 'Country list'.

WRITE: 15 'Country--

---

', /15 'Code Name'.

ULINE /15(22).

SELECT * FROM T005T

WHERE Spras EQ SY-LANGU

AND Land1 IN s_land1.

WRITE: /15 T005T-Land1, T005T-Landx.

HIDE: T005T-Landx, T005T-Natio.

ENDSELECT.

ELSEIF NOT loc-continent IS INITIAL.

sel_cont = SY-LISEL+11.

WRITE /12 sel_cont.

LOOP AT loc WHERE continent = sel_cont.

WRITE /15 loc-nat.

HIDE: loc-nat, loc-cap.

ENDLOOP.

ELSE.

EXIT.

ENDIF.

CLEAR: loc, T005T.

ENDFORM. "level2

FORM level3.

IF NOT loc IS INITIAL.

CALL FUNCTION 'STRING_CONCATENATE'

EXPORTING

STRING1 = loc-cap

STRING2 = '.'

IMPORTING

STRING = string1

EXCEPTIONS

TOO_SMALL = 01.

string2 = 'The capitol of '.

string2+18 = loc-nat.

string2+38 = ' is '.

string2+42 = string1.

CLEAR loc.

ELSEIF NOT T005T IS INITIAL.

IF T005T-Natio IS INITIAL.

CALL FUNCTION 'STRING_CONCATENATE'

EXPORTING

STRING1 = T005T-Landx

STRING2 = '.'

IMPORTING

STRING = string1

EXCEPTIONS

TOO_SMALL = 01.

string2 = 'We don''t know about the people from '.

string2+38 = string1.

ELSE.

CALL FUNCTION 'STRING_CONCATENATE'

EXPORTING

STRING1 = T005T-Natio

STRING2 = '.'

IMPORTING

STRING = string1

EXCEPTIONS

TOO_SMALL = 01.

string2 = 'The people from '.

string2+18 = T005T-Landx.

string2+35 = ' are called '.

string2+48 = string1.

ENDIF.

CLEAR T005T.

ELSE.

EXIT.

ENDIF.

CONDENSE string2.

SKIP 5.

PERFORM color_write USING string2.

ENDFORM. "level3

FORM color_write USING outstring.

CASE color.

WHEN 1. WRITE / outstring COLOR 1.

WHEN 2. WRITE / outstring COLOR 2.

WHEN 3. WRITE / outstring COLOR 3.

WHEN 4. WRITE / outstring COLOR 4.

WHEN 5. WRITE / outstring COLOR 5.

WHEN 6. WRITE / outstring COLOR 6.

WHEN 7. WRITE / outstring COLOR 7.

ENDCASE.

ENDFORM. "color_write

FORM return_button.

SKIP TO LINE 3.

WRITE: 52 ret_button1 COLOR 3,

/52 ret_button2 COLOR 3,

/52 ret_button1 COLOR 3.

IF SY-LSIND = 0.

SKIP TO LINE 5.

ELSE.

SKIP TO LINE 3.

ENDIF.

ENDFORM. "return_button

thanks

mrutyun^

[Former Member]

Hi

You can use select-option name like other variables in your program.The value entered in the selection screen will be available in the parameters and select options in that screen.

Reward if useful.

Regards

Shibin