TYPES: BEGIN OF T_MARA,
MATNR LIKE MARA-MATNR,
END OF T_MARA.
DATA: IT_MARA TYPE STANDARD TABLE OF T_MARA INITIAL SIZE 0,
WA_MARA TYPE T_MARA.
DATA: MARA_LINES TYPE I,
GD_PERCENT TYPE I.
************************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.
SELECT MATNR
INTO TABLE IT_MARA
FROM MARA.
CHECK SY-SUBRC EQ 0.
MARA_LINES = SY-DBCNT.
CLEAR: GD_PERCENT.
LOOP AT IT_MARA INTO WA_MARA.
PERFORM PROGRESS_BAR USING 'Retrieving data...'(001)
SY-TABIX
MARA_LINES.
* WAIT UP TO 2 SECONDS.
ENDLOOP.
WRITE: /20 'Report is "Complete" OK'.
*&---------------------------------------------------------------------*
*& Form PROGRESS_BAR
*&---------------------------------------------------------------------*
FORM PROGRESS_BAR USING P_VALUE
P_TABIX
P_NLINES.
DATA: W_TEXT(40),
W_PERCENTAGE TYPE P,
W_PERCENT_CHAR(3).
W_PERCENTAGE = ( P_TABIX / P_NLINES ) * 100.
W_PERCENT_CHAR = W_PERCENTAGE.
SHIFT W_PERCENT_CHAR LEFT DELETING LEADING ' '.
CONCATENATE P_VALUE W_PERCENT_CHAR '% Complete'(002) INTO W_TEXT.
* This check needs to be in otherwise when looping around big tables
* SAP will re-display indicator too many times causing report to run
* very slow. (No need to re-display same percentage anyway)
IF W_PERCENTAGE GT GD_PERCENT OR P_TABIX EQ 1.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = W_PERCENTAGE
TEXT = W_TEXT.
GD_PERCENT = W_PERCENTAGE.
ENDIF.
ENDFORM. " PROGRESS_BAR
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
107 | 색상 정리 파일. [15] | 공백 | 2012.03.08 | 7973 |
106 | Internal Table 알아보기 [15] | 양키 | 2010.12.20 | 8000 |
105 | 요약파일1 [7] | 밤의화신 | 2013.09.11 | 8040 |
104 | Dynamic Internal Table [5] | sapjoy | 2007.02.11 | 8092 |
103 | BAPI_PO_CHANGE [1] | 노름마치 | 2009.09.03 | 8145 |
102 | <img src=b.gif>계속 남아있는 Debugger창 없에기(New Debugger)[추천:e-abap][추천:보나][추천:버미!] [14] | 해처리 | 2011.01.07 | 8167 |
101 | Number Range Object 변경/삭제 [4] | MadMax | 2010.12.07 | 8171 |
100 | Breakpoints 알아보기 [4] | 양키 | 2010.12.14 | 8175 |
99 | 전기기간 및 회계기간 오픈(MMPV, ob52) [4] | sapjoy | 2014.02.20 | 8222 |
98 | <img src=d.gif>테이블 Lock & UnLock function[추천:e-abap] [1] | 양키 | 2011.01.18 | 8269 |
97 | Area 메뉴 일괄 다운로드 하기 [5] | 고담 | 2011.06.15 | 8276 |
96 | ABAP에서 웹브라우져 호출 | 홍성현 | 2007.08.09 | 8328 |
95 | SELECTION-SCREEN [4] | sapjoy | 2007.01.23 | 8341 |
94 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8361 |
93 | 바피사용이유 [18] | 꿀단지 | 2011.10.11 | 8380 |
92 | SCN에서 인기있는 Tutorial강좌들 입니다. [1] | 양키 | 2013.08.12 | 8420 |
91 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8491 |
90 | SAP Factory Calendar | sapjoy | 2006.12.12 | 8493 |
89 | ABAP 교육 [32] | 밤의화신 | 2013.09.11 | 8495 |
88 | 시분초를 가져오는 구문 [8] | 양키 | 2011.05.26 | 8558 |
좋은 정보 감사합니다~