Struktur übergeben

Code: Alles auswählen.

DATA: gt_outtab TYPE TABLE OF npat.
DATA: gr_table TYPE REF TO cl_salv_table.

SELECT-OPTIONS s_patnr FOR npat-patnr NO INTERVALS.

DATA ls_patnr like line of s_patnr.
*hier soll dann die struktur reingeladen werden // muss ich das in die select rein bauen oder wie soll das funktionieren 
SELECT patnr vname nname gschl gbdat FROM npat into CORRESPONDING FIELDS OF TABLE gt_outtab WHERE patnr in S_PATNR.


CALL METHOD cl_salv_table=>factory
    IMPORTING
      R_SALV_TABLE = gr_table
    changing
      t_table      = gt_outtab.

* auslesen der im Programm enthaltenen Spaltenn
data: lr_columns type ref to cl_salv_columns.

  lr_columns = gr_table->get_columns( ). "spalten auslesen
  lr_columns->set_optimize( abap_true ). "felder automatisch anpassen

PERFORM set_columns_technical USING lr_columns.



*Ausgabe ALV ................
  gr_table->display( ).

* HIDE empty fields in alv......
  form set_columns_technical using ir_columns type ref to cl_salv_columns.