[SAP ABAP_TIP] 데이터 로딩 시 아래 로딩 메시지 출력되는 구문

 

  PERFORM PROGRESS_INDICATOR USING 20 100 'GET Base Data...'.

FORM PROGRESS_INDICATOR USING PV_CUR PV_TOT PV_MESSAGE.

  DATA : LV_PCT(3),
         LV_VAL(3) TYPE N.

  LV_VAL = PV_CUR MOD PV_TOT.

  IF LV_VAL+2(1) <> '0'.
    EXIT.
  ENDIF.

  LV_PCT = LV_VAL.

  __CONV_EXIT_OUTPUT 'ALPHA' LV_PCT LV_PCT.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = LV_PCT
      TEXT       = PV_MESSAGE.

ENDFORM.

   data:     GV_FNAME        TYPE RS38L_FNAM.    "Function Name
   
   
   DEFINE __CONV_EXIT_OUTPUT.
  GV_FNAME = |{ 'CONVERSION_EXIT_' }{ &1 }{ '_OUTPUT' }|.
  CALL FUNCTION GV_FNAME
    EXPORTING
      INPUT  = &2
    IMPORTING
      OUTPUT = &3
    EXCEPTIONS
      OTHERS = 1.
END-OF-DEFINITION.