REPORT z15_016 .
DATA: g_total TYPE i,
g_cnt TYPE i,
g_index type i.
DATA : gt_sflight TYPE TABLE OF sflight WITH HEADER LINE.
START-OF-SELECTION.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_sflight
FROM sflight.
DESCRIBE TABLE gt_sflight LINES g_total.
LOOP AT gt_sflight.
g_cnt = g_cnt + 1.
PERFORM progress_indicator
USING g_cnt g_total ' Progressing... '.
ENDLOOP.
WRITE 'SUCCESS'.
*&--------------------------------------------------------------------*
*& Form progress_indicator
*&--------------------------------------------------------------------*
FORM progress_indicator USING value(p_cur)
value(p_total)
value(p_text).
DATA : text(50) TYPE c,
idx1(3) TYPE n.
IF p_cur > p_total.
idx1 = 100.
ELSE.
idx1 = ( p_cur / p_total ) * 100.
ENDIF.
CHECK g_index <> idx1 OR g_index IS INITIAL.
g_index = idx1.
CONCATENATE idx1 ' % : ' p_text INTO text.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = idx1
text = text
EXCEPTIONS
OTHERS = 0.
ENDFORM. " progress_indicator
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
450 | REPORT Z15_006 [2] | sapjoy | 2007.01.23 | 2408 |
449 | REPORT Z05_003 | sapjoy | 2007.05.21 | 2406 |
448 | REPORT z18_012 [1] | sapjoy | 2007.03.09 | 2404 |
447 | REPORT ZBADI_003. | sapjoy | 2009.01.14 | 2403 |
446 | zunicode_001 | sapjoy | 2008.11.21 | 2397 |
445 | MODULE create_dropdown_box | sapjoy | 2007.12.12 | 2397 |
444 | Z07_001 | sapjoy | 2006.12.06 | 2396 |
» | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
442 | REPORT ZSMARTFORMS_07. | sapjoy | 2009.01.22 | 2389 |
441 | REPORT Z03_013 [4] | sapjoy | 2007.05.14 | 2388 |
440 | REPORT Z15_045 | sapjoy | 2007.03.08 | 2388 |
439 | REPORT Z17_021 . | sapjoy | 2007.02.21 | 2386 |
438 | REPORT Z15_004 | sapjoy | 2007.01.23 | 2385 |
437 | report zsalv_020 . | sapjoy | 2010.08.20 | 2381 |
436 | REPORT Z07_027 [3] | sapjoy | 2006.12.08 | 2376 |
435 | REPORT Z02_005 . | sapjoy | 2006.12.02 | 2375 |
434 | REPORT Z04_001 | sapjoy | 2007.05.16 | 2375 |
433 | MODULE f4_drum_s101 INPUT. 2 | sapjoy | 2006.12.26 | 2375 |
432 | REPORT Z13_015 [2] | sapjoy | 2007.09.13 | 2373 |
431 | module f4_CARRID input | sapjoy | 2007.07.21 | 2369 |