Convert internal table data into HTML using Function Modules

Following Function Modules are used to convert internal table data to HTML Table.

1. WWW_ITAB_TO_HTML_HEADERS is used to populate column headings.
2. WWW_ITAB_TO_HTML_LAYOUT is used to populate column cell properties.
3. WWW_ITAB_TO_HTML is used to convert internal table data to HTML.

*&---------------------------------------------------------------------*
*& Report  YTEST_TABLE_HTML
*&
*&---------------------------------------------------------------------*

REPORT  ytest_table_html.
*---------------------------------------------------------------------*
*          T Y P E S D E C L A R A T I O N
*---------------------------------------------------------------------*

TYPES:BEGIN OF ty_sflight,
       carrid TYPE s_carr_id,         " Airline Code
       connid TYPE s_conn_id,         " Connection Number
       fldate TYPE s_date,            " Flight Date
       price  TYPE s_price,           " AirFare
       currency TYPE s_currcode,      " Currency
     END OF ty_sflight.

*-ALL related Declarations

DATA:
 t_header TYPE STANDARD TABLE OF w3head WITH HEADER LINE,   "Header
 t_fields TYPE STANDARD TABLE OF w3fields WITH HEADER LINE, "Fields
 t_html TYPE STANDARD TABLE OF w3html,                      "Html
 wa_header TYPE w3head,
 w_head TYPE w3head.

DATA:
 it_sflight TYPE TABLE OF ty_sflight,      " Flights Details

  it_fcat TYPE lvc_t_fcat WITH HEADER LINE. " Fieldcatalog

*---------------------------------------------------------------------*
*        S T A R T - O F - S E L E C T I O N
*---------------------------------------------------------------------*

START-OF-SELECTION.

  SELECT * FROM
   sflight
   INTO CORRESPONDING FIELDS OF TABLE it_sflight
   UP TO 20 ROWS.

*---------------------------------------------------------------------*
*        E N D - O F - S E L E C T I O N
*---------------------------------------------------------------------*
END-OF-SELECTION.

*-Populate Fieldcatalog
 it_fcat-coltext = 'Airline Code'.
 APPEND it_fcat.
 it_fcat-coltext = 'Connection Number'.
 APPEND it_fcat.
 it_fcat-coltext = 'Flight date'.
 APPEND it_fcat.
 it_fcat-coltext = 'Airfare'.
 APPEND it_fcat.
 it_fcat-coltext = 'Currency'.
 APPEND it_fcat.

*-Fill the Column headings and Properties

  LOOP AT it_fcat.
   w_head-text = it_fcat-coltext.
*-Populate the Column Headings
   CALL FUNCTION 'WWW_ITAB_TO_HTML_HEADERS'
     EXPORTING
       field_nr = sy-tabix
       text     = w_head-text
       fgcolor  = 'black'
       bgcolor  = 'green'
     TABLES
       header   = t_header.
*-Populate Column Properties
   CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT'
     EXPORTING
       field_nr = sy-tabix
       fgcolor  = 'black'
       size     = '3'
     TABLES
       fields   = t_fields.

  ENDLOOP.

*-Title of the Display
 wa_header-text = 'Flights Details' .
 wa_header-font = 'Arial'.
 wa_header-size = '2'.

*-Preparing the HTML from Intenal Table
 REFRESH t_html.

  CALL FUNCTION 'WWW_ITAB_TO_HTML'
   EXPORTING
     table_header = wa_header
   TABLES
     html         = t_html
     fields       = t_fields
     row_header   = t_header
     itable       = it_sflight.

*-Download  the HTML into frontend

  CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
     filename                = 'C:\Flights.htm'
   TABLES
     data_tab                = t_html
   EXCEPTIONS
     file_write_error        = 1
     no_batch                = 2
     gui_refuse_filetransfer = 3
     invalid_type            = 4
     no_authority            = 5
     unknown_error           = 6
     header_not_allowed      = 7
     separator_not_allowed   = 8
     filesize_not_allowed    = 9
     header_too_long         = 10
     dp_error_create         = 11
     dp_error_send           = 12
     dp_error_write          = 13
     unknown_dp_error        = 14
     access_denied           = 15
     dp_out_of_memory        = 16
     disk_full               = 17
     dp_timeout              = 18
     file_not_found          = 19
     dataprovider_exception  = 20
     control_flush_error     = 21
     OTHERS                  = 22.

  IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.

*-Display the HTML file

  CALL METHOD cl_gui_frontend_services=>execute
   EXPORTING
     document               = 'C:\Flights.htm'
     operation              = 'OPEN'
   EXCEPTIONS
     cntl_error             = 1
     error_no_gui           = 2
     bad_parameter          = 3
     file_not_found         = 4
     path_not_found         = 5
     file_extension_unknown = 6
     error_execute_failed   = 7
     synchronous_failed     = 8
     not_supported_by_gui   = 9
     OTHERS                 = 10.

  IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.

Result: