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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
550 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
» | REPORT z12_11. | sapjoy | 2012.07.30 | 1012 |
548 | REPORT z14_08. [2] | sapjoy | 2012.08.01 | 1012 |
547 | REPORT z16_06. | sapjoy | 2012.08.01 | 1012 |
546 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
545 | REPORT z14_14. | sapjoy | 2012.08.01 | 1014 |
544 | REPORT z15_18. | sapjoy | 2012.08.01 | 1016 |
543 | REPORT z14_15. | sapjoy | 2012.08.01 | 1017 |
542 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1017 |
541 | REPORT z15_28. | sapjoy | 2012.08.01 | 1020 |
540 | REPORT z05_20. | sapjoy | 2012.07.30 | 1021 |
539 | REPORT z12_23. | sapjoy | 2012.07.30 | 1021 |
538 | PROGRAM z13_04. | sapjoy | 2012.08.01 | 1023 |
537 | REPORT z14_17. | sapjoy | 2012.08.01 | 1024 |
536 | REPORT z10_07. | sapjoy | 2012.07.30 | 1030 |
535 | REPORT z12_28. | sapjoy | 2012.07.30 | 1032 |
534 | REPORT z15_05. | sapjoy | 2012.08.01 | 1046 |
533 | REPORT z04_16. | sapjoy | 2012.07.30 | 1047 |
532 | REPORT z07_04. [1] | sapjoy | 2012.07.30 | 1058 |
531 | REPORT z07_01. | sapjoy | 2012.07.30 | 1059 |