ABAP-定时-异步详解编程语言

*&---------------------------------------------------------------------* 
*& Report  ZRICO_TEST18 
*& 
*&---------------------------------------------------------------------* 
*& 
*& 
*&---------------------------------------------------------------------* 
 
report zrico_test18. 
 
data: g_init_once, 
      ok_code(20), 
      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 0, 
      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 10 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 = 0. 
      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