Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK ober1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF BLOCK unter1 WITH FRAME TITLE text-002.
SELECT-OPTIONS
bukrs_sp FOR wat_1.
SELECTION-SCREEN END OF BLOCK unter1.
SELECTION-SCREEN BEGIN OF BLOCK unter2 WITH FRAME TITLE text-003.
SELECT-OPTIONS
waehr_sp FOR wat_2.
SELECT-OPTIONS
bnk_g_sp FOR wat_3.
SELECTION-SCREEN END OF BLOCK unter2.
SELECTION-SCREEN END OF BLOCK ober1.
x_save = 'A'.
g_repid = sy-repid.
gs_layout-report = g_repid.
START-OF-SELECTION.
PERFORM select.
IF sy-subrc <> 0.
MESSAGE e001(y_tr_tabletool).
ENDIF.
END-OF-SELECTION.
CALL SCREEN 001.Code: Alles auswählen.
IF sy-subrc > 0.
MESSAGE s123.
ELSE.
PERFORM ausgabe.
ENDIF.Code: Alles auswählen.
DATA: h_nixausgeben type c.
START-OF-SELECTION.
PERFORM select.
IF sy-subrc <> 0.
* S-Meldung
MESSAGE S001(y_tr_tabletool).
h_nixausgeben = 'X'.
ENDIF.
END-OF-SELECTION.
IF h_nixausgeben IS INITIAL.
CALL SCREEN 001.
ENDIF.
[/quote]Code: Alles auswählen.
AT SELECTION-SCREEN.
PERFORM select.
IF sy-subrc <> 0.
MESSAGE e001(y_tr_tabletool).
ENDIF.
START-OF-SELECTION.
...
END-OF-SELECTION.
CALL SCREEN 001