Code: Alles auswählen.
REPORT ZLK_FLU_PARA1.
TABLES: ZLK_PILOT.
PARAMETERS: p_obj TYPE ZLK_PILOT-NAME.
SELECT-OPTIONS: s_obj FOR ZLK_PILOT-NAME.
DATA: lv_pilot TYPE string,
lv_pnr TYPE p DECIMALS 2, "im Augenblick irrelevant
lt_pilot TYPE TABLE OF ZLK_PILOT,
lw_pilot TYPE ZLK_PILOT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_obj.
SELECT name UP TO 20 ROWS FROM ZLK_PILOT
INTO CORRESPONDING FIELDS OF TABLE lt_pilot.
START-OF-SELECTION.
SELECT name flugst FROM ZLK_PILOT "Name und Flugstunden sollen selektiert werden
INTO CORRESPONDING FIELDS OF TABLE lt_pilot
WHERE name IN s_obj.
WRITE: / 'Tabelleninhalt'.
LOOP AT lt_pilot INTO lw_pilot.
* Checkbox - Objektname anzeigen oder nicht "später möchte ich eine Checkbox hinzu fügen
* IF p_name IS INITIAL. "im Augenblick irrelevant
WRITE: / lw_pilot-name, lw_pilot-flugst.
* ELSE. "im Augenblick irrelevant
* WRITE: / ls_tadir-obj_name, ls_tadir-author.
* ENDIF. "im Augenblick irrelevant
ENDLOOP.Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report ZLK_FLU_PARA1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZLK_FLU_PARA1.
TABLES: ZLK_PILOT.
PARAMETERS: p_obj TYPE ZLK_PILOT-NAME.
SELECT-OPTIONS: s_obj FOR ZLK_PILOT-NAME.
DATA: lv_pilot TYPE string,
lv_pnr TYPE p DECIMALS 2,
lt_pilot TYPE TABLE OF ZLK_PILOT,
lw_pilot TYPE ZLK_PILOT,
lv_name TYPE string,
lv_flugst TYPE i.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_obj.
* SELECT name UP TO 20 ROWS FROM ZLK_PILOT
* INTO CORRESPONDING FIELDS OF TABLE lt_pilot.
START-OF-SELECTION.
*Parametereingabe
SELECT SINGLE name flugst FROM ZLK_PILOT INTO (lv_name,lv_flugst)
WHERE name EQ p_obj.
WRITE: / lv_name, lv_flugst.
CLEAR: lv_name, lv_flugst.
SELECT name flugst FROM ZLK_PILOT
INTO CORRESPONDING FIELDS OF TABLE lt_pilot
WHERE name IN s_obj.
WRITE: / 'Tabelleninhalt'.
LOOP AT lt_pilot INTO lw_pilot.
* Checkbox - Objektname anzeigen oder nicht
* IF p_name IS INITIAL.
WRITE: / lw_pilot-name, lw_pilot-flugst.
* ELSE.
* WRITE: / ls_tadir-obj_name, ls_tadir-author.
* ENDIF.
ENDLOOP.
CLEAR: lw_pilot-name, lw_pilot-flugst.Folgende Benutzer bedankten sich beim Autor DeathAndPain für den Beitrag:
Abapsocke
Wirklich nicht!?Mich wunderte nur das die LOWER CASE Anweisung in dem Fall dafür sorgt das ich den Namen mit Groß und Kleinbuchstaben schreiben kann. Genau das ging aus dem Info Text für mich nicht hervor

Liegt daran das die Anzeige der F1 Hilfe sich daran orientiert wo das LOWER CASE steht. In den allgemeinen Informationen über LOWER CASE wenn es nicht an PARAMETERS steht war dieser Hinweis nicht. Das beweist das die Hilfe ein sehr nützliches Tool ist, solange im richtigen Kontext geklickt wird.Wirkung
Diese Anweisung bewirkt, dass einzelne Zeichen der zeichenartigen Variablen text umgewandelt werden. Entweder kann mit der Angabe CASE die Groß-/Kleinschreibung umgewandelt werden oder mit USING eine Umwandlung gemäß einem Muster erfolgen. Die Variable text muss zeichenartig sein.