Skip to Content
author's profile photo Former Member
Former Member

FM RFC_PING_AND_WAIT

can anybody give me an example or code sample how use the Fm RFC_PING_AND_WAIT..

Points guranteed.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

6 Answers

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Oct 18, 2005 at 09:51 AM

    hi again .....

    anid the sample code is ......

    REPORT ztst MESSAGE-ID zz.

    *

    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

                                • END OF PROGRAM

                                Add a comment
                                10|10000 characters needed characters exceeded

                              • author's profile photo Former Member
                                Former Member
                                Posted on Oct 18, 2005 at 09:49 AM

                                Hi anid,

                                check this may be it can help you....

                                http://www.sapgenie.com/abap/code/abap24.htm

                                regards,

                                venu.

                                Add a comment
                                10|10000 characters needed characters exceeded

                              • Posted on Oct 18, 2005 at 09:56 AM

                                Hi,

                                have a look to this test program:

                                http://www.geocities.com/mpioud/Z_ALV_AUTO_REFRESH.html

                                Andreas

                                Add a comment
                                10|10000 characters needed characters exceeded

                              • author's profile photo Former Member
                                Former Member
                                Posted on Oct 18, 2005 at 09:59 AM

                                HI,

                                one more simple code is .....

                                report ZKISAN_PING_REFRESH .

                                data: l_data type i.

                                data: l_data1 type i.

                                data: l_data2 type i.

                                data: l_data3 type i.

                                l_data = 1.

                                get time.

                                write:/1 'Time', 10 'Ping No', 36 'Loop Time in Micro Sec' ,

                                60 'should be less than 3000 Micro Sec'.

                                write:/1 sy-uzeit, 10 l_data, 30 l_data3.

                                call function 'RFC_PING_AND_WAIT'

                                starting new task 'IF'

                                performing start_refresh on end of task

                                exporting

                                seconds = 1

                                BUSY_WAITING = space.

                                at user-command.

                                if sy-ucomm = 'REFR'.

                                l_data = l_data + 1.

                                sy-lsind = 0.

                                write:/1 'Time', 10 'Ping No', 36 'Loop Time in Micro Sec' ,

                                60 'should be less than 3000 Micro Sec'.

                                write:/1 sy-uzeit, 10 l_data, 30 l_data3.

                                get run time field l_data1.

                                call function 'RFC_PING_AND_WAIT'

                                starting new task 'IF'

                                performing start_refresh on end of task

                                exporting

                                seconds = 1

                                BUSY_WAITING = space.

                                endif.

                                *----


                                • Program Subroutines

                                *----


                                form start_refresh using taskname.

                                get run time field l_data2.

                                l_data3 = l_data2 - l_data1.

                                • The SET USER-COMMAND initiates the communication back to the program

                                set user-command 'REFR'.

                                endform.

                                Add a comment
                                10|10000 characters needed characters exceeded

                              • author's profile photo Former Member
                                Former Member
                                Posted on Oct 18, 2005 at 09:50 AM

                                hi anid,

                                this is the function code and show how we used it ......

                                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.

                                Add a comment
                                10|10000 characters needed characters exceeded

                              • author's profile photo Former Member
                                Former Member
                                Posted on Oct 18, 2005 at 09:56 AM
                                Add a comment
                                10|10000 characters needed characters exceeded

                              Before answering

                              You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
                              You must be Logged in to submit an answer.

                              Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.