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.