SAP NetWeaver AS ABAP Release 740, ©Copyright 2014 SAP AG. All rights reserved.
ABAP Keyword Documentation → ABAP − Reference → User Dialogs → Selection Screens → Create Selection Screens → PARAMETERS → PARAMETERS - screen_options →Selection Screens, Display Properties for Parameters
The example shows how to use the select_options additions of the PARAMETERS statement.
Source Code
REPORT demo_sel_screen_screen_opt.
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE text-001.
PARAMETERS field(10) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF BLOCK part1.
SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME TITLE text-002.
PARAMETERS: p1(10) TYPE c VISIBLE LENGTH 1,
p2(10) TYPE c VISIBLE LENGTH 5,
p3(10) TYPE c VISIBLE LENGTH 10.
SELECTION-SCREEN END OF BLOCK part2.
SELECTION-SCREEN BEGIN OF BLOCK part3 WITH FRAME TITLE text-003.
PARAMETERS: a AS CHECKBOX USER-COMMAND flag,
b AS CHECKBOX DEFAULT 'X' USER-COMMAND flag.
SELECTION-SCREEN END OF BLOCK part3.
SELECTION-SCREEN BEGIN OF BLOCK part4 WITH FRAME TITLE text-004.
PARAMETERS: r1 RADIOBUTTON GROUP rad1,
r2 RADIOBUTTON GROUP rad1 DEFAULT 'X',
r3 RADIOBUTTON GROUP rad1,
s1 RADIOBUTTON GROUP rad2,
s2 RADIOBUTTON GROUP rad2,
s3 RADIOBUTTON GROUP rad2 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK part4.
SELECTION-SCREEN BEGIN OF BLOCK part5 WITH FRAME TITLE text-005.
PARAMETERS p_carrid TYPE spfli-carrid
AS LISTBOX VISIBLE LENGTH 20
DEFAULT 'LH'.
SELECTION-SCREEN END OF BLOCK part5.
SELECTION-SCREEN BEGIN OF BLOCK part6 WITH FRAME TITLE text-006.
PARAMETERS: test1(10) TYPE c MODIF ID sc1,
test2(10) TYPE c MODIF ID sc2,
test3(10) TYPE c MODIF ID sc1,
test4(10) TYPE c MODIF ID sc2.
SELECTION-SCREEN END OF BLOCK part6.
SELECTION-SCREEN END OF SCREEN 100.
AT SELECTION-SCREEN OUTPUT.
LOOP AT screen INTO DATA(screen_wa).
IF a <> 'X' AND
screen_wa-group1 = 'SC1'.
screen_wa-active = '0'.
ENDIF.
IF b <> 'X' AND
screen_wa-group1 = 'SC2'.
screen_wa-active = '0'.
ENDIF.
IF screen_wa-group1 = 'SC1'.
screen_wa-intensified = '1'.
MODIFY screen FROM screen_wa.
CONTINUE.
ENDIF.
IF screen_wa-group1 = 'SC2'.
screen_wa-intensified = '0'.
MODIFY screen FROM screen_wa.
ENDIF.
ENDLOOP.
CLASS start DEFINITION.
PUBLIC SECTION.
CLASS-METHODS main.
ENDCLASS.
CLASS start IMPLEMENTATION.
METHOD main.
CALL SELECTION-SCREEN 100 STARTING AT 10 10.
IF sy-subrc <> 0.
RETURN.
ENDIF.
WRITE: / 'P1:', p1,
/ 'P2:', p2,
/ 'P3:', p3.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
start=>main( ).
Description
This example program consists of six parts, each illustrating one of the screen_options additions of the statement PARAMETERS. Each example corresponds to a block on the selection screen 100.