* irgendeine interne Tablelle anlegen DATA: it_tab TYPE STANDARD TABLE OF ... * generische Tabellenreferenz anlegen DATA: o_ref_table TYPE REF TO data. ... * Tabellenreferenz übergeben o_ref_table = REF #( it_tab ). * Referenz auf generisches Feldsymbol mappen FIELD-SYMBOLS: <tab> TYPE ANY TABLE. ASSIGN o_ref_table->* TO <tab>. * Tabellen-Zeile erzeugen * muss hier erfolgen, damit man ein "greifbares" Tabellen-Zeilen-Objekt * für die Strukturermittlung (describe_by_data) hat DATA: o_row TYPE REF TO data. CREATE DATA o_row LIKE LINE OF <tab>. FIELD-SYMBOLS: <row> TYPE any. ASSIGN o_row->* TO <row>. * Komponenten (Spalten) einer Tabellenzeile ermitteln DATA(o_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_data( <row> ) ). DATA(it_comp_tab) = o_struct->get_components( ). * Anzahl Spalten der Tabellen-Zeile holen DATA(lv_colcnt) = lines( it_comp_tab ). * Tabelle durchloopen LOOP AT <tab> ASSIGNING <row>. * Spalten der akt. Zeile durchgehen DO lv_colcnt TIMES. * Zelle: n-tes Element der akt. Zeile holen ASSIGN COMPONENT sy-index OF STRUCTURE <row> TO FIELD-SYMBOL(<cell>). * Trennzeichen vor die Spalte einfügen, wenn nicht 1. Spalte IF sy-index > 1. WRITE: '|'. ENDIF. * Achtung: Zell-Typ beachten! Es können hier nur flache Typen (Keine Strukturen, Tabellen) ausgegeben werden, der Rest muss gesondert behandelt werden IF CAST cl_abap_elemdescr( it_comp_tab[ sy-index ]-type )->kind = cl_abap_elemdescr=>kind_elem. * Ausgabe Zellinhalt mit vordefinierter Spaltenbreite WRITE: |{ <cell> WIDTH = 20 |. ENDIF. ENDDO. NEW-LINE. ENDLOOP.
Kategorien
-
Neueste Beiträge
- [SAP] Drucker für Benutzer festlegen
- [SAP Fiori] Fiori Launchpad erweitern, Systeminformationen im Launchpad anzeigen
- [SAP Gateway] ODATA V4 Service für anonymen Zugriff einrichten
- [ABAP] Varianten eines Reports lesen
- Warum Krebspatienten so viel Gewicht verlieren
- [SAP Fiori] ABAP RESTful Application Programming Model (RAP)
- [SAP] Events und Typkoppelungen
- [SAP Gateway] Daten versenden über einen eventbasierten Aufruf einer OData-Funktion
- [ABAP] SE80: Tricks für den ABAP-Editor
- [SAP] Kurz- und Langtexte in Objekten suchen