Code: Alles auswählen.
CONSTANTS : rbselected TYPE c LENGTH 1 VALUE 'X'.
DATA: wa_date TYPE z13k_mat_kalk-datum.
DATA: wa_matnr TYPE z13k_mat_kalk-matnr.
DATA: it_mat TYPE TABLE OF z13k_mat_kalk.
DATA: wa_mat TYPE z13k_mat_kalk.
SELECTION-SCREEN BEGIN OF BLOCK para WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE wa_mat-werks DEFAULT '1050' OBLIGATORY.
PARAMETERS: p_aender LIKE wa_mat-aenderer.
SELECT-OPTIONS:
so_matnr FOR wa_matnr,
so_date FOR wa_date.
PARAMETERS: p_erl TYPE c DEFAULT 'J'.
SELECTION-SCREEN END OF BLOCK para.
SELECTION-SCREEN BEGIN OF BLOCK rbuttons WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 2.
PARAMETERS: rb1 RADIOBUTTON GROUP rb.
SELECTION-SCREEN COMMENT 5(30) text-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 2.
PARAMETERS: rb2 RADIOBUTTON GROUP rb.
SELECTION-SCREEN COMMENT 5(30) text-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK rbuttons.
*&---------------------------------------------------------------------*
*& Applikationslogik
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* it_mat über array-fetch
[b] SELECT * FROM z13k_mat_kalk INTO CORRESPONDING FIELDS OF TABLE it_mat
WHERE
werks = p_werks AND
datum IN so_date AND
matnr IN so_matnr AND
erledigt = p_erl AND
aenderer = p_aender[/b]
.