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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 549 | REPORT Z12_16. | sapjoy | 2012.07.30 | 996 |
| 548 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
| 547 | REPORT z12_14 | sapjoy | 2012.07.30 | 1068 |
| 546 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
| 545 | REPORT z12_12. | sapjoy | 2012.07.30 | 932 |
| » | REPORT z12_11. | sapjoy | 2012.07.30 | 1011 |
| 543 | REPORT z12_10. | sapjoy | 2012.07.30 | 926 |
| 542 | REPORT z12_09. | sapjoy | 2012.07.30 | 960 |
| 541 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
| 540 | REPORT z12_07. | sapjoy | 2012.07.30 | 993 |
| 539 | REPORT z12_06. | sapjoy | 2012.07.30 | 1292 |
| 538 | REPORT z12_05. | sapjoy | 2012.07.30 | 1155 |
| 537 | REPORT z12_04. | sapjoy | 2012.07.30 | 974 |
| 536 | REPORT Z12_03 | sapjoy | 2012.07.30 | 817 |
| 535 | REPORT Z12_02 | sapjoy | 2012.07.30 | 952 |
| 534 | REPORT z12_01. | sapjoy | 2012.07.30 | 1070 |
| 533 | REPORT Z11_09. | sapjoy | 2012.07.30 | 780 |
| 532 | REPORT Z11_08. | sapjoy | 2012.07.30 | 805 |
| 531 | REPORT z11_07. | sapjoy | 2012.07.30 | 840 |
| 530 | REPORT z11_06. | sapjoy | 2012.07.30 | 892 |
