ALV with HTML header

Objective

Create an ALV report and an HTML header for it.

Report

REPORT  ZALV_HEADER_HTML.

TABLES : sflight.
TYPE–POOLS: slis.

DATA : w_repid LIKE sy–repid.

TYPES : BEGIN OF ty_comp.
         INCLUDE STRUCTURE sflight.
TYPES : END OF ty_comp.

DATA: wa_layout  TYPE slis_layout_alv.

DATA: t_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       wa_fieldcat TYPE slis_fieldcat_alv.

DATA : it_comp TYPE TABLE OF ty_comp.

INITIALIZATION.
   w_repid = sy–repid.

START–OF–SELECTION.

   SELECT * FROM sflight INTO TABLE it_comp.

END–OF–SELECTION.

*  CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE’
*    EXPORTING
*      i_program_name         = w_repid
*      i_internal_tabname     = ‘IT_COMP’
*      i_inclname             = w_repid
*    CHANGING
*      ct_fieldcat            = it_fieldcat
*    EXCEPTIONS
*      inconsistent_interface = 1
*      program_error          = 2
*      OTHERS                 = 3.

*    CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
*    EXPORTING
*      i_structure_name = ‘SPFLI’
*    CHANGING
*      ct_fieldcat = it_fieldcat[]
*    EXCEPTIONS
*      inconsistent_interface = 1
*      program_error = 2
*      others = 3.

PERFORM zf_monta_tabela_alv.

   CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
     EXPORTING
       i_callback_program          = w_repid
       i_callback_html_top_of_page = ‘HTML_TOP_OF_PAGE’
       is_layout                   = wa_layout
       it_fieldcat                 = t_fieldcat[]
     TABLES
       t_outtab                    = it_comp
     EXCEPTIONS
       program_error               = 1
       OTHERS                      = 2.

*&———————————————————————*
*&      Form  html_top_of_page
*&———————————————————————*

FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

   DATA: text TYPE sdydo_text_element.

   CALL METHOD document->add_gap
     EXPORTING
       width = 100.
   text =  ‘Company Code Data’.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = ‘HEADING’.

   CALL METHOD document->new_line.
   CALL METHOD document->new_line.
   CALL METHOD document->new_line.

   text = ‘User Name : ‘.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = ‘Strong’.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy–uname.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = ‘Key’.

   CALL METHOD document->add_gap
     EXPORTING
       width = 50.

   text = ‘Date : ‘.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = ‘Strong’.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy–datum.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = ‘Key’.

   CALL METHOD document->add_gap
     EXPORTING
       width = 50.

   text = ‘Time : ‘.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = ‘Strong’.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy–uzeit.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = ‘Key’.

   CALL METHOD document->new_line.
   CALL METHOD document->new_line.

ENDFORM.                    “HTML_TOP_OF_PAGE

form zf_monta_tabela_alv.

   clear t_fieldcat.
   t_fieldcat–fieldname        = ‘CARRID’.
   t_fieldcat–tabname          = ‘it_comp’.
   t_fieldcat–reptext_ddic     = ‘AIRLINE’.
   t_fieldcat–inttype          = ‘C’.
   t_fieldcat–outputlen        = 5.
   append t_fieldcat.

   clear t_fieldcat.
   t_fieldcat–fieldname     = ‘CONNID’.
   t_fieldcat–tabname       = ‘it_comp’.
   t_fieldcat–reptext_ddic  = ‘CONNECTION’.
   t_fieldcat–inttype       = ‘P’.
   t_fieldcat–outputlen     = 5.
   append t_fieldcat.

endform.