Code: Alles auswählen.
REPORT.
SELECTION-SCREEN BEGIN OF SCREEN 100.
PARAMETERS: cb AS CHECKBOX USER-COMMAND onli.
SELECTION-SCREEN END OF SCREEN 100.
START-OF-SELECTION.
CALL SELECTION-SCREEN 100.
WRITE:/ 'Hallo'.
Code: Alles auswählen.
TABLES sscrfields.
SELECTION-SCREEN BEGIN OF SCREEN 100.
PARAMETERS: cb AS CHECKBOX USER-COMMAND onli.
SELECTION-SCREEN END OF SCREEN 100.
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ONLI'.
"Mache irgendwas
sscrfields-ucomm = 'CRET'.
ENDIF.
START-OF-SELECTION.
CALL SELECTION-SCREEN 100.
WRITE:/ 'Hallo'.
Code: Alles auswählen.
WHEN 'CRET'. " Zurück von CALL SEL-SCREEN
CLEAR: SY-UCOMM.
CLEAR: <SSCRFIELDS>-UCOMM.
SET SCREEN 0.
LEAVE SCREEN.
when 'INTV'.
* set screen 100. leave screen.
WHEN 'CXSP'. " Complex Search Pattern
PERFORM COMPLEX_SP(RSDBSPMC).
CLEAR: SY-UCOMM.
CLEAR: <SSCRFIELDS>-UCOMM.
WHEN OTHERS.
IF <SSCRFIELDS>-UCOMM(1) = '%' and not
<SSCRFIELDS>-UCOMM(2) = '%_' and
<sscrfields>-ucomm+4(4) is initial.
PERFORM MULTIPLE_SELECTIONS USING CURRENT_SCREEN-PROGRAM.
CLEAR: SY-UCOMM.
CLEAR: <SSCRFIELDS>-UCOMM.
ELSE.
READ TABLE CURRENT_SCREEN-TABS
WITH KEY FCODE = <SSCRFIELDS>-UCOMM
BINARY SEARCH INTO L_TABS.
IF SY-SUBRC EQ 0.
PERFORM SUPPLY_TAB_INFO USING L_TABS.
ENDIF.
ENDIF.
Code: Alles auswählen.
LOAD-OF-PROGRAM.
BREAK-POINT.
Code: Alles auswählen.
* Wird am Ende der Selektionsbildverarbeitung gerufen,
* wenn SY-UCOMM = 'ONLI' oder SY-UCOMM = 'PRIN'.
* Aufruf aus %_OK_CODE_1000 (<REPINI>)
FORM %_START_REPORT USING P_SUBTY LIKE SY-SUBTY.
Code: Alles auswählen.
REPORT.
PARAMETERS: x.
AT SELECTION-SCREEN.
MESSAGE sy-ucomm TYPE 'I'.
START-OF-SELECTION.
CALL SELECTION-SCREEN 1000.