Here is a skeleton program for upload from a comma delimted text file. It expects material number and material group. This was used to update material groups at one time. I have removed the BDC code.
report zrich_0002.
type-pools: icon, slis.
types: begin of tdata,
rec(150) type c,
end of tdata,
begin of tmtgp,
matnr type mara-matnr
matkl type mara-matkl,
end of tmtgp,
begin of tmess,
stats(4) type c,
matnr type mara-matnr,
matkl type mara-matkl,
end of tmess.
data: idata type table of tdata with header line.
data: imtgp type table of tmtgp with header line.
data: imess type table of tmess with header line.
data: it023 type table of t023 with header line.
data: fieldcat type slis_t_fieldcat_alv.
data: mode(1) type c value 'N'.
data: messtab type table of bdcmsgcoll with header line.
data: bdcdata type table of bdcdata with header line.
selection-screen begin of block b1 with frame title text-001.
parameters: p_file type localfile default 'C:Material Groups.txt'.
selection-screen end of block b1.
at selection-screen on value-request for p_file.
call function 'KD_GET_FILENAME_ON_F4'
exporting
static = 'X'
changing
file_name = p_file.
start-of-selection.
perform upload_data.
perform update_via_bdc.
perform call_alv.
************************************************************************
* Upload_Data
************************************************************************
form upload_data.
data: filename type string.
clear idata. refresh idata.
filename = p_file.
call function 'GUI_UPLOAD'
exporting
filename = filename
filetype = 'ASC'
tables
data_tab = idata
exceptions
file_open_error = 1
file_read_error = 2
no_authority = 6
others = 17.
check sy-subrc = 0.
loop at idata.
clear imtgp.
split idata at ',' into imtgp-matnr imtgp-matkl.
append imtgp.
endloop.
endform.
************************************************************************
* Form update_table_via_bdc
************************************************************************
form update_table_via_bdc.
clear imess. refresh imess.
loop at imtgp.
* BDC Code goes here
call transaction 'MM02' using bdcdata mode mode
update 'S'
messages into messtab.
if sy-subrc = 0.
move-corresponding imtgp to imess.
write icon_green_light as icon to imess-stats.
imess-message = 'Transaction Completed Successfully'.
append imess.
else.
move-corresponding imtgp to imess.
write icon_red_light as icon to imess-stats.
read table messtab index 1.
if sy-subrc = 0.
perform bdc_message using imess-message.
else.
imess-message = 'Transaction Failed'.
endif.
append imess.
endif.
clear bdcdata. refresh bdcdata.
clear messtab. refresh messtab.
endloop.
endform.
************************************************************************
* Form BDC_DYNPRO
************************************************************************
form bdc_dynpro using program dynpro.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform.
************************************************************************
* Form BDC_FIELD
************************************************************************
form bdc_field using fnam fval.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
append bdcdata.
endform.
************************************************************************
* BDC_MESSAGE
************************************************************************
form bdc_message using message.
clear message.
* Move parameters into message text.
call function 'MESSAGE_PREPARE'
exporting
language = sy-langu
msg_id = messtab-msgid
msg_no = messtab-msgnr
msg_var1 = messtab-msgv1(50)
msg_var2 = messtab-msgv2(50)
msg_var3 = messtab-msgv3(50)
msg_var4 = messtab-msgv4(50)
importing
msg_text = message.
endform.
************************************************************************
* Form call_alv
************************************************************************
form call_alv.
* Call ABAP List Viewer (ALV)
perform build_field_catalog.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
it_fieldcat = fieldcat
i_grid_title = 'Transaction Messages'
tables
t_outtab = imess.
endform.
************************************************************************
* BUILD_FIELD_CATALOG
************************************************************************
form build_field_catalog.
data: tmp_fc type slis_t_fieldcat_alv with header line.
clear: fieldcat. refresh: fieldcat.
clear tmp_fc.
tmp_fc-reptext_ddic = ' '.
tmp_fc-fieldname = 'STATS'.
tmp_fc-tabname = 'IMESS'.
tmp_fc-outputlen = '5'.
tmp_fc-icon = 'X'.
append tmp_fc to fieldcat.
clear tmp_fc.
tmp_fc-reptext_ddic = 'Material Number'.
tmp_fc-fieldname = 'MATNR'.
tmp_fc-tabname = 'IMESS'.
tmp_fc-outputlen = '12'.
append tmp_fc to fieldcat.
clear tmp_fc.
tmp_fc-reptext_ddic = 'Material Group'.
tmp_fc-fieldname = 'MATKL'.
tmp_fc-tabname = 'IMESS'.
tmp_fc-outputlen = '12'.
append tmp_fc to fieldcat.
clear tmp_fc.
tmp_fc-reptext_ddic = 'Message'.
tmp_fc-fieldname = 'MESSAGE'.
tmp_fc-tabname = 'IMESS'.
tmp_fc-outputlen = '200'.
append tmp_fc to fieldcat.
endform.
Regards,
Rich Heilman
- SAP Managed Tags:
Please make sure to award points for helpful answers. Thanks.
Regards,
Rich Heilman
- SAP Managed Tags:
Please award points for helpful answers and close if answered completely, Thanks.
Regards,
Rich Heilman
- SAP Managed Tags:
