Hi................
EPORT ZBAPIDEMO1.
data : begin of I_LFA1 OCCURS 0,
ACCOUNTNO LIKE LFA1-LIFNR ,
COUNTRY LIKE LFA1-LAND1 ,
NAME LIKE LFA1-NAME1 ,
CITY LIKE LFA1-ORT01,
END OF I_LFA1 .
DATA : VENDORNO LIKE BAPIVENDOR_01 OCCURS 0 WITH HEADER LINE ,
I_LIFNR LIKE BAPIVENDOR_04 OCCURS 0 WITH HEADER LINE ,
I_RETURN LIKE BAPIRET1 OCCURS 0 WITH HEADER LINE ,
L_MSG(128) TYPE C.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = 'C:/VVV.TXT'
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = '#'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
IMPORTING
FILELENGTH =
HEADER =
TABLES
DATA_TAB = I_LFA1[]
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT I_LFA1 .
MOVE-CORRESPONDING I_LFA1 TO VENDORNO.
MOVE-CORRESPONDING I_LFA1 TO I_LIFNR.
APPEND I_LIFNR .
*CLEAR I_LIFNR .
CALL FUNCTION 'BAPI_VENDOR_GETDETAIL'
EXPORTING
VENDORNO = vendorno
COMPANYCODE =
IMPORTING
GENERALDETAIL = I_LIFNR
COMPANYDETAIL =
RETURN = I_RETURN.
TABLES
BANKDETAIL =
APPEND I_RETURN .
CLEAR I_RETURN.
.
ENDLOOP.
LOOP AT I_RETURN .
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = I_RETURN-ID
LANG = 'EN'
NO = I_RETURN-NUMBER
V1 = I_RETURN-MESSAGE_V1
V2 = I_RETURN-MESSAGE_V2
V3 = I_RETURN-MESSAGE_V3
V4 = I_RETURN-MESSAGE_V4
IMPORTING
MSG = L_MSG
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
WRITE:/ L_MSG.
endloop.
I am getting runtime error? What is the error?