Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Execute a RFC function module within the threshold time limit

former_member125661
Contributor
0 Kudos
1,184

We have a requirement where we have to run a bunch of routines inside a RFC FM fetching various KPIs of the system (Basis KPIs) from an external system. But we don't want to burden the system by making performance intensive routines inside this RFC call.

So, the requirement is to call a FM and execute the RFC FM only if the entire execution time(runtime) is below a certain threshold ( < 500 ms).

If the runtime of the FM is going to take > 500 ms, we want to default certain KPIs or issue a system alert..

Can this be done ? Please share some ideas.

-Shareen

1 ACCEPTED SOLUTION

paulcapper
Discoverer
0 Kudos
417

Hi Shareen,

Sounds like you need the main FM to call the second one asynchronously starting a new task. See the help for CALL FUNCTION ... STARTING NEW TASK.

Here's some sample code. Here my timeout was in seconds but you could adapt the WAIT statement to handle a shorter timeout.

FUNCTION ...

  ADD 1 TO gv_task_no.

  lv_timeout = 1.

* Call the maybe slow function.

  CALL FUNCTION 'ZMAYBE_SLOW'

        STARTING NEW TASK gv_task_no

        PERFORMING fm_response ON END OF TASK

        EXCEPTIONS

          communication failure = 1

          system_failure        = 2.

*   Waiting for the fm to complete.

    DO lv_timeout TIMES.

      IF gv_completed = 'X'.

        EXIT.

      ENDIF.

      WAIT UNTIL gv_completed = 'X' UP TO 1 SECONDS.

    ENDDO.

ENDFUNCTION.

*----------------------------------------------------------------------*

FORM fm_response USING taskname TYPE any.

  RECEIVE RESULTS FROM FUNCTION 'ZMAYBE_SLOW'

    IMPORTING

      es_result             = gs_result

    EXCEPTIONS

      communication failure = 1

      system_failure        = 2.

  IF sy-subrc = 1.

    gv_message = 'Sy-subrc 1 - Communication failure'.

  ELSEIF sy-subrc = 2.

    gv_message = 'Sy-subrc 2 - System failure'.

  ENDIF.

  gv_completed = 'X'.


ENDFORM.

Best regards,

Paul

3 REPLIES 3

paul_bakker2
Active Contributor
0 Kudos
417

Hi,

Interesting problem, but I'm not sure what you mean.

"If the runtime of the FM is going to take > 500 ms, we want to default certain KPIs or issue a system alert."

How can you know what the runtime will be, before you execute the RFC?

Please explain further.

cheers

Paul

0 Kudos
417

I know we cannot pre-empt the runtime of a FM before we actually call..

But the idea is..call a FM and this FM shouldn't run for more than 500 ms..If it is going to exceed 500 ms, abandon the FM processing and exit with the message 'Query time exceeded 500 ms'

paulcapper
Discoverer
0 Kudos
418

Hi Shareen,

Sounds like you need the main FM to call the second one asynchronously starting a new task. See the help for CALL FUNCTION ... STARTING NEW TASK.

Here's some sample code. Here my timeout was in seconds but you could adapt the WAIT statement to handle a shorter timeout.

FUNCTION ...

  ADD 1 TO gv_task_no.

  lv_timeout = 1.

* Call the maybe slow function.

  CALL FUNCTION 'ZMAYBE_SLOW'

        STARTING NEW TASK gv_task_no

        PERFORMING fm_response ON END OF TASK

        EXCEPTIONS

          communication failure = 1

          system_failure        = 2.

*   Waiting for the fm to complete.

    DO lv_timeout TIMES.

      IF gv_completed = 'X'.

        EXIT.

      ENDIF.

      WAIT UNTIL gv_completed = 'X' UP TO 1 SECONDS.

    ENDDO.

ENDFUNCTION.

*----------------------------------------------------------------------*

FORM fm_response USING taskname TYPE any.

  RECEIVE RESULTS FROM FUNCTION 'ZMAYBE_SLOW'

    IMPORTING

      es_result             = gs_result

    EXCEPTIONS

      communication failure = 1

      system_failure        = 2.

  IF sy-subrc = 1.

    gv_message = 'Sy-subrc 1 - Communication failure'.

  ELSEIF sy-subrc = 2.

    gv_message = 'Sy-subrc 2 - System failure'.

  ENDIF.

  gv_completed = 'X'.


ENDFORM.

Best regards,

Paul