Verwendung importierter interner Tabellen

Code: Alles auswählen.

class ZDBS_CDATAELEMENT definition
  public
  create public .

public section.
  TYPES lt_tadir_tab TYPE TABLE OF tadir.
  METHODS import_element_tab
    IMPORTING
     li_tab TYPE lt_tadir_tab.

protected section.
private section.

ENDCLASS.

CLASS ZDBS_CDATAELEMENT IMPLEMENTATION.
METHOD import_element_tab.
    DATA go_alv TYPE REF TO cl_salv_table.
    DATA lwa_tadir TYPE TABLE OF tadir.

  TRY.
     CALL METHOD cl_salv_table=>factory
       IMPORTING
         r_salv_table = go_alv
        CHANGING
          t_table = li_tab.
    ENDTRY.

   go_alv->display( ).

  ENDMETHOD.
ENDCLASS.

REPORT ZDBS__KUNDENOBJEKTE.

DATA:
**   Interne Tabellen
       gi_tdevc TYPE TABLE OF tdevc
      ,gi_tadir TYPE TABLE OF tadir

**   Arbeitsbereiche
      ,gwa_tdevc LIKE LINE OF gi_tdevc
      ,gwa_tadir LIKE LINE OF gi_tadir

**   Klasseninstanzen
      ,cdatelement TYPE REF TO ZDBS_CDATAELEMENT.

** DATA go_alv TYPE REF TO cl_salv_table.

START-OF-SELECTION.
     SELECT-OPTIONS p_object FOR gwa_tadir-object DEFAULT 'Y*' TO 'Z*'.

** Daten laden
SELECT * FROM tadir INTO TABLE gi_tadir WHERE obj_name IN p_object AND object = 'DTEL' .

CREATE OBJECT cdatelement TYPE ZDBS_CDATAELEMENT.

 CALL METHOD cdatelement->import_element_tab( EXPORTING li_tab = gi_tadir ).

Code: Alles auswählen.

data: 
  lt_tadir type standard table of tadir with default key, "<-- interne Tabelle
  ls_tadir type tadir. "<-- interne Struktur

select *
  from tadir "<-- Datenbanktabelle
  into table lt_tadir.

* Verarbeitung von mehreren Zeilen des Ergebnisses
loop at lt_tadir into ls_tadir. 
...
endloop.

* Verarbeitung von einer Zeile des Ergebnisses
read table lt_tadir into ls_tadir index 1.
if sy-subrc eq 0.
...
endif.