TYPE-POOLS cndp.

DATA container TYPE REF TO cl_gui_custom_container.
DATA picture TYPE REF TO cl_gui_picture.
DATA  ok_code TYPE sy-ucomm.
DATA events TYPE cntl_simple_events.
DATA wa_events TYPE  cntl_simple_event.
DATA url(255).

*----------------------------------------------------------------------*
*       CLASS cl_base DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_base DEFINITION FINAL.
  PUBLIC SECTION.
    METHODS handle_double_click
      FOR EVENT picture_dblclick OF cl_gui_picture
      IMPORTING mouse_pos_x
                mouse_pos_y.
ENDCLASS.                    "cl_base DEFINITION

*----------------------------------------------------------------------*
*       CLASS cl_base IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_base IMPLEMENTATION.
  METHOD handle_double_click.
    PERFORM handle_double_click USING mouse_pos_x  mouse_pos_y.
  ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "cl_base IMPLEMENTATION

  CALL SCREEN 100. " на экране только контейнер

&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ZP_FI359_ST'.
*  SET TITLEBAR 'xxx'.

  PERFORM pbo_0100.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

FORM pbo_0100 .


  DATA pic_size TYPE i.
  DATA event_receiver TYPE REF TO cl_base.

  IF container IS INITIAL .
    CREATE OBJECT container
      EXPORTING
        container_name = 'CUSTOM_CONTAINER'.
    CREATE OBJECT picture
      EXPORTING
        parent = container
      EXCEPTIONS
        error  = 1.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.


    wa_events-eventid = cl_gui_picture=>eventid_picture_dblclick.
    wa_events-appl_event = ' '.
    APPEND wa_events TO events.

    CALL METHOD picture->set_registered_events
      EXPORTING
        events                    = events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3.
    IF sy-subrc NE 0.
* Fehlerbehandlung
    ENDIF.

    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_double_click FOR picture.

    DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.
    DATA html_table LIKE w3html OCCURS 1.
    DATA return_code LIKE  w3param-ret_code.
    DATA content_type LIKE  w3param-cont_type.
    DATA content_length LIKE  w3param-cont_len.
    DATA pic_data LIKE w3mime OCCURS 0.

    REFRESH query_table.
    query_table-name = '_OBJECT_ID'.
    query_table-value = 'Z2222'.
    APPEND query_table.

" загружаю картинку GIF из WEB-репозитария (SMW0)
    CALL FUNCTION 'WWW_GET_MIME_OBJECT'
      TABLES
        query_string        = query_table
        html                = html_table
        mime                = pic_data
      CHANGING
        return_code         = return_code
        content_type        = content_type
        content_length      = content_length
      EXCEPTIONS
        object_not_found    = 1
        parameter_not_found = 2
        OTHERS              = 3.
    IF sy-subrc = 0.
      pic_size = content_length.
    ENDIF.

    CLEAR url.
    CALL FUNCTION 'DP_CREATE_URL'
      EXPORTING
        type                       = 'image/gif'
        subtype                    = cndp_sap_tab_unknown
        size                       = pic_size
      TABLES
        data                       = pic_data " данные в формате HEX
      CHANGING
        url                        = url
     EXCEPTIONS
       dp_invalid_parameter       = 1
       dp_error_put_table         = 2
       dp_error_general           = 3
       OTHERS                     = 4 .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

* load picture
    CALL METHOD picture->load_picture_from_url
      EXPORTING
        url = url.
    IF sy-subrc NE 0.
* Fehlerbehandlung
    ENDIF.

    CALL METHOD picture->set_3d_border
      EXPORTING
        border = 1.

    CALL METHOD picture->set_display_mode
      EXPORTING
        display_mode = cl_gui_picture=>display_mode_fit_center.

    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2.
    IF sy-subrc <> 0.
* error handling
    ENDIF.

  ENDIF.
ENDFORM.                                                    " PBO_0100

*&---------------------------------------------------------------------*
*&      Module  ON_EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE on_exit INPUT.

  IF ok_code = 'EXIT'.
    CALL METHOD picture->free.
    CALL METHOD container->free.
    LEAVE PROGRAM.
  ENDIF.

ENDMODULE.                 " ON_EXIT  INPUT

*&---------------------------------------------------------------------*
*&      Form  HANDLE_DOUBLE_CLICK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_MOUSE_POS_X  text
*      -->P_MOUSE_POS_Y  text
*----------------------------------------------------------------------*
FORM handle_double_click  USING p_mouse_pos_x TYPE i
                                                  p_mouse_pos_y TYPE i.

  BREAK-POINT.

ENDFORM.                    " HANDLE_DOUBLE_CLICK

DATA container TYPE REF TO cl_gui_custom_container.
DATA html TYPE REF TO cl_gui_html_viewer.
DATA  ok_code TYPE sy-ucomm.
DATA url(255).

pbo_0100.
  IF container IS INITIAL .
    CREATE OBJECT container
      EXPORTING
        container_name = 'CUSTOM_CONTAINER'.

    CREATE OBJECT html
      EXPORTING
*    shellstyle         =
        parent             = container
*    lifetime           = lifetime_default
*    saphtmlp           =
*    uiflag             =
*    name               =
*    saphttp            =
*    query_table_disabled = ''
      EXCEPTIONS
        cntl_error         = 1
        cntl_install_error = 2
        dp_install_error   = 3
        dp_error           = 4
        OTHERS             = 5.
    IF sy-subrc NE 0.

    ENDIF.

    DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.
    DATA html_table LIKE w3html OCCURS 1.
    DATA return_code LIKE  w3param-ret_code.
    DATA content_type LIKE  w3param-cont_type.
    DATA content_length LIKE  w3param-cont_len.
    DATA pic_data LIKE w3mime OCCURS 0.

    REFRESH query_table.
    query_table-name = '_OBJECT_ID'.
    query_table-value = 'ZGIF'. "'Z2222'.
    APPEND query_table.


    CALL FUNCTION 'WWW_GET_MIME_OBJECT'
      TABLES
        query_string        = query_table
        html                = html_table
        mime                = l_t_line_hex
      CHANGING
        return_code         = return_code
        content_type        = content_type
        content_length      = content_length
      EXCEPTIONS
        object_not_found    = 1
        parameter_not_found = 2
        OTHERS              = 3.
    IF sy-subrc = 0.
      pic_size = content_length.
    ENDIF.

    html->load_data(
      EXPORTING
        subtype              = 'image/gif'
      IMPORTING
        assigned_url         = url
      CHANGING
        data_table           = l_t_line_hex
      EXCEPTIONS
        dp_invalid_parameter = 1
        dp_error_general     = 2
        cntl_error           = 3 ).
    IF sy-subrc <> 0.
      ASSERT ID /bobf/conf CONDITION 1 = 0.
    ENDIF.

    CALL METHOD html->show_data
      EXPORTING
        url                    = url
        frame                  = 'X'
        in_place               = 'X'
      EXCEPTIONS
        cntl_error             = 1
        cnht_error_not_allowed = 2
        cnht_error_parameter   = 3
        dp_error_general       = 4
        OTHERS                 = 5.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
endform.

FORM load_acd CHANGING pc_main_container
                                    TYPE REF TO cl_gui_custom_container
                       pc_acd_viewer   TYPE REF TO cl_gui_ecl_2dviewer.

  DATA: l_t_line_gif_hex TYPE solix_tab
      , l_t_line_tif_hex TYPE solix_tab
      , l_w_xstring TYPE xstring
      , pic_size TYPE i.
  .

  DATA: w_filename   TYPE char255,
        w_error_code TYPE sysubrc.

  IF pc_main_container IS  INITIAL.

    CREATE OBJECT pc_main_container
      EXPORTING
        container_name              = 'CUSTOM_CONTAINER'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.

    CREATE OBJECT pc_acd_viewer
      EXPORTING
        parent            = pc_main_container
      EXCEPTIONS
        cntl_error        = 1
        cntl_system_error = 2
        create_error      = 3
        lifetime_error    = 4
        OTHERS            = 5.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.

* Конвертирую в BIN формат, по скольку данные мне
* приходят в HEX формате
    l_w_xstring = l_w_row-g_image.
    pic_size = XSTRLEN( l_w_xstring ).
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer     = l_w_xstring
      TABLES
        binary_tab = l_t_line_gif_hex.

* выгружаю многостраничный GIF
    w_filename = 'C:\\bin.gif'. "'c:\\2222.tif'
    CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
*      bin_filesize              =
        filename                  = w_filename
        filetype                  = 'BIN'
*      append                    = SPACE
*      write_field_separator     = SPACE
*      header                    = '00'
*      trunc_trailing_blanks     = SPACE
*      write_lf                  = 'X'
*      col_select                = SPACE
*      col_select_mask           = SPACE
*      dat_mode                  = SPACE
*      confirm_overwrite         = SPACE
*      no_auth_check             = SPACE
*      codepage                  = SPACE
*      ignore_cerr               = ABAP_TRUE
*      replacement               = '#'
*      write_bom                 = SPACE
*      trunc_trailing_blanks_eol = 'X'
*      wk1_n_format              = SPACE
*      wk1_n_size                = SPACE
*      wk1_t_format              = SPACE
*      wk1_t_size                = SPACE
*      show_transfer_status      = 'X'
*      fieldnames                =
*      write_lf_after_last_line  = 'X'
*    IMPORTING
*      filelength                =
      CHANGING
        data_tab                  = l_t_line_gif_hex
      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
        not_supported_by_gui      = 22
        error_no_gui              = 23
        OTHERS                    = 24.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.

* открываю многостраничный GIF
    CALL METHOD pc_acd_viewer->open_document
      EXPORTING
        file                = w_filename
        markup_forbidden    = 'X'       
      IMPORTING
        error_code          = w_error_code
      EXCEPTIONS
        cntl_error          = 1
        cntl_system_error   = 2
        invalid_file_format = 3
        permission_denied   = 4
        file_not_found      = 5
        bad_file_name       = 6
        invalid_data        = 7
        OTHERS              = 8.
    IF sy-subrc = 0 AND w_error_code = 0.
* Создаю набор TOOLBAR
      CALL METHOD pc_acd_viewer->create_toolbar
        EXPORTING
          close_button      = 'X'
          tools             = 'X'
          viewer            = 'X'
          navigation        = 'X'
          OPTIONS           = 'X'
          viewer_openfile   = 'X'
          viewer_savefile   = 'X'
          tool_measurement  = 'X'
          remove_document   = 'X'
          viewer_closefile  = 'X'
          tool_compare      = 'X'
          tool_stamp        = ''
        EXCEPTIONS
          cntl_system_error = 1
          cntl_error        = 2
          cntb_btype_error  = 3
          dp_error          = 4
          wrong_fcode_error = 5
          OTHERS            = 6.
      IF sy-subrc NE 0.
        RETURN.
      ENDIF.

* Делаю видимым
      CALL METHOD pc_acd_viewer->set_visible
        EXPORTING
          visible           = 'X'
        EXCEPTIONS
          cntl_error        = 1
          cntl_system_error = 2
          OTHERS            = 3.
    ELSE.
      " Message E000 with 'Could not open document' w_FileName.
    ENDIF.
  ENDIF.
ENDFORM.                    "Load_Acd

  DATA: l_igs_imgconv TYPE REF TO cl_igs_image_converter.
    l_w_xstring = l_w_row-g_image.
    pic_size = XSTRLEN( l_w_xstring ).
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer     = l_w_xstring
      TABLES
        binary_tab = l_t_line_gif_hex.

    CREATE OBJECT l_igs_imgconv.

    l_img_size = pic_size.

    CALL METHOD l_igs_imgconv->set_image
      EXPORTING
        blob      = l_t_line_gif_hex
        blob_size = l_img_size.

    l_igs_imgconv->input  = 'image/gif'.
    l_igs_imgconv->output = 'image/tiff'.

    CALL METHOD l_igs_imgconv->execute
      EXCEPTIONS
        OTHERS = 1.
    IF sy-subrc IS INITIAL.
      CALL METHOD l_igs_imgconv->get_image
        IMPORTING
          blob      = l_t_line_tif_hex "получаю данные в HEX формате
          blob_size = l_img_size.
      pic_size = l_img_size.
    ENDIF.

CONSTANTS
   : co_graphic_control_ext TYPE x LENGTH 3 VALUE '21F904'
   , co_trailer             TYPE x LENGTH 1 VALUE '3B'
   , co_comment_ext         TYPE x LENGTH 2 VALUE '21FE'
   , co_image_descriptor    TYPE x LENGTH 1 VALUE '2C'
   , co_plain_text_ext      TYPE x LENGTH 3 VALUE '210112'
   , co_application_ext     TYPE x LENGTH 3 VALUE '21FF0B'
   , co_block_terminator    TYPE x LENGTH 1 VALUE '00'
   .

* Table constant Convert HEX -> BIT -> Dec
TYPES: BEGIN OF ty_hex_bit_dec,
         hex TYPE c LENGTH 1,
         bit TYPE char4,
         dec TYPE char12,
       END OF ty_hex_bit_dec.

TYPES: ty_t_hex_bit_dec TYPE SORTED TABLE OF ty_hex_bit_dec
                        WITH UNIQUE KEY hex bit dec.

DATA: l_t_hex_bit_dec TYPE ty_t_hex_bit_dec
    , l_w_hex_bit_dec LIKE LINE OF l_t_hex_bit_dec
    .

* extention
TYPES: BEGIN OF ty_extention,
         introducer       TYPE x LENGTH 1,
         label            TYPE x LENGTH 1,
         block_data       TYPE xstring,
         block_terminator TYPE x LENGTH 1,
       END OF  ty_extention.
TYPES: ty_t_extention TYPE STANDARD TABLE OF  ty_extention.
DATA: l_t_extention TYPE ty_t_extention
    , l_w_extention LIKE LINE OF l_t_extention
    .

* Logical Screen Descriptor
TYPES: BEGIN OF ty_lsd_packed_fields,
         packed_fields_hex  TYPE x LENGTH 1,
         packed_fields_bit  TYPE c LENGTH 8,
         gct_flag           TYPE c LENGTH 1,
         cr_bit             TYPE c LENGTH 3,
         cr_dec             TYPE i,
         sort_flag          TYPE c LENGTH 1,
         size_gct_bit       TYPE c LENGTH 3,
         size_gct_byte      TYPE i,
        END OF ty_lsd_packed_fields.
DATA: ls_lsd_packed_fields TYPE ty_lsd_packed_fields.

TYPES: BEGIN OF ty_logical_screen_descriptor,
        width                  TYPE x LENGTH 2,
        hight                  TYPE x LENGTH 2,
        packed_fields          LIKE ls_lsd_packed_fields,
        background_color_index TYPE x LENGTH 1,
        pixel_aspect_ratio     TYPE x LENGTH 1,
       END OF   ty_logical_screen_descriptor.
DATA: ls_lsd TYPE ty_logical_screen_descriptor.

* Image descriptor
TYPES: BEGIN OF ty_image_packed_fields,
         packed_fields_hex TYPE x LENGTH 1,
         packed_fields_bit TYPE c LENGTH 8,
         lct_flag          TYPE c LENGTH 1,
         interlace_flag    TYPE c LENGTH 1,
         sort_flag         TYPE c LENGTH 1,
         reserved          TYPE c LENGTH 2,
         size_lct_bit      TYPE c LENGTH 3,
         size_lct_byte     TYPE i,
        END OF ty_image_packed_fields.
DATA: ls_image_packed_fields TYPE ty_image_packed_fields.

TYPES: BEGIN OF ty_image_descriptor,
          separator     TYPE x LENGTH 1,
          left          TYPE x LENGTH 2,
          top           TYPE x LENGTH 2,
          width         TYPE x LENGTH 2,
          high          TYPE x LENGTH 2,
          packed_fields LIKE ls_image_packed_fields,
       END OF  ty_image_descriptor.
DATA: ls_image_descriptor TYPE ty_image_descriptor.

TYPES: BEGIN OF ty_image,
         descriptor       LIKE ls_image_descriptor,
         lct              TYPE xstring,
         lzw_code_size    TYPE x LENGTH 1,
         image_data       TYPE xstring,
         block_terminator TYPE x LENGTH 1,
       END OF   ty_image.
TYPES: ty_t_image TYPE STANDARD TABLE OF  ty_image.
DATA: l_t_image TYPE ty_t_image
    , l_w_image LIKE LINE OF l_t_image
    .

* GIF
TYPES: BEGIN OF ty_gif,
         signature    TYPE x LENGTH 3,
         version      TYPE x LENGTH 3,
         lsd          LIKE ls_lsd,
         gct          TYPE xstring,
         t_image      LIKE l_t_image,
         t_extention  LIKE l_t_extention,
         terminator   TYPE x LENGTH 1,
       END OF  ty_gif.
DATA:  g_w_gif TYPE ty_gif.

DATA: g_lenght TYPE i.

*macros fill table constant Convert HEX -> BIT -> Dec
DEFINE load_hex_bit_dec.
  clear: l_w_hex_bit_dec.
  l_w_hex_bit_dec-hex = &1.
  l_w_hex_bit_dec-bit = &2.
  l_w_hex_bit_dec-dec = &3.
  insert l_w_hex_bit_dec into table l_t_hex_bit_dec.
END-OF-DEFINITION.

FUNCTION zparser_gif .
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(IM_XSTRING) TYPE  XSTRING
*"  EXPORTING
*"     VALUE(EX_T_GIF) TYPE  XSTRING_TABLE
*"----------------------------------------------------------------------

* Table convert hex->bit->dec
  load_hex_bit_dec '0' '0000' '0'.
  load_hex_bit_dec '1' '0001' '1'.
  load_hex_bit_dec '2' '0010' '2'.
  load_hex_bit_dec '3' '0011' '3'.
  load_hex_bit_dec '4' '0100' '4'.
  load_hex_bit_dec '5' '0101' '5'.
  load_hex_bit_dec '6' '0110' '6'.
  load_hex_bit_dec '7' '0111' '7'.
  load_hex_bit_dec '8' '1000' '8'.
  load_hex_bit_dec '9' '1001' '9'.
  load_hex_bit_dec 'A' '1010' '10'.
  load_hex_bit_dec 'B' '1011' '11'.
  load_hex_bit_dec 'C' '1100' '12'.
  load_hex_bit_dec 'D' '1101' '13'.
  load_hex_bit_dec 'E' '1110' '14'.
  load_hex_bit_dec 'F' '1111' '15'.

  PERFORM parser_gif  USING im_xstring
                   CHANGING g_w_gif.

  PERFORM devide_gif  USING g_w_gif
                   CHANGING ex_t_gif.

ENDFUNCTION.

*&---------------------------------------------------------------------*
*&      Form  CONVERT_HEX_TO_BIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_L_W_GIF_LSD_PACKED_FIELDS_PACK  text
*      <--P_L_W_GIF_LSD_PACKED_FIELDS_PACK  text
*----------------------------------------------------------------------*
FORM convert_hex_to_bit  USING    value(p_hex)
                         CHANGING c_bit.

  DATA: l_hex           TYPE c LENGTH 2
      , l_w_hex_bit_dec TYPE ty_hex_bit_dec
      .

  CLEAR: c_bit.

  l_hex = p_hex.
  READ TABLE l_t_hex_bit_dec INTO l_w_hex_bit_dec
  WITH KEY hex = l_hex(1).
  IF sy-subrc EQ 0.
    CONCATENATE c_bit
                l_w_hex_bit_dec-bit
           INTO c_bit.
  ENDIF.

  READ TABLE l_t_hex_bit_dec INTO l_w_hex_bit_dec
  WITH KEY hex = l_hex+1(1).
  IF sy-subrc EQ 0.
    CONCATENATE c_bit
                l_w_hex_bit_dec-bit
           INTO c_bit.
  ENDIF.

ENDFORM.                    " CONVERT_HEX_TO_BIT

*&---------------------------------------------------------------------*
*&      Form  convert_bin_dec
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->VALUE(P_BIN)  text
*      -->C_DEC         text
*----------------------------------------------------------------------*
FORM convert_bit_dec  USING value(p_bit)
                   CHANGING c_dec TYPE i.

  DATA: l_lenght TYPE i
      , l_result TYPE i
      , l_index  TYPE i
      .

  CLEAR: c_dec.
  l_lenght = STRLEN( p_bit ).
  l_index = 0.
  l_result = 0.
  DO l_lenght TIMES.
    l_result = l_result * 2 + p_bit+l_index(1).
    ADD 1 TO l_index.
  ENDDO.
  c_dec = l_result.
ENDFORM.                    "convert_bin_dec

*&---------------------------------------------------------------------*
*&      Form  exponent
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->VALUE(P_BASE)      text
*      -->VALUE(P_EXPONENT)  text
*      -->C_RESULT           text
*----------------------------------------------------------------------*
FORM exponent   USING    value(p_base)
                         value(p_exponent)
                 CHANGING c_result TYPE f.

  DATA: res TYPE f
      , l_exponent TYPE i
      , l_base TYPE p
      , l_tmp TYPE i
      .

  CLEAR: c_result.
  res = 1.
  l_exponent = p_exponent.
  l_base     = p_base.

  WHILE l_exponent > 0.
    l_tmp = l_exponent MOD 2.
    IF l_tmp = 0.
      l_exponent = l_exponent DIV 2.
      TRY.
          l_base = l_base * l_base.
        CATCH cx_sy_arithmetic_overflow.
          CLEAR l_base.
          EXIT.
      ENDTRY.
    ELSE.
      l_exponent = l_exponent - 1.
      res = res * l_base.
    ENDIF.
  ENDWHILE.

  c_result = res.

ENDFORM.                    " exponent

*&---------------------------------------------------------------------*
*&      Form  block_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_W_XSTRING  text
*      -->P_LENGHT     text
*      -->C_T_BLOCK    text
*      -->C_OFFSET     text
*----------------------------------------------------------------------*
FORM block_data   USING p_xstring    TYPE xstring
                        p_lenght     TYPE i
               CHANGING c_block      TYPE xstring
                        c_offset     TYPE i.

  DATA: l_size_hex   TYPE x LENGTH 1
      , l_size_bit   TYPE c LENGTH 8
      , l_size_dec   TYPE i
      , l_offset_in  TYPE i
      .

  l_offset_in = c_offset.
  DO.
* check overflow
    IF c_offset GT p_lenght.
      EXIT.
    ENDIF.

    IF p_xstring+c_offset(1) EQ '00'. " block terminator
* block data
      CLEAR: l_size_dec.
      l_size_dec = c_offset - l_offset_in.
      c_block = p_xstring+l_offset_in(l_size_dec).
      EXIT.
    ENDIF.

* block size
    l_size_hex = p_xstring+c_offset(1).
    ADD 1 TO c_offset.

* convert hex->bit
    PERFORM convert_hex_to_bit
      USING l_size_hex
   CHANGING l_size_bit.

* convert bit->dec
    PERFORM convert_bit_dec
      USING l_size_bit
   CHANGING l_size_dec.

    ADD l_size_dec TO c_offset.
  ENDDO.

ENDFORM.                    " BLOCK_DATA

*&---------------------------------------------------------------------*
*&      Form  extention
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->VALUE(P_EXTENTION)  text
*      -->P_W_XSTRING         text
*      -->P_OFF               text
*      -->P_LENGHT            text
*      -->C_T_EXTENTION       text
*----------------------------------------------------------------------*
FORM extention  USING    value(p_extention)
                         p_w_xstring   TYPE xstring
                         p_off         TYPE i
                         p_lenght      TYPE i
                CHANGING c_t_extention TYPE ty_t_extention.

  DATA: l_ofs    TYPE i
      , l_offset TYPE i
      , l_w_extention TYPE ty_extention
      .

  CLEAR: l_offset.
  l_ofs = p_off.
  DO.
    FIND p_extention IN SECTION OFFSET l_ofs
      OF p_w_xstring IN BYTE MODE
    MATCH OFFSET l_offset.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.

    CLEAR: l_w_extention.
* block introducer
    l_w_extention-introducer             = p_w_xstring+l_offset(1).
    ADD 1 TO l_offset.
* block label
    l_w_extention-label                  = p_w_xstring+l_offset(1).
    ADD 1 TO l_offset.
* block data
    PERFORM block_data USING p_w_xstring
                             p_lenght
                    CHANGING l_w_extention-block_data
                             l_offset.
* block terminator
    l_w_extention-block_terminator = p_w_xstring+l_offset(1).
    ADD 1 TO l_offset.

    APPEND l_w_extention TO c_t_extention.
    l_ofs = l_offset.
  ENDDO.

ENDFORM.                    " EXTENTION

*&---------------------------------------------------------------------*
*&      Form  PARSER_GIF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_IM_XSTRING  text
*      <--P_G_W_GIF  text
*----------------------------------------------------------------------*
FORM parser_gif  USING    p_xstring TYPE xstring
                 CHANGING c_w_gif      TYPE ty_gif.

  DATA: l_lenght  TYPE i
      , l_off     TYPE i
      , l_offset  TYPE i
      , l_ofs     TYPE i
      , l_w_image TYPE ty_image
      .

  BREAK-POINT ID zraf.

* lenght
  l_lenght    = XSTRLEN( p_xstring ).

  CLEAR: c_w_gif.

* Header
  CLEAR: l_off.
  c_w_gif-signature = p_xstring(3).
  ADD 3 TO l_off.
  c_w_gif-version   = p_xstring+l_off(3).
  ADD 3 TO l_off.

* Logical Screen Descriptor
  c_w_gif-lsd-width                           = p_xstring+l_off(2).
  ADD 2 TO l_off.
  c_w_gif-lsd-hight                           = p_xstring+l_off(2).
  ADD 2 TO l_off.
  c_w_gif-lsd-packed_fields-packed_fields_hex = p_xstring+l_off(1).
  ADD 1 TO l_off.
  c_w_gif-lsd-background_color_index          = p_xstring+l_off(1).
  ADD 1 TO l_off.
  c_w_gif-lsd-pixel_aspect_ratio              = p_xstring+l_off(1).
  ADD 1 TO l_off.

* Logical Screen Descriptor packed_fields
* convert hex->bit
  PERFORM convert_hex_to_bit
    USING c_w_gif-lsd-packed_fields-packed_fields_hex
CHANGING c_w_gif-lsd-packed_fields-packed_fields_bit.

* Global Color Table Flag 1 Bit
  c_w_gif-lsd-packed_fields-gct_flag  =
                c_w_gif-lsd-packed_fields-packed_fields_bit(1).

  IF c_w_gif-lsd-packed_fields-gct_flag EQ 1.

* Color Resolution              3 Bits
    c_w_gif-lsd-packed_fields-cr_bit =
              c_w_gif-lsd-packed_fields-packed_fields_bit+1(3).
* convert bit->dec
    PERFORM convert_bit_dec
      USING c_w_gif-lsd-packed_fields-cr_bit
   CHANGING c_w_gif-lsd-packed_fields-cr_dec.
    ADD 1 TO c_w_gif-lsd-packed_fields-cr_dec.
* Sort Flag                     1 Bit
    c_w_gif-lsd-packed_fields-sort_flag =
              c_w_gif-lsd-packed_fields-packed_fields_bit+4(1).

* Size of Global Color Table    3 Bits
    c_w_gif-lsd-packed_fields-size_gct_bit =
              c_w_gif-lsd-packed_fields-packed_fields_bit+5(3).

    PERFORM get_size_tcolor
      USING c_w_gif-lsd-packed_fields-size_gct_bit
   CHANGING c_w_gif-lsd-packed_fields-size_gct_byte.

* Global Color Table
    c_w_gif-gct =
             p_xstring+l_off(c_w_gif-lsd-packed_fields-size_gct_byte).
    ADD c_w_gif-lsd-packed_fields-size_gct_byte TO l_off.

  ENDIF.

* Image Descriptor
  CLEAR: l_offset.
  l_ofs = l_off.
  DO.
    FIND co_image_descriptor IN SECTION OFFSET l_ofs
      OF p_xstring IN BYTE MODE
    MATCH OFFSET l_offset.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.

    CLEAR: l_w_image.
    l_w_image-descriptor-separator         = p_xstring+l_offset(1).
    ADD 1 TO l_offset.
    l_w_image-descriptor-left              = p_xstring+l_offset(2).
    ADD 2 TO l_offset.
    l_w_image-descriptor-top               = p_xstring+l_offset(2).
    ADD 2 TO l_offset.
    l_w_image-descriptor-width             = p_xstring+l_offset(2).
    ADD 2 TO l_offset.
    l_w_image-descriptor-high              = p_xstring+l_offset(2).
    ADD 2 TO l_offset.
    l_w_image-descriptor-packed_fields-packed_fields_hex
                                           = p_xstring+l_offset(1).
    ADD 1 TO l_offset.
* convert hex->bit
    PERFORM convert_hex_to_bit
      USING l_w_image-descriptor-packed_fields-packed_fields_hex
   CHANGING l_w_image-descriptor-packed_fields-packed_fields_bit.

* Local Color Table Flag        1 Bit
    l_w_image-descriptor-packed_fields-lct_flag  =
             l_w_image-descriptor-packed_fields-packed_fields_bit(1).
    IF l_w_image-descriptor-packed_fields-lct_flag EQ 1.
* Interlace Flag                1 Bit
      l_w_image-descriptor-packed_fields-interlace_flag =
            l_w_image-descriptor-packed_fields-packed_fields_bit+1(1).
* Sort Flag                     1 Bit
      l_w_image-descriptor-packed_fields-sort_flag  =
            l_w_image-descriptor-packed_fields-packed_fields_bit+2(1).
* Reserved                      2 Bits
      l_w_image-descriptor-packed_fields-reserved  =
            l_w_image-descriptor-packed_fields-packed_fields_bit+3(2).
* Size of Local Color Table     3 Bits
      l_w_image-descriptor-packed_fields-size_lct_bit  =
            l_w_image-descriptor-packed_fields-packed_fields_bit+5(3).

      PERFORM get_size_tcolor
        USING l_w_image-descriptor-packed_fields-size_lct_bit
     CHANGING l_w_image-descriptor-packed_fields-size_lct_byte.

* Local Color Table
      l_w_image-lct =
  p_xstring+l_offset(l_w_image-descriptor-packed_fields-size_lct_byte).
      ADD l_w_image-descriptor-packed_fields-size_lct_byte TO l_offset.

    ENDIF.

* lzw min code size
    l_w_image-lzw_code_size = p_xstring+l_offset(1).
    ADD 1 TO l_offset.

* block data
    PERFORM block_data USING p_xstring
                             l_lenght
                    CHANGING l_w_image-image_data
                             l_offset.
* block_terminator
    l_w_image-block_terminator = p_xstring+l_offset(1).

    APPEND l_w_image TO c_w_gif-t_image.
    l_ofs = l_offset.
  ENDDO.

* Application Extension
  PERFORM extention USING co_application_ext
                          p_xstring
                          l_off
                          l_lenght
                 CHANGING c_w_gif-t_extention.

* Graphic Control Extension
  PERFORM extention USING co_graphic_control_ext
                          p_xstring
                          l_off
                          l_lenght
                 CHANGING c_w_gif-t_extention.

* Plain Text Extension
  PERFORM extention USING co_plain_text_ext
                          p_xstring
                          l_off
                          l_lenght
                 CHANGING c_w_gif-t_extention.

* Comment Extension
  PERFORM extention USING co_comment_ext
                          p_xstring
                          l_off
                          l_lenght
                 CHANGING c_w_gif-t_extention.

* Trailer  GIF
  SUBTRACT 1 FROM l_lenght.
  c_w_gif-terminator = p_xstring+l_lenght(1).

ENDFORM.                    " PARSER_GIF

*&---------------------------------------------------------------------*
*&      Form  DEVICE_GIF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_G_W_GIF  text
*      <--P_EX_T_GIF  text
*----------------------------------------------------------------------*
FORM devide_gif  USING    p_w_gif    TYPE ty_gif
                 CHANGING c_t_gif    TYPE xstring_table.

  DATA: l_count   TYPE i
      , l_index   TYPE i
      , l_xstring TYPE xstring
      , l_w_image TYPE ty_image
      .

  FIELD-SYMBOLS: <lfs_xstring> TYPE xstring.

  DESCRIBE TABLE p_w_gif-t_image LINES l_count.

  CLEAR: l_index.
  DO l_count TIMES.
    CLEAR: l_xstring.
* Header
    CONCATENATE p_w_gif-signature
                p_w_gif-version
           INTO l_xstring IN BYTE MODE.

* Logical Screen Descriptor
    CONCATENATE l_xstring
                p_w_gif-lsd-width
                p_w_gif-lsd-hight
                p_w_gif-lsd-packed_fields-packed_fields_hex
                p_w_gif-lsd-background_color_index
                p_w_gif-lsd-pixel_aspect_ratio
           INTO l_xstring IN BYTE MODE.

* Global Color Table
    IF p_w_gif-gct IS NOT INITIAL.
      CONCATENATE l_xstring
                  p_w_gif-gct
             INTO l_xstring IN BYTE MODE.
    ENDIF.

    ADD 1 TO l_index.
    READ TABLE  p_w_gif-t_image INTO l_w_image INDEX l_index.
    IF sy-subrc NE 0.
      CONTINUE.
    ENDIF.

* Image
    CONCATENATE l_xstring
                l_w_image-descriptor-separator
                l_w_image-descriptor-left
                l_w_image-descriptor-top
                l_w_image-descriptor-width
                l_w_image-descriptor-high
                l_w_image-descriptor-packed_fields-packed_fields_hex
           INTO l_xstring IN BYTE MODE.

    IF l_w_image-lct IS NOT INITIAL.
      CONCATENATE l_xstring
                  l_w_image-lct
             INTO l_xstring IN BYTE MODE.
    ENDIF.

    CONCATENATE l_xstring
                l_w_image-lzw_code_size
                l_w_image-image_data
                l_w_image-block_terminator
           INTO l_xstring IN BYTE MODE.

* Trailer  GIF
    CONCATENATE l_xstring
                p_w_gif-terminator
           INTO l_xstring IN BYTE MODE.
    APPEND l_xstring TO c_t_gif.

    DATA: l_length TYPE i
        , l_t_line_gif_hex TYPE solix_tab
        .

    l_length = XSTRLEN( l_xstring ).
    REFRESH: l_t_line_gif_hex.
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer     = l_xstring
      TABLES
        binary_tab = l_t_line_gif_hex.

    DATA: filename  TYPE string.
    filename = l_index.
    SHIFT filename LEFT DELETING LEADING space.
    CONCATENATE 'C:\' filename '.gif' INTO filename.
    CONDENSE filename NO-GAPS.
    CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
        filename                = filename
        filetype                = 'BIN'
      CHANGING
        data_tab                = l_t_line_gif_hex
      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
        not_supported_by_gui    = 22
        error_no_gui            = 23
        OTHERS                  = 24.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.

  ENDDO.

ENDFORM.                    " DEVIDE_GIF

*&---------------------------------------------------------------------*
*&      Form  GET_SIZE_TCOLOR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_L_W_IMAGE_DESCRIPTOR_PACKED_FI  text
*      <--P_L_W_IMAGE_DESCRIPTOR_PACKED_FI  text
*----------------------------------------------------------------------*
FORM get_size_tcolor  USING    value(p_bit)
                      CHANGING c_byte TYPE i.

  DATA: l_dec     TYPE i
      , l_count_color  TYPE f
      .

  PERFORM convert_bit_dec USING p_bit
                       CHANGING l_dec.
  ADD 1 TO l_dec.

* exponent 2
  PERFORM exponent USING '2'
                         l_dec
                CHANGING l_count_color.

* size Global Color Table in byte
  c_byte = 3 * l_count_color.

ENDFORM.                    " GET_SIZE_TCOLOR