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 z05_22. | sapjoy | 2012.07.30 | 874 |
49 | REPORT z04_18. | sapjoy | 2012.07.30 | 873 |
48 | REPORT z14_03. | sapjoy | 2012.08.01 | 872 |
47 | REPORT Z12_26. | sapjoy | 2012.07.30 | 872 |
46 | REPORT z05_35. [1] | sapjoy | 2012.07.30 | 871 |
45 | REPORT z05_25. [1] | sapjoy | 2012.07.30 | 870 |
44 | REPORT z05_27. | sapjoy | 2012.07.30 | 867 |
43 | REPORT z05_21. | sapjoy | 2012.07.30 | 865 |
42 | REPORT z05_12. | sapjoy | 2012.07.30 | 863 |
41 | REPORT z17_06 . | sapjoy | 2012.08.01 | 859 |
40 | REPORT z14_05. | sapjoy | 2012.08.01 | 858 |
39 | REPORT z14_12. | sapjoy | 2012.08.01 | 853 |
38 | REPORT Z05_33. | sapjoy | 2012.07.30 | 853 |
37 | REPORT z10_13. | sapjoy | 2012.07.30 | 851 |
36 | REPORT z05_30. | sapjoy | 2012.07.30 | 850 |
35 | REPORT z05_10. | sapjoy | 2012.07.30 | 849 |
34 | REPORT z14_10. | sapjoy | 2012.08.01 | 848 |
33 | REPORT z10_05. | sapjoy | 2012.07.30 | 846 |
32 | REPORT Z14_02. | sapjoy | 2012.08.01 | 843 |
31 | REPORT z11_07. | sapjoy | 2012.07.30 | 840 |