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 Z18_002 | sapjoy | 2007.03.05 | 3082 |
549 | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
548 | REPORT z18_004 [1] | sapjoy | 2007.03.05 | 2348 |
547 | REPORT z18_005 | sapjoy | 2007.03.06 | 2157 |
546 | REPORT z18_006 | sapjoy | 2007.03.06 | 2423 |
545 | REPORT z18_007 | sapjoy | 2007.03.07 | 2206 |
544 | REPORT z18_008 | sapjoy | 2007.03.07 | 2359 |
543 | REPORT z18_011 [1] | sapjoy | 2007.03.07 | 2326 |
542 | REPORT Z15_045 | sapjoy | 2007.03.08 | 2388 |
541 | REPORT z18_012 [1] | sapjoy | 2007.03.09 | 2404 |
540 | REPORT z18_013 [1] | sapjoy | 2007.03.09 | 2585 |
539 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
538 | REPORT z18_017 | sapjoy | 2007.03.11 | 2672 |
537 | REPORT z18_018 [4] | sapjoy | 2007.03.11 | 2462 |
536 | REPORT z18_019 | sapjoy | 2007.03.12 | 2473 |
535 | REPORT z18_035 | sapjoy | 2007.03.13 | 2450 |
534 | REPORT z18_036 | sapjoy | 2007.03.13 | 2631 |
533 | REPORT z18_022 | sapjoy | 2007.03.16 | 2464 |
532 | REPORT z18_025 | sapjoy | 2007.03.16 | 2598 |
531 | REPORT z19_001 | sapjoy | 2007.03.22 | 2551 |