Code: Alles auswählen.
report test.
selection-screen begin of screen 1.
parameter test1(30) type c obligatory.
selection-screen end of screen 1.
selection-screen begin of screen 2.
parameter test2(30) type c obligatory.
selection-screen end of screen 2.
data: a.
if a = 'X'.
call selection-screen 1.
else.
call selection-screen 2.
endif.
start-of-selection.
if a = 'X'.
write: test1.
else.
write: test2.
endif.
Code: Alles auswählen.
if a = 'X'.
call selection-screen 1.
else.
call selection-screen 2.
endif.
Code: Alles auswählen.
REPORT testprogramm .
TABLES: sscrfields.
SELECTION-SCREEN PUSHBUTTON 5(15) pb1 USER-COMMAND 0001.
SELECTION-SCREEN PUSHBUTTON 25(15) pb2 USER-COMMAND 0002.
SELECTION-SCREEN BEGIN OF SCREEN 1.
PARAMETER test1(30) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 1.
SELECTION-SCREEN BEGIN OF SCREEN 2.
PARAMETER test2(30) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 2.
INITIALIZATION.
test1 = 'Screen 1'.
test2 = 'Screen 2'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN '0001'.
CLEAR: test1, test2.
CALL SELECTION-SCREEN 1.
sscrfields-ucomm = 'ONLI'.
WHEN '0002'.
CLEAR: test1, test2.
CALL SELECTION-SCREEN 2.
sscrfields-ucomm = 'ONLI'.
ENDCASE.
START-OF-SELECTION.
WRITE: /'parameter A:', test1.
WRITE: /'parameter B:', test2.
grüße
coco
Code: Alles auswählen.
REPORT testprogramm .
TABLES: sscrfields.
data darf value ' '.
SELECTION-SCREEN BEGIN OF SCREEN 1.
PARAMETER test1(30) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 1.
SELECTION-SCREEN BEGIN OF SCREEN 2.
PARAMETER test2(30) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 2.
INITIALIZATION.
select single flag
from zberechtigungen
into darf
where report = sy-repid.
CASE darf.
WHEN 'X'.
CLEAR: test1, test2.
CALL SELECTION-SCREEN 1.
WHEN ' '.
CALL SELECTION-SCREEN 2. "Selectionsmaske mit mehreren
"Auswahlmöglichkeiten
ENDCASE.
START-OF-SELECTION.
WRITE: /'parameter A:', test1.
WRITE: /'parameter B:', test2.