ALV添加执行进度功能

DATA:BEGIN OF gt_result OCCURS 0,
    sel(1),
    matnr         TYPE mara-matnr,
    zz_edi_grp    TYPE mara-zz_edi_grp,
    werks         TYPE mseg-werks,
    eknam         TYPE eknam,
    maktx         TYPE maktx,
    num           TYPE sy-tabix,
    row           TYPE sy-tabix,
    icon          TYPE icon-id,
    mess          TYPE string,
    flag(1),
  END OF gt_result.
DATA:lt_result LIKE STANDARD TABLE OF gt_result WITH HEADER LINE.
DATA: l_perc      TYPE int4,
      l_perc_cnt  TYPE int4,
      l_perc_i    TYPE int4,
      l_perc_stxt TYPE string,
      l_sperc(3)  TYPE c.
  READ TABLE gt_result WITH KEY sel = 'X'.
  IF sy-subrc <> 0.
    MESSAGE 'Please select at leaset one line.' TYPE 'E' .
  ENDIF.

  lt_result[] = gt_result[].
  DELETE lt_result[] WHERE sel  <> 'X'.

  l_perc = 0.
  l_perc_i = 0.
  l_perc_cnt = LINES( lt_result ).  "DESCRIBE TABLE itab LINES n "

  LOOP AT  lt_result.
    l_perc_i = l_perc_i + 1.
    l_perc_stxt = ''.
    l_perc = l_perc_i * 100 / l_perc_cnt.
    l_sperc = l_perc.
    CONCATENATE 'Processing: '  l_sperc '% …… ' lt_result-matnr '@ plant:' lt_result-werks
		INTO l_perc_stxt.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = l_perc
        text       = l_perc_stxt.
     ........
  ENDLOOPG.