Advertisement
Guest User

Untitled

a guest
Mar 13th, 2018
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.97 KB | None | 0 0
  1.  LOOP AT lt_migration INTO ls_zcibiltable.
  2.  
  3.         WHILE lv_works <> lv_finished_task_count.
  4.           lv_task = lv_finished_task_count.
  5.  
  6.           APPEND ls_zcibiltable TO lt_migr_part.
  7.  
  8.           IF lv_iter = p_num2 OR lv_iter_2 = p_mignum.
  9.             lv_dojob = 1.
  10.             WHILE lv_dojob <> 0.
  11.  
  12.               IF lv_free_wp <> 0.
  13.                 lv_dojob = 0.
  14.                 SUBTRACT 1 FROM lv_free_wp.
  15.                 CALL FUNCTION 'Z_RIH_PARALLEL3'
  16.                   STARTING NEW TASK lv_task
  17.                   DESTINATION IN GROUP 'parallel_generators'
  18.                   PERFORMING close_task ON END OF TASK
  19.                   TABLES
  20.                     it_tab = lt_migr_part.
  21.  
  22.               CLEAR lt_migr_part.
  23.               lv_iter = 0.
  24.               ENDIF.
  25.  
  26.  
  27.             ENDWHILE.
  28.             "EXIT.
  29.           ENDIF.
  30.  
  31.           ADD 1 TO lv_iter.
  32.           ADD 1 TO lv_iter_2.
  33.  
  34.           WAIT UP TO 1 SECONDS.
  35.         ENDWHILE.
  36.       ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement