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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 551 | REPORT Z12_18. | sapjoy | 2012.07.31 | 986 |
| 550 | REPORT Z12_17. | sapjoy | 2012.07.31 | 1002 |
| 549 | REPORT Z12_16. | sapjoy | 2012.07.31 | 1017 |
| 548 | REPORT z12_15 | sapjoy | 2012.07.31 | 1034 |
| 547 | REPORT z12_14 | sapjoy | 2012.07.31 | 1089 |
| 546 | REPORT z12_13.. | sapjoy | 2012.07.31 | 1027 |
| 545 | REPORT z12_12. | sapjoy | 2012.07.31 | 950 |
| » | REPORT z12_11. | sapjoy | 2012.07.31 | 1037 |
| 543 | REPORT z12_10. | sapjoy | 2012.07.31 | 945 |
| 542 | REPORT z12_09. | sapjoy | 2012.07.31 | 979 |
| 541 | REPORT z12_08. | sapjoy | 2012.07.31 | 930 |
| 540 | REPORT z12_07. | sapjoy | 2012.07.31 | 1023 |
| 539 | REPORT z12_06. | sapjoy | 2012.07.31 | 1338 |
| 538 | REPORT z12_05. | sapjoy | 2012.07.31 | 1178 |
| 537 | REPORT z12_04. | sapjoy | 2012.07.31 | 996 |
| 536 | REPORT Z12_03 | sapjoy | 2012.07.31 | 835 |
| 535 | REPORT Z12_02 | sapjoy | 2012.07.31 | 966 |
| 534 | REPORT z12_01. | sapjoy | 2012.07.31 | 1093 |
| 533 | REPORT Z11_09. | sapjoy | 2012.07.31 | 794 |
| 532 | REPORT Z11_08. | sapjoy | 2012.07.31 | 823 |
