*&---------------------------------------------------------------------*
*& Report  Z_MARKUS001
*&
*&---------------------------------------------------------------------*
*& ALV 1
*&
*&---------------------------------------------------------------------*

REPORT  z_markus001.   " comment after

*&---------------------------------------------------------------------*
*& This is my first ABAP program
*&---------------------------------------------------------------------*
*& Global Declarations
*&---------------------------------------------------------------------*

CLASS demo DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS main.
ENDCLASS.                    "demo DEFINITION

*----------------------------------------------------------------------*
*       CLASS demo  IMPLEMENTATIO
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS demo IMPLEMENTATION.
  METHOD main.
    DATA: help TYPE string,
          filetextci_tab TYPE TABLE OF filetextci,
          saaconta_tab TYPE TABLE OF saaconta,
          alv_table TYPE REF TO cl_salv_table,
          alv_ds TYPE REF TO cl_salv_display_settings,
          alv_fs TYPE REF TO CL_SALV_FUNCTIONAL_SETTINGS,
          alv_event TYPE REF TO CL_SALV_EVENTS_TABLE.


*... Select Data
    SELECT * FROM filetextci INTO
      CORRESPONDING FIELDS OF TABLE filetextci_tab
      ORDER BY fileintern.

*... Create Instance
    CALL METHOD cl_salv_table=>factory
      IMPORTING
        r_salv_table = alv_table
      CHANGING
        t_table      = filetextci_tab.

*... Display Table
    "alv_table->display( ).

*... Select Data
    SELECT * FROM saaconta INTO
      CORRESPONDING FIELDS OF TABLE saaconta_tab.

    alv_table->set_data( CHANGING t_table = saaconta_tab ).

    alv_table->get_display_settings( RECEIVING value = alv_ds ).
    alv_ds->set_vertical_lines( EXPORTING value = 'X' ).
    alv_ds->set_horizontal_lines( EXPORTING value = ' ' ).
    alv_ds->SET_STRIPED_PATTERN( EXPORTING value = 'X' ).

    alv_table->GET_FUNCTIONAL_SETTINGS( RECEIVING value = alv_fs ).
    alv_fs->SET_SORT_ON_HEADER_CLICK( exporting value = 'X' ).

    alv_table->GET_EVENT( RECEIVING value = alv_event ).

    "alv_event->BEFORE_SALV_FUNCTION( ).

    alv_table->display( ).


    "MESSAGE 'Done.' TYPE 'I'.

  ENDMETHOD.                    "demo
ENDCLASS.                    "demo  IMPLEMENTATION

*&---------------------------------------------------------------------*
*& Implementations
*&---------------------------------------------------------------------*

START-OF-SELECTION.

  demo=>main( ).