REPORT z12_11.
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 USING value(p_cur)
value(p_total)
value(p_text).
DATA : lv_text(50) TYPE c,
lv_idx(3) TYPE n.
lv_idx = ( p_cur / p_total ) * 100.
CONCATENATE lv_idx ' % : ' p_text INTO lv_text.
CALL FUNCTION
'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_idx
text = lv_text
EXCEPTIONS
OTHERS = 0.
ENDFORM. " progress_indicator
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 USING value(p_cur)
value(p_total)
value(p_text).
DATA : lv_text(50) TYPE c,
lv_idx(3) TYPE n.
lv_idx = ( p_cur / p_total ) * 100.
CONCATENATE lv_idx ' % : ' p_text INTO lv_text.
CALL FUNCTION
'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_idx
text = lv_text
EXCEPTIONS
OTHERS = 0.
ENDFORM. " progress_indicator
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 130 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
| 129 | REPORT z12_09. | sapjoy | 2012.07.30 | 960 |
| 128 | REPORT z12_10. | sapjoy | 2012.07.30 | 927 |
| » | REPORT z12_11. | sapjoy | 2012.07.30 | 1012 |
| 126 | REPORT z12_12. | sapjoy | 2012.07.30 | 932 |
| 125 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
| 124 | REPORT z12_14 | sapjoy | 2012.07.30 | 1068 |
| 123 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
| 122 | REPORT Z12_16. | sapjoy | 2012.07.30 | 998 |
| 121 | REPORT Z12_17. | sapjoy | 2012.07.30 | 981 |
| 120 | REPORT Z12_18. | sapjoy | 2012.07.30 | 967 |
| 119 | REPORT Z12_19 | sapjoy | 2012.07.30 | 931 |
| 118 | REPORT Z12_20. | sapjoy | 2012.07.30 | 926 |
| 117 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
| 116 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1226 |
| 115 | REPORT z12_23. | sapjoy | 2012.07.30 | 1021 |
| 114 | REPORT z12_24. | sapjoy | 2012.07.30 | 1153 |
| 113 | REPORT z12_25. | sapjoy | 2012.07.30 | 999 |
| 112 | REPORT Z12_26. | sapjoy | 2012.07.30 | 872 |
| 111 | REPORT z12_27. | sapjoy | 2012.07.30 | 1208 |
