REPORT Y96_REPORT_TO_HTML .

PARAMETERS: REPID LIKE RSEUX-CP_VALUE OBLIGATORY,
            VARIANT LIKE RSVAR-VARIANT.

DATA: LIST     LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.
  IF VARIANT IS INITIAL.
    SUBMIT (REPID) " VIA SELECTION-SCREEN
                 EXPORTING LIST TO MEMORY
                 AND RETURN.
  ELSE.
    SUBMIT (REPID) " VIA SELECTION-SCREEN
                 USING SELECTION-SET VARIANT
                 EXPORTING LIST TO MEMORY
                 AND RETURN.
  ENDIF.

  CALL FUNCTION 'LIST_FROM_MEMORY'
       TABLES
            LISTOBJECT = LIST
       EXCEPTIONS
            NOT_FOUND  = 1
            OTHERS     = 2.

  CALL FUNCTION 'Y96_LISTOBJECT_TO_EXCEL_BY_HTM'
       TABLES
            LISTOBJECT    = LIST
       EXCEPTIONS
            OTHERS        = 1.