Refresh the Report

[Former Member]

Hi I have to build an ALV report .. The Problem I am facing is that I need to Create a Report in which the Information for the Client Gets Updated Frequently .

Eg:- The way it is done at AIRPORT when the Information for flights Keeps on Getting Refreshed .. after every 5 mins...

1.) I know I have to Use a Function Module .. BUT which one ...

2.) How to find the compatible Function Module with any other Scenerio..

Please Help..

Thanks

Edited by: Ashutosh Sharotri on May 19, 2008 5:03 AM

[Former Member]

Hi Ashutosh Sharotri,

Please check this code

REPORT z_alv_auto_refresh.
*>*********************************************************************
* This report displays User's info (SM04) using the FM :              *
* REUSE_ALV_LIST_DISPLAY                                              *
* The list is auto-refreshed (refresh time : 5 seconds)               *
*---------------------------------------------------------------------*

TYPE-POOLS: slis.                      " ALV Global Types

DATA :
  gt_user LIKE uinfo OCCURS 0 WITH HEADER LINE. " User info in SM04

*---------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM f_read_data.

  PERFORM f_display_data.

*---------------------------------------------------------------------*
*       Form  F_LIRE_DATA
*---------------------------------------------------------------------*
FORM f_read_data.

  REFRESH gt_user.

* Get User's info
  CALL FUNCTION 'THUSRINFO'
       TABLES
            usr_tabl = gt_user.

* Wait in a task
  PERFORM f_call_rfc_wait.

ENDFORM.                               " F_READ_DATA
*---------------------------------------------------------------------*
*      Form  F_DISPLAY_DATA
*---------------------------------------------------------------------*
FORM f_display_data.

  DEFINE m_sort.
    add 1 to ls_sort-spos.
    ls_sort-fieldname = &1.
    append ls_sort to lt_sort.
  END-OF-DEFINITION.

  DEFINE m_event_exit.
    clear ls_event_exit.
    ls_event_exit-ucomm = &1.
    ls_event_exit-after = 'X'.
    append ls_event_exit to lt_event_exit.
  END-OF-DEFINITION.

  DATA :
    ls_layout     TYPE slis_layout_alv,
    lt_sort       TYPE slis_t_sortinfo_alv,
    ls_sort       TYPE slis_sortinfo_alv,
    lt_event_exit TYPE slis_t_event_exit,
    ls_event_exit TYPE slis_event_exit.

* Build Sort Table
  m_sort 'ZEIT'.

* Build Event Exit Table
  m_event_exit '&NTE'.                 " Refresh

  ls_layout-zebra = 'X'.
  ls_layout-colwidth_optimize = 'X'.

  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            i_callback_program      = sy-cprog
            i_callback_user_command = 'USER_COMMAND'
            is_layout               = ls_layout
            i_structure_name        = 'UINFO'
            it_sort                 = lt_sort
            it_event_exit           = lt_event_exit
       TABLES
            t_outtab                = gt_user.

ENDFORM.                               " F_DISPLAY_DATA
*---------------------------------------------------------------------*
*       FORM USER_COMMAND                                             *
*---------------------------------------------------------------------*
FORM user_command USING i_ucomm     TYPE syucomm
                        is_selfield TYPE slis_selfield.     "#EC CALLED

  CASE i_ucomm.
    WHEN '&NTE'.
      PERFORM f_read_data.
      is_selfield-refresh = 'X'.
      SET USER-COMMAND '&OPT'.         " Optimize columns width
  ENDCASE.

ENDFORM.                               " USER_COMMAND
*---------------------------------------------------------------------*
*      Form  F_CALL_RFC_WAIT
*---------------------------------------------------------------------*
FORM f_call_rfc_wait.

  DATA lv_mssg(80).                                         "#EC NEEDED

* Wait in a task
  CALL FUNCTION 'RFC_PING_AND_WAIT' STARTING NEW TASK '001'
    PERFORMING f_task_end ON END OF TASK
    EXPORTING
      seconds               = 5        " Refresh time
      busy_waiting          = space
    EXCEPTIONS
      RESOURCE_FAILURE      = 1
      communication_failure = 2  MESSAGE lv_mssg
      system_failure        = 3  MESSAGE lv_mssg
      OTHERS                = 4.

ENDFORM.                               " F_CALL_RFC_WAIT
*---------------------------------------------------------------------*
*      Form  F_TASK_END
*---------------------------------------------------------------------*
FORM f_task_end USING u_taskname.

  DATA lv_mssg(80).                                         "#EC NEEDED

* Receiving task results
  RECEIVE RESULTS FROM FUNCTION 'RFC_PING_AND_WAIT'
    EXCEPTIONS
      RESOURCE_FAILURE      = 1
      communication_failure = 2  MESSAGE lv_mssg
      system_failure        = 3  MESSAGE lv_mssg
      OTHERS                = 4.

  CHECK sy-subrc EQ 0.
  SET USER-COMMAND '&NTE'.             " Refresh

ENDFORM.                               " F_TASK_END

Hope this helps...

Best regards,

raam

[Former Member]

Check out this related thread

Regards,

Santosh

[Former Member]

Hi,

If your displaying ALV report using classes

there is one method to refresh the alv REFRESH_TABLE_DSIPLAY.

check out this code

IF o_grid IS INITIAL.

• In background no container object should be created

IF cl_gui_alv_grid=>offline( ) IS INITIAL. "online

• Create the container

CREATE OBJECT o_custom_container

EXPORTING

container_name = c_container.

IF sy-subrc EQ c_sy0.

• Creating the ALV grid

CREATE OBJECT o_grid

EXPORTING

i_parent = o_custom_container

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

OTHERS = 5.

ENDIF.

ENDIF.

• Creating an instance for the event handler

CREATE OBJECT o_event_handler.

• Register handler methods to handle ALV Grid events

SET HANDLER o_event_handler->handle_hotspot_click FOR o_grid.

• Register handler methods to handle ALV Grid events

SET HANDLER o_event_handler->handle_double_click FOR o_grid.

• Subroutine to prepare layout

PERFORM f_prepare_layout.

• Calling the method o_grid->set_table_for_first_display

• to display the list

*CALL METHOD o_grid->set_table_for_first_display* EXPORTING

i_save = c_save

is_layout = l_layout

CHANGING

it_outtab = i_col_preq

it_fieldcatalog = i_fieldcat

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

IF sy-subrc <> c_sy0.

• No Error Processing required.

ENDIF.

• Raise event TOOLBAR

CALL METHOD o_grid->set_toolbar_interactive.

ELSE.

• Refreshing the ALV display

CALL METHOD o_grid->refresh_table_display

EXCEPTIONS

finished = 1

OTHERS = 2.

IF sy-subrc <> c_sy0.

• No Error Processing required.

ENDIF.

ENDIF.

hope this will help you,

Regards,

Sriram

Edited by: Srirama Murthy Maddirala on May 19, 2008 6:24 AM