Check Process Delay

FUNCTION zbar_check_process.
*”———————————————————————-
*”*”Local Interface:
*”  IMPORTING
*”     VALUE(TCOD) TYPE  VBHDR-VBTCODE
*”     REFERENCE(SECS) TYPE  TANUM DEFAULT 3
*”———————————————————————-
  TABLES:vbhdr.

  LOOP.
    SELECT SINGLE * FROM vbhdr WHERE vbmandt = sy-mandt
                                 AND vbusr = sy-uname
                                 AND vbtcode = tcod.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    WAIT UP TO 1 SECONDS.

  ENDLOOP.
  WAIT UP TO secs SECONDS.

ENDFUNCTION.



You must be logged in to post a comment.

This entry was posted on 09 Nisan 2014 and is filed under Abap Module. Written by: . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.