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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
50 | REPORT Z11_010 | sapjoy | 2006.12.22 | 2358 |
49 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2496 |
48 | REPORT Z11_005 | sapjoy | 2006.12.22 | 2273 |
47 | REPORT z11_004 . | sapjoy | 2006.12.22 | 2465 |
46 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2977 |
45 | PUT_SPFLI PUT_SFLIGHT PUT_SBOOK | sapjoy | 2006.12.19 | 2614 |
44 | REPORT Z09_010 | sapjoy | 2006.12.19 | 2523 |
43 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
42 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
41 | REPORT Z09_005 | sapjoy | 2006.12.18 | 2514 |
40 | REPORT z09_002 | sapjoy | 2006.12.15 | 2602 |
39 | REPORT Z07_033 | sapjoy | 2006.12.08 | 2317 |
38 | REPORT Z07_031 [2] | sapjoy | 2006.12.08 | 2309 |
37 | REPORT Z07_030 [4] | sapjoy | 2006.12.08 | 2438 |
36 | REPORT Z07_027 [3] | sapjoy | 2006.12.08 | 2376 |
35 | REPORT Z07_026 [3] | sapjoy | 2006.12.08 | 2632 |
34 | REPORT Z07_023 | sapjoy | 2006.12.08 | 2255 |
33 | REPORT Z07_022 | sapjoy | 2006.12.08 | 2070 |
32 | REPORT Z07_024 | sapjoy | 2006.12.08 | 2472 |
31 | REPORT Z07_021 [2] | sapjoy | 2006.12.08 | 2453 |