ABAP-定时-异步

*&---------------------------------------------------------------------*
*& Report  ZRICO_TEST18
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report zrico_test18.

data: g_init_once,
      ok_code(),
      g_ref_from_timer.

types: begin of t_ekko,
         ebeln type ekpo-ebeln,
         ebelp type ekpo-ebelp,
         statu type ekpo-statu,
         aedat type ekpo-aedat,
         matnr type ekpo-matnr,
         menge type ekpo-menge,
         meins type ekpo-meins,
         netpr type ekpo-netpr,
         peinh type ekpo-peinh,
       end of t_ekko.

data: it_ekko type standard table of t_ekko initial size ,
      wa_ekko type t_ekko.

if g_init_once <> 'X'.
  g_init_once = 'X'.
  call function 'Z_ENQUE_SLEEP'
    starting new task 'WAIT'
    performing when_finished on end of task.

endif.

write:/ 'wait for 10 sec....'.

start-of-selection.

at user-command.
  case ok_code.
    when 'FCT_R'.
      select ebeln ebelp statu aedat matnr menge meins netpr peinh
       up to  rows
        from ekpo
        into table it_ekko.
      write:/ sy-uzeit. "Time
      loop at it_ekko into wa_ekko.
        write:/ wa_ekko-ebeln, wa_ekko-ebelp.
      endloop.
      sy-lsind = .
      if g_ref_from_timer = 'X'.

        call function 'Z_ENQUE_SLEEP'
          starting new task 'INFO'
          performing when_finished on end of task.

        g_ref_from_timer = ''.
      endif.
  endcase.

*---------------------------------------------------------------------*
*       FORM WHEN_FINISHED                                            *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  TASKNAME                                                      *
*---------------------------------------------------------------------*
form when_finished using taskname.
  data:lv_txt type string.

  receive results from function 'Z_ENQUE_SLEEP'
  importing
    ev_txt = lv_txt .

  g_ref_from_timer = 'X'.

* Trigger an event to run the at user-command
  set user-command 'FCT_R'.
  ok_code = 'FCT_R'.
  sy-ucomm = 'FCT_R'.

endform.                    " WHEN_FINISHED