Struktur und Textbeschreibung ausgeben via Write
2 Beiträge
•
Seite 1 von 1
2 Beiträge
Seite 1 von 1
Hallo,
ich möchte gerne einen Wizard bauen.
Als Input-Parameter gebe ich einen String, anschließend sucht mein Report in der Tabelle DD03l nach der Tabelle und übergibt sie falls vorhanden weiter an eine interne Tabelle. Jedoch bekomme ich nicht die Struktur ( FELDNAME / K / TYP ) wie bei der Transaktion SE11 ausgegeben.
ich möchte gerne einen Wizard bauen.
Als Input-Parameter gebe ich einen String, anschließend sucht mein Report in der Tabelle DD03l nach der Tabelle und übergibt sie falls vorhanden weiter an eine interne Tabelle. Jedoch bekomme ich nicht die Struktur ( FELDNAME / K / TYP ) wie bei der Transaktion SE11 ausgegeben.
Code: Alles auswählen.
report xOxO.
data i_dd03l type table of dd03l.
data wa_dd03l like line of i_dd03l.
select * from dd03l into table i_dd03l where tabname = 'SPFLI'. " SPFLI wird durch pa_input ersetzt
if sy-subrc = 0. "Abfrage ob es die Input Tabelle gibt
loop at i_dd03l into wa_dd03l.
Die Ausgabe wie folgt
1 AIRPFROM CHAR 000004 usw.
Jedoch möchte ich über AIRPFROM das Strukturenfeld angezeigt bekommen. ( FELDNAME oder DATENELEMENT, LÄNGE )
kann mir einer helfen?
write: / sy-tabix,
wa_dd03l-fieldname(15),
(5) wa_dd03l-keyflag,
(10) wa_dd03l-datatype,
(10) wa_dd03l-leng,
(15) wa_dd03l-rollname,
(10) wa_dd03l-decimals,
(10) wa_dd03l-dbposition.
endloop.
elseif sy-subrc = 4. " Wenn es den Tablename nicht gibt neue Anfrage
write / 'HALLO - du musst schon was richtiges eingeben'.
" Ersetzen durch neue Abfrage
endif.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Danke fürs durchlesen, ich habe es auf diese Weise lösen können!
Code: Alles auswählen.
REPORT xOxO.
DATA i_dd03l TYPE TABLE OF dd03l.
DATA go_alv TYPE REF TO cl_salv_table. "Klassen reference übergeben
DATA c_tabname TYPE c LENGTH 20. "Var. tablename für pa_input
FIELD-SYMBOLS <fs_dd03l> LIKE LINE OF i_dd03l.
PARAMETERS pa_input LIKE (c_tabname). "Setzen bei Präsentation
SELECT * FROM dd03l INTO TABLE i_dd03l
WHERE tabname = pa_input. "pa_input. "Setzen bei Präsentation
IF sy-subrc = 0. "Abfrage ob es die Input Tabelle gibt
LOOP AT i_dd03l ASSIGNING <fs_dd03l>.
WRITE: / sy-tabix,
(5) <fs_dd03l>-keyflag,
(10) <fs_dd03l>-datatype,
(10) <fs_dd03l>-leng,
(15) <fs_dd03l>-rollname,
(10) <fs_dd03l>-decimals,
(10) <fs_dd03l>-dbposition.
ENDLOOP.
TRY.
CALL METHOD cl_salv_table=>factory "erzeugt eine View für interne Tab.
* EXPORTING
* list_display = IF_SALV_C_BOOL_SAP=>FALSE
* r_container =
* container_name =
IMPORTING
r_salv_table = go_alv
CHANGING
t_table = i_dd03l.
CATCH cx_salv_msg .
ENDTRY.
go_alv->display( ). " Ausgabe der internen Tabelle mit Kopfzeile
ELSEIF sy-subrc = 4. " Wenn es den Tablename nicht gibt neue Anfrage
WRITE / 'HALLO - du musst schon was richtiges eingeben'.
" Ersetzen durch neue Abfrage
ENDIF.
Seite 1 von 1
Vergleichbare Themen
8
Antw.
Antw.
4345
Views
Views
write ausgeben vor Selektionsbildschirm ausgeben
von bohne » 14.02.2006 12:50 • Verfasst in ABAP® für Anfänger
von bohne » 14.02.2006 12:50 • Verfasst in ABAP® für Anfänger
3
Antw.
Antw.
6496
Views
Views
Textsymbole per write ausgeben
von KleinerEisbaer » 22.07.2008 10:11 • Verfasst in ABAP® für Anfänger
von KleinerEisbaer » 22.07.2008 10:11 • Verfasst in ABAP® für Anfänger
3
Antw.
Antw.
2101
Views
Views
2
Antw.
Antw.
3844
Views
Views
6
Antw.
Antw.
2479
Views
Views
Tastenkürzel um alle Feder einer Struktur ausgeben zu lassen?
von tekko » 28.04.2021 00:03 • Verfasst in Tips + Tricks & FAQs
von tekko » 28.04.2021 00:03 • Verfasst in Tips + Tricks & FAQs
Frage die ABAP Experten
Über diesen Beitrag
dorenthe
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.