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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z15_036 | sapjoy | 2007.02.05 | 2214 |
89 | REPORT Z15_035 | sapjoy | 2007.02.05 | 2162 |
88 | REPORT Z15_034 | sapjoy | 2007.02.05 | 2079 |
87 | REPORT Z15_033 | sapjoy | 2007.02.05 | 2987 |
86 | REPORT z15_032 | sapjoy | 2007.02.05 | 2578 |
85 | REPORT z15_031 | sapjoy | 2007.02.05 | 2437 |
84 | REPORT Z15_028 | sapjoy | 2007.02.01 | 2509 |
83 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
82 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
81 | REPORT Z15_005 | sapjoy | 2007.01.31 | 2503 |
80 | REPORT z15_024 | sapjoy | 2007.01.30 | 2239 |
79 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
78 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
77 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
76 | REPORT Z15_020 | sapjoy | 2007.01.29 | 2524 |
75 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
» | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
73 | REPORT z15_014 | sapjoy | 2007.01.26 | 2625 |
72 | REPORT z_15_012 | sapjoy | 2007.01.26 | 2176 |
71 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |