HTML VIEWER

DATA:
  r_continer TYPE REF TO cl_gui_custom_container,
  r_grid     TYPE REF TO cl_gui_alv_grid.

DATA: "fcode type sy-ucomm,
  url      TYPE scarr-url VALUE 'http://www.hs-augsburg.de',
  cc       TYPE REF TO cl_gui_custom_container,
  url_back TYPE scarr-url VALUE 'http://www.hs-augsburg.de',
  url_tmp  TYPE scarr-url VALUE 'http://www.hs-augsburg.de',
  html     TYPE REF TO cl_gui_html_viewer,
  ok_code  TYPE sy-ucomm.

  call SCREEN 0100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.

    IF cc IS INITIAL.
    CREATE OBJECT CC
      EXPORTING
        container_name = 'CC'.
    CREATE OBJECT html
      EXPORTING
        parent = CC.
  ENDIF.

  CALL METHOD html->show_url
    EXPORTING
      url = url.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
 case ok_code.
    when 'BACK'.
      leave to screen 0.
    when 'EXIT'.
      LEAVE PROGRAM.
    when 'LOAD'.
      url_back = url.
      url_tmp = url.
    when 'ZURUECK'.
      url = url_back.
      url_back = url_tmp.
    when 'REFRESH'.
  endcase.

ENDMODULE.