REPORT z15_016 .
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
*&--------------------------------------------------------------------*
FORM progress_indicator USING value(p_cur)
value(p_total)
value(p_text).
DATA : text(50) TYPE c,
idx1(3) TYPE n.
IF p_cur > p_total.
idx1 = 100.
ELSE.
idx1 = ( p_cur / p_total ) * 100.
ENDIF.
CHECK g_index <> idx1 OR g_index IS INITIAL.
g_index = idx1.
CONCATENATE idx1 ' % : ' p_text INTO text.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = idx1
text = text
EXCEPTIONS
OTHERS = 0.
ENDFORM. " progress_indicator
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
610 | REPORT Z14_005 | sapjoy | 2007.01.22 | 2268 |
609 | REPORT z14_006 | sapjoy | 2007.01.22 | 2219 |
608 | REPORT z14_007 | sapjoy | 2007.01.22 | 2147 |
607 | REPORT z14_010 | sapjoy | 2007.01.22 | 2261 |
606 | REPORT Z14_011 | sapjoy | 2007.01.22 | 2580 |
605 | REPORT Z14_012 | sapjoy | 2007.01.22 | 2203 |
604 | REPORT Z15_004 | sapjoy | 2007.01.23 | 2385 |
603 | REPORT Z15_006 [2] | sapjoy | 2007.01.23 | 2408 |
602 | REPORT Z15_007 | eabap | 2007.01.23 | 2678 |
601 | REPORT Z15_003 | sapjoy | 2007.01.25 | 2198 |
600 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |
599 | REPORT z_15_012 | sapjoy | 2007.01.26 | 2176 |
598 | REPORT z15_014 | sapjoy | 2007.01.26 | 2625 |
» | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
596 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
595 | REPORT Z15_020 | sapjoy | 2007.01.29 | 2524 |
594 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
593 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
592 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
591 | REPORT z15_024 | sapjoy | 2007.01.30 | 2239 |