Dynpro I/O-Felder nach Eingabe nicht leeren

Code: Alles auswählen.

MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  url_part1 = 'HTTP://'.
  url_part2 = ':'.
  CLEAR ok_code.
  CLEAR url_complete.

  CASE save_ok.
    WHEN 'SERVER'.
      url_part3 = '/REPORTS_'.

    WHEN 'WS'.
      url_part3 = '/REPORTSERVER_'.


    WHEN 'GO_BACK'.
      CALL METHOD html_viewer->go_back
        EXCEPTIONS
          cntl_error = 1.
    WHEN 'GO_FORWARD'.
      CALL METHOD html_viewer->go_forward
        EXCEPTIONS
          cntl_error = 1.
  ENDCASE.

  CALL FUNCTION 'GET_DYNP_VALUE'
   EXPORTING
     i_field = 'SERVER_INSTANZ_IO'
     i_repid = sy-repid
     i_dynnr = '0100'
*      i_conv_input = SPACE
*      i_conv_output = SPACE
   CHANGING
     o_value = server_instanz.

  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PORT_IO'
      i_repid = sy-repid
      i_dynnr = '0100'
*      i_conv_input = SPACE
*      i_conv_output = SPACE
    CHANGING
      o_value = port.

  CALL FUNCTION 'GET_DYNP_VALUE'
  EXPORTING
    i_field = 'HOST_NAME_IO'
    i_repid = sy-repid
    i_dynnr = '0100'
*      i_conv_input = SPACE
*      i_conv_output = SPACE
  CHANGING
    o_value = host_name.

  IF ok_code = 'SERVER'.
    url_part3 = '/REPORTS_'.
  ELSEIF ok_code = 'WS'.
    url_part2 = '/REPORTSERVER_'.
  ENDIF.


  CONCATENATE url_complete url_part1 INTO url_complete.
  CONCATENATE url_complete host_name INTO url_complete.
  CONCATENATE url_complete url_part2 INTO url_complete.
  CONCATENATE url_complete port INTO url_complete.
  CONCATENATE url_complete url_part3 INTO url_complete.
  CONCATENATE url_complete server_instanz INTO url_complete.

  url = url_complete.

  CALL METHOD html_viewer->show_url
    EXPORTING
      url        = url
      frame      = frame
    EXCEPTIONS
      cntl_error = 1.


ENDMODULE.                    "user_command_0100 INPUT

Code: Alles auswählen.

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.
  IF init is initial.
    CREATE OBJECT container
      EXPORTING
        container_name = 'CUSTOM'.
    CREATE OBJECT html_viewer
      EXPORTING
        parent             = container
      EXCEPTIONS
        cntl_error         = 1
        cntl_install_error = 2
        dp_install_error   = 3
        dp_error           = 4.
    IF sy-subrc ne 0.
* Fehlerbehandlung
    ENDIF.
    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2.
    IF sy-subrc ne 0.
* Fehlerbehandlung
    ENDIF.
    init = 'X'.
  ENDIF.

ENDMODULE.                    "status_0100 OUTPUT