‎2006 Jul 26 7:10 AM
hi all,
how can we create two selection screens for a report,plz let me know.imm points are awarded for all helpful answers
‎2006 Jul 26 7:15 AM
HI,
1000 is a default selection screen. use this code to define your own selection screen. and
use
CALL selection-screen '123'.
<b>SELECTION-SCREEN BEGIN OF SCREEN 123 AS WINDOW TITLE TEXT-456.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1
NO INTERVALS.
SELECT-OPTIONS SEL1 FOR SY-SUBRC.
PARAMETERS PAR1 LIKE SPFLI-CARRID.
SELECTION-SCREEN COMMENT /10(20) TEXT-COM.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN END OF SCREEN 123.</b>
Regards,
Wasim Ahmed
‎2006 Jul 26 7:15 AM
HI,
1000 is a default selection screen. use this code to define your own selection screen. and
use
CALL selection-screen '123'.
<b>SELECTION-SCREEN BEGIN OF SCREEN 123 AS WINDOW TITLE TEXT-456.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1
NO INTERVALS.
SELECT-OPTIONS SEL1 FOR SY-SUBRC.
PARAMETERS PAR1 LIKE SPFLI-CARRID.
SELECTION-SCREEN COMMENT /10(20) TEXT-COM.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN END OF SCREEN 123.</b>
Regards,
Wasim Ahmed
‎2006 Jul 26 7:18 AM
Hi Nitha.........
REPORT ZABSS2 .
SELECTION-SCREEN BEGIN OF BLOCK MIX WITH FRAME TITLE TIT2.
SELECTION-SCREEN SKIP 1.
PARAMETERS : city(20) TYPE c DEFAULT 'NOIDA',
pin TYPE i DEFAULT 201301 NO-DISPLAY,
number TYPE p DECIMALS 5 OBLIGATORY,
test(16) MEMORY ID rid,
empname(10),
empname1(10) LOWER CASE VISIBLE LENGTH 5 OBLIGATORY,
p_carr LIKE spfli-carrid OBLIGATORY VALUE CHECK.
SELECTION-SCREEN END OF BLOCK MIX.
SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW.
SELECTION-SCREEN BEGIN OF BLOCK CHECKBLOCK WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN SKIP 1.
PARAMETERS : a AS CHECKBOX,
b AS CHECKBOX DEFAULT 'X',
c AS CHECKBOX DEFAULT 'X',
d AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK CHECKBLOCK.
SELECTION-SCREEN END OF SCREEN 500.
SELECTION-SCREEN BEGIN OF SCREEN 800 AS WINDOW.
SELECTION-SCREEN INCLUDE BLOCKS CHECKBLOCK.
SELECTION-SCREEN BEGIN OF BLOCK RAD1BLOCK WITH FRAME TITLE TIT1.
PARAMETERS : r1 RADIOBUTTON GROUP rad1,
r2 RADIOBUTTON GROUP rad1,
r3 RADIOBUTTON GROUP rad1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK RAD1BLOCK.
SELECTION-SCREEN END OF SCREEN 800.
*INITIALIZATION.
*TIT1 = 'CALLING RADIO BUTTON'.
*TIT2 = 'FIRST MIX SCREEN'.
AT SELECTION-SCREEN.
CASE SY-DYNNR.
WHEN '0800'.
MESSAGE W159(ZVIKALP) WITH text-004 .
WHEN '0500'.
MESSAGE W011(ZVIKALP).
WHEN '1000'.
MESSAGE I022(ZVIKALP).
ENDCASE.
START-OF-SELECTION.
TIT1 = 'CALLING RADIO BUTTON'.
TIT2 = 'FIRST MIX SCREEN'.
CALL SELECTION-SCREEN 500 ."STARTING AT 10 10.
CALL SELECTION-SCREEN 800 STARTING AT 10 10.
TIT2 = 'MIX SCREEN AGAIN'.
CALL SELECTION-SCREEN 1000 STARTING AT 10 10.
end-of-selection.
‎2006 Jul 26 7:18 AM
‎2006 Jul 26 7:28 AM
Hi,
You can create two selection screens.
One by default is 1000. This is executed by default in nay program when executed.
Others can be created using the statement
SELECTION-SCREEN BEGIN OF SCREEN 2000.
SELECT-OPTIONS : matnr FOR mara-matnr.
SELECTION-SCREEN END OF SCREEN 2000.This has to be explicitly called in the program based on soem condition to execute it using the statement.
CALL SELECTION-SCREEN <b>2000</b>.Consider this sample report.
Copy and execute to get feel of this.
REPORT zztest.
TABLES : mara, kna1.
PARAMETERS : cust RADIOBUTTON GROUP abc USER-COMMAND abc,
mat RADIOBUTTON GROUP abc.
SELECTION-SCREEN BEGIN OF SCREEN 2000.
SELECT-OPTIONS : matnr FOR mara-matnr.
SELECTION-SCREEN END OF SCREEN 2000.
SELECTION-SCREEN BEGIN OF SCREEN 3000.
SELECT-OPTIONS : customer FOR kna1-kunnr.
SELECTION-SCREEN END OF SCREEN 3000.
AT SELECTION-SCREEN.
IF sy-ucomm EQ 'ABC'.
IF cust IS NOT INITIAL.
CALL SELECTION-SCREEN 3000.
ELSEIF mat IS NOT INITIAL.
CALL SELECTION-SCREEN 2000.
ENDIF.
ENDIF.
Refer this link for same discussion.
Regards,
AS.
Message was edited by: Arun Sambargi
‎2006 Jul 26 8:43 AM
REPORT demo_call_standard_sel_screen.
Hi,
1.REPORT demo_call_standard_sel_screen.
SELECTION-SCREEN BEGIN OF BLOCK mysel WITH FRAME TITLE tit.
PARAMETERS: deptime TYPE spfli-deptime,
arrtime TYPE spfli-arrtime.
SELECTION-SCREEN END OF BLOCK mysel.
INITIALIZATION.
tit = 'Times'.
...
2.REPORT demo_call_selection_screen.
SELECTION-SCREEN BEGIN OF BLOCK sel1 WITH FRAME TITLE tit1.
PARAMETERS: cityfr TYPE spfli-cityfrom,
cityto TYPE spfli-cityto.
SELECTION-SCREEN END OF BLOCK sel1.
SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW.
SELECTION-SCREEN INCLUDE BLOCKS sel1.
SELECTION-SCREEN BEGIN OF BLOCK sel2
WITH FRAME TITLE tit2.
PARAMETERS: airpfr TYPE spfli-airpfrom,
airpto TYPE spfli-airpto.
SELECTION-SCREEN END OF BLOCK sel2.
SELECTION-SCREEN END OF SCREEN 500.
INITIALIZATION.
tit1 = 'Cities'.
AT SELECTION-SCREEN.
CASE sy-dynnr.
WHEN '0500'.
MESSAGE w888(SABAPDOCU) WITH 'Screen 500'.
WHEN '1000'.
MESSAGE w888(SABAPDOCU) WITH 'Screen 1000'.
ENDCASE.
START-OF-SELECTION.
tit1 = 'Cities for Airports'.
tit2 = 'Airports'.
CALL SELECTION-SCREEN 500 STARTING AT 10 10.
tit1 = 'Cities again'.
CALL SELECTION-SCREEN 1000 STARTING AT 10 10.