Dear gurus
My requirement is to Upload excel sheet in my Report.
I have used FM's as
KD_GET_FILENAME_ON_F4 - for fetching file
and
GUI_UPLOAD - for uploading the file to my report.
Here's the code as-
REPORT Z_KK_EXCEL.
types: begin of itab,
EMPName type c,
Designation type c,
Salary type c,
end of itab.
data: it_tab type standard TABLE OF itab,
wa_tab type itab.
data: file_str type string.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE RLGRAP-Filename.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'P_FILE'
STATIC = 'X'
MASK = 'excel, *xls'
* FILEOPERATION = 'R'
* PATH =
CHANGING
FILE_NAME = p_file
* LOCATION_FLAG = 'P'
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
ENDIF.
start-of-selection.
file_str = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = file_str
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
* HEADER_LENGTH = 0
* READ_BY_LINE = 'X'
* DAT_MODE = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* CHECK_BOM = ' '
* VIRUS_SCAN_PROFILE =
* NO_AUTH_CHECK = ' '
* ISDOWNLOAD = ' '
* IMPORTING
* FILELENGTH =
* HEADER =
TABLES
DATA_TAB = it_tab
* CHANGING
* ISSCANPERFORMED = ' '
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.
ENDIF.
end-of-selection.
loop at it_tab into wa_tab.
write :/ wa_tab-EMPName,
wa_tab-Designation,
wa_tab-Salary.
endloop.
my output is coming like this
Can anyone help ?
Thanks
Regards
karan