My First BAPI - Format a string use assign character.

  
FUNCTION ZZW_GET_SETTING_FORMAT.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*"     REFERENCE(I_FILE) TYPE C
*"     REFERENCE(I_CHARACTER) TYPE C
*"     REFERENCE(I_LENGTH) TYPE I
*" EXPORTING
*"     REFERENCE(E_FILE) TYPE C
*"----------------------------------------------------------------------
 
DATA: LINT_INDEX TYPE I.
      E_FILE = I_FILE.      "Set output file use intput file to format
    LINT_INDEX = I_LENGTH - STRLEN( I_FILE ).
    IF STRLEN( I_FILE ) < I_LENGTH.
        DO LINT_INDEX TIMES.
            CONCATENATE I_CHARACTER E_FILE INTO E_FILE.
        ENDDO.
    ENDIF.
 
 
ENDFUNCTION.
效果图:
output the result:

posted on 2007-01-09 19:25  封起De日子  阅读(63)  评论(0编辑  收藏  举报

导航