ABAP Code:Show status ของการอ่านข้อมูล ใน Internal Table บน Status Bar เป็นเปอร์เซนต์

ABAP Code:Show status ของการอ่านข้อมูล ใน Internal Table บน Status Bar เป็นเปอร์เซนต์

เอาไว้ใช้สำหรับ Show status บน Status Bar เพื่อดูความเคลื่อนไหวหรือระยะเวลา ในรูปแบบเปอร์เซนต์ ในกรณีที่โปรแกรมมีการทำงานที่ช้าหรือข้อมูลที่ค้นหามีจำนวนมาก

Remark: Using the function module SAPGUI_PROGRESS_INDICATOR

REPORT zshowprogress.

DATA: l_records TYPE i,
g_progress TYPE i.
DATA: l_progress_text(150) TYPE c.

DEFINE mc_progress.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting
percentage = &1
text       = &2.
END-OF-DEFINITION.

DATA : BEGIN OF t_bseg OCCURS 0.
INCLUDE STRUCTURE bseg.
DATA : END OF t_bseg.

START-OF-SELECTION.
CLEAR: g_progress.
mc_progress 0 text-p01.

SELECT *
INTO CORRESPONDING FIELDS OF TABLE t_bseg
FROM bseg.

l_records = LINES( t_bseg ).

LOOP AT t_bseg.
CLEAR l_progress_text.
g_progress = 100 * sy-tabix / l_records.
WRITE g_progress TO l_progress_text.
CONDENSE l_progress_text.
CONCATENATE 'Reading data' l_progress_text '%' text-p02
INTO l_progress_text SEPARATED BY space.

mc_progress g_progress l_progress_text.

WRITE: / t_bseg-belnr.

ENDLOOP.