程序延迟执行方法

REPORT  ZEXAMPLE.
PARAMETERS: P1 TYPE I .

START-OF-SELECTION.
WRITE:   'Start sleep' , P1.
CALL FUNCTION 'ENQUE_SLEEP'
  EXPORTING
    seconds              =  P1
* EXCEPTIONS
*   SYSTEM_FAILURE       = 1
*   OTHERS               = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

WRITE:  /  'Wake up' .

 

*当然也可以使用WAIT UP TO P1 SECONDS.