CSV file to Ztable

Question

Can u guys tell me steps/give sample code to upload a ZTABLE from a CSV file.
Iam not using all fields in the CSV file( if file have 5 fields,I am using 3 out of it) and also not all fields in  the ZTABLE ( uploading 3 fields out of 7 fields)and some necessary validations.
Thnaks..

Answer 1

HI,
Try this. We use this FM and it works quite well.
** internal table to receive stat key figures data from EXCEL
data: begin of intab01 occurs 0,
kostl(10) type n, " cost center number
lstar(10), " stat key figure code
per01(15), " period 01 value
per02(15), " period 02 value
per03(15), " period 03 value
per04(15), " period 04 value
per05(15), " period 05 value
per06(15), " period 06 value
per07(15), " period 07 value
per08(15), " period 08 value
per09(15), " period 09 value
per10(15), " period 10 value
per11(15), " period 11 value
per12(15), " period 12 value
end of intab01.
* Added Input Work Area
data: begin of in_wa,
kostl(10), " cost center number
lstar(10), " stat key figure code
per01(15), " period 01 value
per02(15), " period 02 value
per03(15), " period 03 value
per04(15), " period 04 value
per05(15), " period 05 value
per06(15), " period 06 value
per07(15), " period 07 value
per08(15), " period 08 value
per09(15), " period 09 value
per10(15), " period 10 value
per11(15), " period 11 value
per12(15), " period 12 value
end of in_wa.
data: w_index type i.
* FIELD SYMBOLS
field-symbols : <fs>.
* S E L E C T I O N S C R E E N F I E L D S
parameters: p_input like rlgrap-filename obligatory.
parameters: p_skp type n default 0.
** transfer data from EXCEL input file to internal table INTAB01
perform upload_excel.
form upload_excel.
* load plan data from EXCEL into table INTAB01 via function UPLOAD *
data : i_intern type alsmex_tabline occurs 0 with header line."BCT004
data : w_start_col type i value '1',
w_start_row type i value '1',
w_end_col type i value '18', "must = # of excel columns
w_end_row type i value '65536'.
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE' "BCT004
exporting
filename = p_input
i_begin_col = w_start_col
i_begin_row = w_start_row
i_end_col = w_end_col
i_end_row = w_end_row
tables
intern = i_intern.
if i_intern[] is initial. " File empty SLG001
format color col_negative.
skip 1.
write: / 'There is a problem with'.
format color col_normal.
write: / p_input.
format color col_negative.
write: / 'Check the file and rerun'.
skip 2.
write: /15 '>>>>>>>> E N D O F P R O G R A M <<<<<<<<'.
stop.
endif.
* Begin SLG001
sort i_intern by row col.
loop at i_intern.
if i_intern-row <= p_skp.
continue.
endif.
move : i_intern-col to w_index.
if w_index <= 18. "Col 18-last data col
assign component w_index of structure in_wa to <fs>.
move : i_intern-value to <fs>.
endif.
at end of row.
move-corresponding in_wa to intab01.
shift intab01-per01 right deleting trailing ' '.
shift intab01-per02 right deleting trailing ' '.
shift intab01-per03 right deleting trailing ' '.
shift intab01-per04 right deleting trailing ' '.
shift intab01-per05 right deleting trailing ' '.
shift intab01-per06 right deleting trailing ' '.
shift intab01-per07 right deleting trailing ' '.
shift intab01-per08 right deleting trailing ' '.
shift intab01-per09 right deleting trailing ' '.
shift intab01-per10 right deleting trailing ' '.
shift intab01-per11 right deleting trailing ' '.
shift intab01-per12 right deleting trailing ' '.
append intab01 .
clear: in_wa, intab01 .
endat.
endloop.
endform. " upload_excel
<b>See the below links for more example programs</b>
http://sap.ittoolbox.com/code/archives.asp?d=3365&a=s&i=10
http://sap.ittoolbox.com/code/archives.asp?d=3126&a=s&i=10
http://sap.ittoolbox.com/code/archives.asp?d=3127&a=s&i=10
http://sap.ittoolbox.com/code/archives.asp?d=2128&a=s&i=10
http://sap.ittoolbox.com/code/archives.asp?d=1721&a=s&i=10
Thanks
Sudheer