안녕하세요..

많은 분들이 알고 계실법한 팁 하나 올려봅니다.

프로그램 실행해 놓고 가만히 있자니 심심도 하고 그래서

진행상황을 나타내는 소스를 만져봤습니다..^^

 Data :  

cnt  Type i .

 

DATA: v_string TYPE string.

 

      cnt = 1000.

      DO cnt TIMES.
        v_string = sy-index.
        CONCATENATE v_string ' records selected ' INTO v_string
        SEPARATED BY space.
      CALL FUNCTION 'ABR_SHOW_PROGRESS'
        EXPORTING
          pi_act_value = sy-index
          pi_max_value = 1  "증가값
          pc_text      = v_string.
      ENDDO.

유용하게 사용하세요..

고맙습니다.