Uploading data in to standard SOP?????

Hi Gurus,
we are using standard SOP for planning the forecast of all the FG materials using MC87.
The issue is we are entering each material data manually in MC87 and then checking the rough cut capacity.
Please guide me any solution to upload the forecast values of all FG materials into MC87 automatically.
Your suggetions are most presious!!
Thanks in advance.
Naveen.

Dear A.Naveen
Please Follow this Steps
SOP- comes from SO76 standard information structure.
1. MC87 - create Planning for material
of if you want by product group then use these steps
MC81 - Create Planning for product group
MC84 - Create for product group
2. MC78- copy version (Enter your inactive Version and target version as A00 and copy and save.)
3.MC88- change version
4.MC74 - Transfer Material to Demand Management
5.MD62 - Change the Planned Independent Requirements
5.MD02- Run MRP
6. MD04 - Stock/Requirements List
7. CO01 - Create production Orders with Material
and you might know the rest of the cycle
Please follow the steps to set up forecast based planning:
1. MM01: Create the forecsast view and asign a forecast model. Under the consumtion vals enter consumtion values (unplannes or total). In the MRP 1 view, assign the MRP Type "VV" (Forecast based planning)
2. MP30: CREATE MATERIAL FORECAST
3: MD02: MRP Run
4: MD04: Check the Req List
with regards
Pushpalas
Edited by: pushpalas on Oct 5, 2011 1:12 PM

Similar Messages

Upload data into SAP through standard program

hi!
why don't we prefer to upload data into sap through standard program like RFBIKR00 to upload for vendor master or other standard programs to upload durectly without using BDC or LSMW and how do we upload data into SAP through BAPI.
pls help me with a sample program.
regards
Amit

It totally depends upon the requierment which fields your want to update in transaction if it works with program then use program else go for bdc .
If there is some any screen enhancement with z fields then program will not solve the problem.
For BAPI you check these links:
http://www.sap-img.com/abap/bapi-step-by-step-guidance.htm
http://sap-img.com/bapi.htm
Edited by: shilpi agarwal on Aug 22, 2008 7:28 AM

UPLOADING DATA IN A NON STANDARD TABLE

I have a non standard table.I want to upload data in that table using SCAT.So,how Test case can be created for uploading the data in that table?
Edited by: Debasish Behera on Mar 17, 2008 1:02 PM

As it is a Z table yiu can directly uploda data by an ABAP program. Read the data from a flat file and simply insert into that table.

Uploading data in standard infotype for many pernrs.

how to upload data for many pernrs through a single fm in a standard infotype ????
please help me...

CALL FUNCTION 'HR_INFOTYPE_OPERATION'
 EXPORTING
 INFTY = '2010'
 NUMBER = P2010-pernr "wa_ot_calc-pernr
 VALIDITYEND = P2010-endda "wa_ot_calc-zotdate
 VALIDITYBEGIN = P2010-begda "wa_ot_calc-zotdate
 RECORD = P2010
 OPERATION = 'INS'
 DIALOG_MODE = '0'
 NOCOMMIT = 'X'
 IMPORTING
 RETURN = BAPISUBRC.
 IF SY-SUBRC <> 0 OR
 NOT BAPISUBRC IS INITIAL.
 MESSAGE ID BAPISUBRC-ID
 TYPE BAPISUBRC-TYPE
 NUMBER BAPISUBRC-NUMBER
 WITH BAPISUBRC-MESSAGE_V1
 BAPISUBRC-MESSAGE_V2
 BAPISUBRC-MESSAGE_V3
 BAPISUBRC-MESSAGE_V4.
 ENDIF.
i resolved the error im gettin for table declaration but now d fm is not executing properly
after execution it gives error message : Enter a Quantity.
i dont knw frm whr it is coming.........im passin d values to table as:
 MOVE wa_ot_calc-pernr TO P2010-pernr.
 MOVE '1006' TO P2010-subty.
 MOVE wa_ot_calc-zotdate TO P2010-endda.
 MOVE wa_ot_calc-zotdate TO P2010-begda.
 MOVE sy-datum TO P2010-aedtm.
 MOVE sy-uname TO P2010-uname.
 MOVE wa_ot_calc-not_hrs TO P2010-stdaz.
 MOVE '1006' TO P2010-lgart.
is anythin wrong in this..?

Uploading data in MM01 for different material types

Hi,
I have a doubt regarding uploading the data in MM01 for different material types.
Generally in MM01, we have different views for different material types. The number of views will vary depending upon the material type that we select.
I have a scenario, where in to upload the data, I have a flat file that consists of data for different message types. So, how to upload the data in such case.
Can anyone help me on the same by providing explanation or sample code...? What would be the possible ways to upload data in such scenario.
That would be of great help.
Thanks & Regards,
Pradeep.

See the below code and use FM SELECTION_VIEWS_FIND..
REPORT zjpmuim306 NO STANDARD PAGE HEADING LINE-SIZE 250 MESSAGE-ID
zjpm001.
*& I N B O U N D V I A A B A P : Batch input Session method *
*& Development ID: IM_DD_306_LJP *
*& Report : ZJPMUIM306 *
*& The Purpose of the Object is to interface Create Input Record *
*& for SAP Migration from the Material master of BPCS All the *
*& information received at BPCS is collected into a single record. *
*& By using session method upload data from file ,one item is
*& created for one record *
*& Change Log: *
*& Init Who Date Text *
*& MALIKDH1 Seshu Reddy 26-07-2003 Initial Version *
 Constants *
CONSTANTS:c_vkorg(4) type c value 'JP20', " Sales Organization
 c_vtweg(2) type c value 'TR' , " Distribution Channel
 c_werks(4) Type c value 'JP01' , " Plant
 c_viewlist(15) VALUE 'KDEALBSZXVPCFQG'," View list
 c_scm_view TYPE msichtausw-dytxt VALUE 'SCM View',
 c_sd_view TYPE msichtausw-dytxt VALUE 'SD View',
 c_seq_code(2) VALUE 'Z1', " Sequential Code
 c_keep(1) TYPE c VALUE 'X', " Keep
 c_group LIKE apqi-groupid VALUE 'IM306', " Session Name
 c_tcode LIKE tstc-tcode VALUE 'MM02', " Transaction Code
 c_blank(1) VALUE ' ', " Blank
 c_intls(1) VALUE 'N'. " Logistic Status
 Variables *
DATA: g_flag1(1), " Variable to hold
 g_flag(1), " Variable to hold
 g_file LIKE rlgrap-filename VALUE
 'C:\Documents and Settings\seshur\Desktop\HCLT123.CSV'. " File name
 Internal tables/ Work area *
Internal Table for Delimter
DATA : BEGIN OF t_delim OCCURS 0,
 text(1000),
 END OF t_delim.
Internal table for BDC processing
DATA : t_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
Internal table for holding the data which has to be uploaded.
DATA: BEGIN OF t_bpcs OCCURS 0,
 matnr(15) TYPE c, " material no
 dosage(40) TYPE c, " Dosage form(Local)
 appearance(40) TYPE c, " Appearance
 idcode(6) TYPE c, " Identification Code
 prostformno(10) TYPE c, "SOP
 weitab(7) TYPE c, " Weight/tablet
 uom1(2) TYPE c, " UOM of Carton
 uom2(2) TYPE c, " UOM of Case
 carsize(14) TYPE c, " Carton size
 cassize(14) TYPE c, " Case size
 rupqty(11) TYPE c, " Round up
 abvname(3) TYPE c, " Product short name
 END OF t_bpcs.
*Internal table for t_bpcs
DATA: BEGIN OF t_mdata OCCURS 0,
 matnr LIKE marc-matnr, " Material number
 zzjp_dos_frm LIKE marc-zzjp_dos_frm, " Dosage form(Local)
 zzjp_aprn LIKE marc-zzjp_aprn, " Appearance
 zzjp_con_id LIKE marc-zzjp_con_id," Identification Code
 zzjp_nyu_sop LIKE marc-zzjp_nyu_sop,"SOP
 zzjp_wei_tab(10) type c , " Weight/tablet
 zzjp_bio LIKE marc-zzjp_bio,"Biologics Indicator
 zzjp_itf LIKE marc-zzjp_itf, " ITF code
 zzjp_car(2) type c, " UOM of Carton
 zzjp_cas(2) type c, " UOM of Case
 zzjp_car_size(11) type c," Carton size
 zzjp_cas_size(11) type c, " Case size
 zzjp_rupqty(11) type c, " Round up
 zzjp_init_ls LIKE marc-zzjp_init_ls, " Logistic Status
 zzjp_re1 LIKE marc-zzjp_re1, "Document type(Local)
 zzjp_re2 LIKE marc-zzjp_re2, "Report type
 zzjp_re3 LIKE marc-zzjp_re3, "Shipping report type
 zzjp_pro_id LIKE mvke-zzjp_pro_id," Product output sequence
 zzjp_bu_id LIKE mvke-zzjp_bu_id, " Business unit indicator
 zzjp_abv_name LIKE mvke-zzjp_abv_name," Product short name
 zzjp_abv_id1 LIKE mvke-zzjp_abv_id1," Product short name output
 zzjp_abv_id2 LIKE mvke-zzjp_abv_id2," Product short name internal
 zzjp_spl_id LIKE mvke-zzjp_spl_id, " Sample internal order
 END OF t_mdata.
Internal table for Mara Table
DATA: BEGIN OF t_mara OCCURS 0,
 matnr LIKE mara-matnr, " material Number
 vpsta LIKE mara-vpsta, " Maintenance status of complete material
 pstat like mara-pstat, " Maintenance status
 END OF t_mara.
Internal table for Material Master View Selection Screens
DATA: BEGIN OF t_bildtab OCCURS 0.
 INCLUDE STRUCTURE mbildtab.
DATA: END OF t_bildtab.
internal table for T_bildtab
DATA: t_bildtab_dup LIKE t_bildtab OCCURS 0 WITH HEADER LINE.
*Work area for T_bildtab internal table(Views Selection)
DATA: BEGIN OF w_data,
 flag1 type c,
 anzd70 TYPE i,
 field1(20) type c,
 field2(20) type c,
 field3(20) type c,
 field4(20) type c,
 count(2) TYPE c,
 END OF w_data.
 Main Processing *
START-OF-SELECTION.
Store data from file into internal table
PERFORM f_uplaod_data.
Transfer the uploaded data into t_mdata internal Table
PERFORM f_process_data.
Selecting The views based on Material number
PERFORM f_view_list.
Open a BDC Session
PERFORM f_bdc_open.
*Selecting the fields from mara table
SELECT matnr
 vpsta
 pstat
 FROM mara
INTO TABLE t_mara
FOR ALL ENTRIES IN t_mdata
WHERE matnr = t_mdata-matnr.
SORT t_mara BY matnr.
SORT t_mdata BY matnr.
Transfer the uploaded data into BDCDATA structure
PERFORM f_process_bdc.
Close The BDC Session
PERFORM f_close_group.
*& Form F_VIEW_LIST *
 Routine to used for Calling the function module *
 Selection_views_find *
FORM f_view_list.
CALL FUNCTION 'SELECTION_VIEWS_FIND'
 EXPORTING
 bildsequenz = c_seq_code
 pflegestatus = c_viewlist
 TABLES
 bildtab = t_bildtab
 EXCEPTIONS
 call_wrong = 1
 empty_selection = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " F_VIEW_LIST
*& Form f612_view_sort *
Routine to used for Selecting The views based on Material Number *
FORM f612_view_sort.
t_bildtab_dup[] = t_bildtab[].
Reading the Internal table t_mara
READ TABLE t_mara WITH KEY matnr = t_mdata-matnr.
TRANSLATE t_mara-pstat USING ' $'.
CLEAR: w_data-flag1, w_data-anzd70.
LOOP AT t_bildtab_dup.
 IF t_bildtab_dup-pstat CA t_mara-pstat.
 w_data-anzd70 = w_data-anzd70 + 1.
 IF t_bildtab_dup-kzanz IS INITIAL.
 t_bildtab_dup-kzanz = 'X'.
 w_data-flag1 = 'X'.
 MODIFY t_bildtab_dup.
 ENDIF.
 ELSE.
 IF NOT t_bildtab_dup-kzanz IS INITIAL.
 CLEAR t_bildtab_dup-kzanz.
 w_data-flag1 = 'X'.
 MODIFY t_bildtab_dup.
 ENDIF.
 ENDIF.
ENDLOOP.
TRANSLATE t_mara-pstat USING '$ '.
IF NOT w_data-flag1 IS INITIAL.
 SORT t_bildtab_dup BY kzanz DESCENDING idxbd ASCENDING.
ENDIF.
*Reading The internal table for T_bildtab_dup
READ TABLE t_bildtab_dup WITH KEY dytxt = c_scm_view.
IF t_bildtab_dup-kzanz = 'X'.
 WRITE sy-tabix TO w_data-count.
 w_data-count = w_data-count + 2.
 IF w_data-anzd70 > 18.
 w_data-count = w_data-count - 18.
 ENDIF.
 CONCATENATE 'MSICHTAUSW-DYTXT(' w_data-count ')' INTO w_data-field1.
 CONCATENATE 'MSICHTAUSW-KZSEL(' w_data-count ')' INTO w_data-field2.
ENDIF.
READ TABLE t_bildtab_dup WITH KEY dytxt = c_sd_view.
IF t_bildtab_dup-kzanz = 'X'.
 WRITE sy-tabix TO w_data-count.
 IF w_data-anzd70 > 18.
 w_data-count = w_data-count + 2.
 w_data-count = w_data-count - 18.
 ENDIF.
 CONCATENATE 'MSICHTAUSW-DYTXT(' w_data-count ')' INTO w_data-field3.
 CONCATENATE 'MSICHTAUSW-KZSEL(' w_data-count ')' INTO w_data-field4.
ENDIF.
ENDFORM. " f612_view_sort
*& Form f_uplaod_data *
Routine to used for Uploading the data from file to Internal table *
FORM f_uplaod_data.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = g_file
 filetype = 'DAT'
 TABLES
 data_tab = t_delim
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF t_bpcs IS INITIAL.
 LOOP AT t_delim.
 SPLIT t_delim-text AT ',' INTO t_bpcs-matnr
 t_bpcs-dosage
 t_bpcs-appearance
 t_bpcs-idcode
 t_bpcs-prostformno
 t_bpcs-weitab
 t_bpcs-uom1
 t_bpcs-uom2
 t_bpcs-carsize
 t_bpcs-cassize
 t_bpcs-rupqty
 t_bpcs-abvname.
 APPEND t_bpcs.
 ENDLOOP.
ENDIF.
ENDFORM. " f_uplaod_data
*& Form F_BDC_OPEN
 Routine to create BDC Session to be processed
FORM f_bdc_open.
CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 client = sy-mandt
 group = c_group
 keep = c_keep
 user = sy-uname
 EXCEPTIONS
 client_invalid = 1
 destination_invalid = 2
 group_invalid = 3
 group_is_locked = 4
 holddate_invalid = 5
 internal_error = 6
 queue_error = 7
 running = 8
 system_lock_error = 9
 user_invalid = 10
 OTHERS = 11.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
MESSAGE S000 WITH 'Batch input session is created successfully'(T02).
ENDIF.
ENDFORM. " F_BDC_OPEN
*& Form F_PROCESS_BDC
 Processing of BDCDATA Structure
FORM f_process_bdc.
LOOP AT t_mdata.
 PERFORM f612_view_sort.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0060'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=AUSW'.
 PERFORM f_bdc_field USING 'RMMG1-MATNR'
 t_mdata-matnr.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0070'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 'MSICHTAUSW-DYTXT(01)'.
 IF w_data-anzd70 > 18.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=P+'.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0070'.
 PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
 ENDIF.
reading the t_bildtab internal table
 READ TABLE t_bildtab_dup WITH KEY dytxt = c_scm_view.
 IF t_bildtab_dup-kzanz = 'X'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 w_data-field1.
 PERFORM f_bdc_field USING w_data-field2 'X'.
 g_flag = 'X'.
 ENDIF.
reading the t_bildtab internal table
 READ TABLE t_bildtab_dup WITH KEY dytxt = c_sd_view.
 IF sy-subrc EQ 0.
 g_flag = 'X'.
 ENDIF.
 IF t_bildtab_dup-kzanz = 'X'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 w_data-field3.
 PERFORM f_bdc_field USING w_data-field4 'X'.
 g_flag1 = 'X'.
 ENDIF.
 IF g_flag = 'X' AND g_flag1 = 'X'.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0080'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 'RMMG1-VTWEG'.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM f_bdc_field USING 'RMMG1-WERKS'
 c_werks.
 PERFORM f_bdc_field USING 'RMMG1-VKORG'
 c_vkorg.
 PERFORM f_bdc_field USING 'RMMG1-VTWEG'
 c_vtweg.
 CLEAR g_flag.
 CLEAR g_flag1.
 ELSE.
 IF g_flag = 'X'.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0080'.
 PERFORM f_bdc_field USING 'RMMG1-WERKS'
 c_werks.
 PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
 ELSE.
 IF g_flag1 = 'X'.
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '0080'.
 PERFORM f_bdc_field USING 'BDC_CURSOR'
 'RMMG1-VTWEG'.
 PERFORM f_bdc_field USING 'RMMG1-WERKS'
 c_werks.
 PERFORM f_bdc_field USING 'RMMG1-VKORG'
 c_vkorg.
 PERFORM f_bdc_field USING 'RMMG1-VTWEG'
 c_vtweg.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 ENDIF.
 ENDIF.
 ENDIF.
*Processing of SCM View
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '4000'.
 PERFORM f_bdc_field USING 'BDC_CURSOR' 'MARC-ZZJP_DOS_FRM'.
 PERFORM f_bdc_field USING 'MARC-ZZJP_DOS_FRM'
 t_mdata-zzjp_dos_frm.
 PERFORM f_bdc_field USING 'MARC-ZZJP_APRN'
 t_mdata-zzjp_aprn.
 PERFORM f_bdc_field USING 'MARC-ZZJP_CON_ID'
 t_mdata-zzjp_con_id.
 PERFORM f_bdc_field USING 'MARC-ZZJP_NYU_SOP'
 t_mdata-zzjp_nyu_sop.
 PERFORM f_bdc_field USING 'MARC-ZZJP_WEI_TAB'
 t_mdata-zzjp_wei_tab.
 PERFORM f_bdc_field USING 'MARC-ZZJP_CAR'
 t_mdata-zzjp_car.
 PERFORM f_bdc_field USING 'MARC-ZZJP_CAS'
 t_mdata-zzjp_cas.
 PERFORM f_bdc_field USING 'MARC-ZZJP_CAR_SIZE'
 t_mdata-ZZJP_CAR_SIZE.
 PERFORM f_bdc_field USING 'MARC-ZZJP_CAS_SIZE'
 t_mdata-ZZJP_CAS_SIZE.
 PERFORM f_bdc_field USING 'MARC-ZZJP_RUPQTY'
 t_mdata-ZZJP_RUPQTY.
 PERFORM f_bdc_field USING 'MARC-ZZJP_BIO'
 t_mdata-zzjp_bio.
 PERFORM f_bdc_field USING 'MARC-ZZJP_ITF'
 t_mdata-zzjp_itf.
 PERFORM f_bdc_field USING 'MARC-ZZJP_INIT_LS'
 t_mdata-zzjp_init_ls.
 PERFORM f_bdc_field USING 'MARC-ZZJP_RE1'
 t_mdata-zzjp_re1.
 PERFORM f_bdc_field USING 'MARC-ZZJP_RE2'
 t_mdata-zzjp_re2.
 PERFORM f_bdc_field USING 'MARC-ZZJP_RE3'
 t_mdata-zzjp_re3.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '/00'.
*Processing of SD View
 PERFORM f_bdc_dynpro USING 'SAPLMGMM' '4000'.
 PERFORM f_bdc_field USING 'BDC_CURSOR' 'MVKE-ZZJP_PRO_ID'.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_PRO_ID'
 t_mdata-zzjp_pro_id.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_BU_ID'
 t_mdata-zzjp_bu_id.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_ABV_NAME'
 t_mdata-zzjp_abv_name.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_ABV_ID1'
 t_mdata-zzjp_abv_id1.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_ABV_ID2'
 t_mdata-zzjp_abv_id2.
 PERFORM f_bdc_field USING 'MVKE-ZZJP_SPL_ID'
 t_mdata-zzjp_spl_id.
 PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
 PERFORM f_bdc_dynpro USING 'SAPLSPO1' '0300'.
 PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=YES'.
perform f_bdc_insert.
REFRESH T_BDCDATA.
ENDLOOP.
ENDFORM. " F_PROCESS_BDC
*& Form f_bdc_dynpro
p_prog is the program name to which data is passed *
p_dyno is the screen number to which the data is passed
 Routine for populating the BDCDATA structure with the
 Screen related information
FORM f_bdc_dynpro USING p_prog
 p_dyno.
t_bdcdata-program = p_prog.
t_bdcdata-dynpro = p_dyno.
t_bdcdata-dynbegin = 'X'.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM. " F_bdc_dynpro
*& Form F_BDC_FIELD
 p_fnam is the field name to which value is passed
 p_fval is the field value which is passed
 p_fnam is the field name to which value is passed
 p_fval is the field value which is passed
FORM f_bdc_field USING p_fnam
 p_fval.
t_bdcdata-fnam = p_fnam.
t_bdcdata-fval = p_fval.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM. " F_bdc_field
*& Form F_PROCESS_DATA *
 Routine to used for moving data from T_bpcs internal table to *
 t_mdata Internal Table *
FORM f_process_data.
LOOP AT t_bpcs.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = t_bpcs-matnr
 IMPORTING
 output = t_mdata-matnr.
 MOVE t_bpcs-dosage TO t_mdata-zzjp_dos_frm.
 MOVE t_bpcs-appearance TO t_mdata-zzjp_aprn.
 MOVE t_bpcs-idcode TO t_mdata-zzjp_con_id.
 MOVE t_bpcs-prostformno TO t_mdata-zzjp_nyu_sop.
 MOVE t_bpcs-weitab TO t_mdata-zzjp_wei_tab.
 MOVE c_blank TO t_mdata-zzjp_bio.
 MOVE c_blank TO t_mdata-zzjp_itf.
 MOVE t_bpcs-uom1 TO t_mdata-zzjp_car.
 MOVE t_bpcs-uom2 TO t_mdata-zzjp_cas.
 MOVE t_bpcs-carsize TO t_mdata-zzjp_car_size.
 MOVE t_bpcs-cassize TO t_mdata-zzjp_cas_size.
 MOVE t_bpcs-rupqty TO t_mdata-zzjp_rupqty.
 MOVE c_intls TO t_mdata-zzjp_init_ls.
 MOVE c_blank TO t_mdata-zzjp_re1.
 MOVE c_blank TO t_mdata-zzjp_re2.
 MOVE c_blank TO t_mdata-zzjp_re3.
 MOVE c_blank TO t_mdata-zzjp_pro_id.
 MOVE c_blank TO t_mdata-zzjp_bu_id.
 MOVE t_bpcs-abvname TO t_mdata-zzjp_abv_name.
 MOVE c_blank TO t_mdata-zzjp_abv_id1.
 MOVE c_blank TO t_mdata-zzjp_abv_id2.
 MOVE c_blank TO t_mdata-zzjp_spl_id.
 APPEND t_mdata.
ENDLOOP.
ENDFORM. " F_PROCESS_DATA
*& Form f_bdc_close
 Routine to close the BDC Session
FORM f_close_group.
CALL FUNCTION 'BDC_CLOSE_GROUP'
 EXCEPTIONS
 not_open = 1
 queue_error = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " f_close_group
*& Form f_bdc_insert
 routine to input batch data into the Transaction MM02 from the
 session created
FORM f_bdc_insert.
CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 tcode = c_tcode
 TABLES
 dynprotab = t_bdcdata
 EXCEPTIONS
 internal_error = 1
 not_open = 2
 queue_error = 3
 tcode_invalid = 4
 printing_invalid = 5
 posting_invalid = 6
 OTHERS = 7.
 IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDFORM. " f_bdc_insert
Reward Points if it is useful
Thanks
Seshu

Upload data from excel to Ztable with statistics

Hi,
I have a requirement to upload data from excel sheet to ztable .
Here i need tp provide the user with the execution statistics like
1.Number of records read from the Excel spread-sheet
2. Number records processed successfully
3. Number records with Error
4. Name and location of Error Log-file (text-file format)
5. Name and location of the file containing error records (Excel spread-sheet format)
I would appreciate if any of you have code written for the same

See the below example code to upload from xl file to sap
REPORT ZLWMI151_UPLOAD no standard page heading
 line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
 werks(4) type c,
 cmatnr(15) type c,
 srlno(12) type n,
 matnr(7) type n,
 charg(10) type n,
 end of t_text.
data: begin of t_zbatch occurs 0,
 werks like zbatch_cross_ref-werks,
 cmatnr like zbatch_cross_ref-cmatnr,
 srlno like zbatch_cross_ref-srlno,
 matnr like zbatch_cross_ref-matnr,
 charg like zbatch_cross_ref-charg,
 end of t_zbatch.
data : g_repid like sy-repid,
 g_line like sy-index,
 g_line1 like sy-index,
 $v_start_col type i value '1',
 $v_start_row type i value '2',
 $v_end_col type i value '256',
 $v_end_row type i value '65536',
 gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = g_repid
 IMPORTING
 FILE_NAME = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
 FLEX_TEXT1 =
 FLEX_TEXT2 =
 FLEX_TEXT3 =
*& Form upload_data
 text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_file
 I_BEGIN_COL = $v_start_col
 I_BEGIN_ROW = $v_start_row
 I_END_COL = $v_end_col
 I_END_ROW = $v_end_row
 TABLES
 INTERN = itab
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
 read table itab index 1.
 gd_currentrow = itab-row.
 loop at itab.
 if itab-row ne gd_currentrow.
 append t_text.
 clear t_text.
 gd_currentrow = itab-row.
 endif.
 case itab-col.
 when '0001'.
 t_text-werks = itab-value.
 when '0002'.
 t_text-cmatnr = itab-value.
 when '0003'.
 t_text-srlno = itab-value.
 when '0004'.
 t_text-matnr = itab-value.
 when '0005'.
 t_text-charg = itab-value.
 endcase.
 endloop.
endif.
append t_text.
ENDFORM. " upload_data
*& Form modify_table
 Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
 t_final-werks = t_text-werks.
 t_final-cmatnr = t_text-cmatnr.
 t_final-srlno = t_text-srlno.
 t_final-matnr = t_text-matnr.
 t_final-charg = t_text-charg.
 t_final-erdat = sy-datum.
 t_final-erzet = sy-uzeit.
 t_final-ernam = sy-uname.
 t_final-rstat = 'U'.
 append t_final.
 clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
 write:/ 'Updation failed'.
else.
 Skip 1.
 Write:/12 'Updation has been Completed Sucessfully'.
 skip 1.
 Write:/12 'Records in file ',42 g_line .
 write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM. " modify_table
*& Form select_data
 Deleting the duplicate records
FORM select_data.
select werks
 cmatnr
 srlno from zbatch_cross_ref
 into table t_zbatch for all entries in t_final
 where werks = t_final-werks
 and cmatnr = t_final-cmatnr
 and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
 read table t_final with key werks = t_zbatch-werks
 cmatnr = t_zbatch-cmatnr
 srlno = t_zbatch-srlno.
 if sy-subrc eq 0.
 delete table t_final .
 endif.
 clear: t_zbatch,
 t_final.
endloop.
ENDFORM. " select_data
Reward Points if it is helpful
Thanks
Seshu

Upload data from excel to screen

Hi
I have created one Table Maintanence Generator with only one screen (Table control ). Here i have to upload data from excel to table control. How to upload data from excel to table control.

Hi,
Use this code to get data from excel to internal table. Later put the logic in PBO of the screen to fill the table control from internal table.
PARAMETERS: po_file TYPE rlgrap-filename DEFAULT 'E:test.xls'.
TYPES: BEGIN OF t_final,
          empno(10) TYPE c,
          name(30) TYPE c,
          state(25) TYPE c,
       END OF t_final.
PARAMETERS: po_file TYPE rlgrap-filename.
DATA: i_tab    TYPE STANDARD TABLE OF alsmex_tabline,
      i_final TYPE STANDARD TABLE OF t_final,
      wa_tab   TYPE alsmex_tabline,
      wa_final TYPE t_final.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR po_file.
PERFORM open_folder.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     EXPORTING
          filename                = po_file
          i_begin_col             = 1
          i_begin_row             = 1
          i_end_col               = 3
          i_end_row               = 65256
     TABLES
          intern                  = i_tab
     EXCEPTIONS
          inconsistent_parameters = 1
          upload_ole              = 2
          OTHERS                  = 3.
CHECK NOT i_tab[] IS INITIAL.
LOOP AT i_tab INTO wa_tab.
CASE wa_tab-col.
    WHEN 1.
      wa_final-empno = wa_tab-value.
    WHEN 2.
      wa_final-name = wa_tab-value.
    WHEN 3.
      wa_final-state = wa_tab-value.
ENDCASE.
AT END OF row.
    APPEND wa_final TO i_final.
    CLEAR wa_final.
ENDAT.
ENDLOOP.
FORM open_folder .
DATA: li_file TYPE TABLE OF sdokpath,
        lwa_file TYPE sdokpath.
CLEAR: p_fname, lwa_file.
REFRESH li_file[].
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
       TABLES
            file_table = li_file
       EXCEPTIONS
            cntl_error = 1
            OTHERS     = 2.
IF sy-subrc IS INITIAL.
    READ TABLE li_file INTO lwa_file INDEX 1.
    IF sy-subrc IS INITIAL.
     p_fname = lwa_file-pathname.
    ENDIF.
ENDIF.
ENDFORM.                    " open_folder
Thanks,
Vinod.
Edited by: Vinod Reddy Vemuru on Jul 28, 2008 4:50 PM

Upload data from EXCEL to ALV

Hi,
I have a requirement to upload data from EXCEL to ALV. I could not find any standard functionality which does the same. Any pointers in this regard would be of great help.
Thanks & Regards,
Nirupamaa.

Hi,
I have a requirement to upload data from EXCEL to ALV. I could not find any standard functionality which does the same. Any pointers in this regard would be of great help.
Thanks & Regards,
Nirupamaa.

Upload data from excel with vba by calling a function module

Hello all,
i have a problem with the function module "ALSM_EXCEL_TO_INTERNAL_TABLE". I will call this function module with vba to load data from excel to sap with a Buttonclick. I have copied this function module and set it remotable. But i can´t call it from excel.
Can you give me some tips how can i
upload data from excel with vba by click a button.
The problem seems the function: call method cl_gui_frontend_services=>clipboard_import in the function module, because when i comment this function call the vba-call is true but no results.
How can I call the function module correct with vba?
Thanks a lot for your tips!!!!
Chris
Message was edited by:
 Christoph Kirschner

HI
Uploading data directly from Excel file format
* Upload data direct from excel.xls file to SAP
REPORT ZEXCELUPLOAD.
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
 begcol TYPE i DEFAULT 1 NO-DISPLAY,
 begrow TYPE i DEFAULT 1 NO-DISPLAY,
 endcol TYPE i DEFAULT 100 NO-DISPLAY,
 endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.
DATA: BEGIN OF intern OCCURS 0.
 INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern.
DATA: BEGIN OF intern1 OCCURS 0.
 INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern1.
DATA: BEGIN OF t_col OCCURS 0,
 col LIKE alsmex_tabline-col,
 size TYPE i.
DATA: END OF t_col.
DATA: zwlen TYPE i,
 zwlines TYPE i.
DATA: BEGIN OF fieldnames OCCURS 3,
 title(60),
 table(6),
 field(10),
 kz(1),
 END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
 value_0001(50),
 value_0002(50),
 value_0003(50),
 value_0004(50),
 value_0005(50),
 value_0006(50),
 value_0007(50),
 value_0008(50),
 value_0009(50),
 value_0010(50),
 value_0011(50),
 value_0012(50),
 value_0013(50),
 value_0014(50),
 value_0015(50),
 value_0016(50),
 value_0017(50),
 value_0018(50),
 value_0019(50),
 value_0020(50),
 value_0021(50),
 value_0022(50),
 value_0023(50),
 value_0024(50),
 value_0025(50),
 value_0026(50),
 value_0027(50),
 value_0028(50),
 value_0029(50),
 value_0030(50),
 value_0031(50),
 value_0032(50),
 value_0033(50),
 value_0034(50),
 value_0035(50),
 value_0036(50),
 value_0037(50),
 value_0038(50),
 value_0039(50),
 value_0040(50),
 value_0041(50),
 value_0042(50),
 value_0043(50),
 value_0044(50),
 value_0045(50),
 value_0046(50),
 value_0047(50),
 value_0048(50),
 value_0049(50),
 value_0050(50),
 value_0051(50),
 value_0052(50),
 value_0053(50),
 value_0054(50),
 value_0055(50),
 value_0056(50),
 value_0057(50),
 value_0058(50),
 value_0059(50),
 value_0060(50),
 value_0061(50),
 value_0062(50),
 value_0063(50),
 value_0064(50),
 value_0065(50),
 value_0066(50),
 value_0067(50),
 value_0068(50),
 value_0069(50),
 value_0070(50),
 value_0071(50),
 value_0072(50),
 value_0073(50),
 value_0074(50),
 value_0075(50),
 value_0076(50),
 value_0077(50),
 value_0078(50),
 value_0079(50),
 value_0080(50),
 value_0081(50),
 value_0082(50),
 value_0083(50),
 value_0084(50),
 value_0085(50),
 value_0086(50),
 value_0087(50),
 value_0088(50),
 value_0089(50),
 value_0090(50),
 value_0091(50),
 value_0092(50),
 value_0093(50),
 value_0094(50),
 value_0095(50),
 value_0096(50),
 value_0097(50),
 value_0098(50),
 value_0099(50),
 value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 mask = '*.xls'
 static = 'X'
 CHANGING
 file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = filename
 i_begin_col = begcol
 i_begin_row = begrow
 i_end_col = endcol
 i_end_row = endrow
 TABLES
 intern = intern
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
END-OF-SELECTION.
LOOP AT intern.
 intern1 = intern.
 CLEAR intern1-row.
 APPEND intern1.
ENDLOOP.
SORT intern1 BY col.
LOOP AT intern1.
 AT NEW col.
 t_col-col = intern1-col.
 APPEND t_col.
 ENDAT.
 zwlen = strlen( intern1-value ).
 READ TABLE t_col WITH KEY col = intern1-col.
 IF sy-subrc EQ 0.
 IF zwlen > t_col-size.
 t_col-size = zwlen.
* Internal Table, Current Row Index
 MODIFY t_col INDEX sy-tabix.
 ENDIF.
 ENDIF.
ENDLOOP.
DESCRIBE TABLE t_col LINES zwlines.
SORT intern BY row col.
IF kzheader = 'X'.
 LOOP AT intern.
 fieldnames-title = intern-value.
 APPEND fieldnames.
 AT END OF row.
 EXIT.
 ENDAT.
 ENDLOOP.
ELSE.
 DO zwlines TIMES.
 WRITE sy-index TO fieldnames-title.
 APPEND fieldnames.
 ENDDO.
ENDIF.
SORT intern BY row col.
LOOP AT intern.
 IF kzheader = 'X'
 AND intern-row = 1.
 CONTINUE.
 ENDIF.
 tind = intern-col.
 CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
 ASSIGN (zwfeld) TO <fs1>.
 <fs1> = intern-value.
 AT END OF row.
 APPEND data_tab.
 CLEAR data_tab.
 ENDAT.
ENDLOOP.
CALL FUNCTION 'DISPLAY_BASIC_LIST'
 EXPORTING
 file_name = filename
 TABLES
 data_tab = data_tab
 fieldname_tab = fieldnames.
*-- End of Program
Excel Upload Alternative - KCD_EXCEL_OLE_TO_INT_CONVERT
*Title : Excel Uploading
TYPES: BEGIN OF t_datatab,
 col1(25) TYPE c,
 col2(30) TYPE c,
 col3(30) TYPE c,
 col4(30) TYPE c,
 col5(30) TYPE c,
 col6(30) TYPE c,
 col7(30) TYPE c,
 col8(30) TYPE c,
 col9(30) TYPE c,
 col10(30) TYPE c,
 col11(30) TYPE c,
 END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
 wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol TYPE i VALUE '1',
 gd_srow TYPE i VALUE '1',
 gd_ecol TYPE i VALUE '256',
 gd_erow TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
 gd_subrc TYPE i.
field-symbols : <fs>.
*Selection screen definition
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
 DEFAULT 'c:test.xls' OBLIGATORY. " File Name
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
 EXPORTING
 window_title = 'Select File'
 default_filename = '*.xls'
 multiselection = ' '
 CHANGING
 file_table = it_tab
 rc = gd_subrc.
LOOP AT it_tab INTO p_file.
* so_fpath-sign = 'I'.
* so_fpath-option = 'EQ'.
* append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES it_datatab
 USING p_file
 gd_scol
 gd_srow
 gd_ecol
 gd_erow.
* END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
 WRITE:/ wa_datatab-col1,
 wa_datatab-col2,
 wa_datatab-col3,
 wa_datatab-col4,
 wa_datatab-col5,
 wa_datatab-col6,
 wa_datatab-col7,
 wa_datatab-col8,
 wa_datatab-col9,
 wa_datatab-col10,
 wa_datatab-col11.
ENDLOOP.
*& Form UPLOAD_EXCEL_FILE
* upload excel spreadsheet into internal table
* -->P_TABLE Table to return excel data into
* -->P_FILE file name and path
* -->P_SCOL start column
* -->P_SROW start row
* -->P_ECOL end column
* -->P_EROW end row
FORM upload_excel_file TABLES p_table
 USING p_file
 p_scol
 p_srow
 p_ecol
 p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
* Has the following format:
* Row number | Colum Number | Value
* i.e. 1 1 Name1
* 2 1 Joe
DATA : ld_index TYPE i.
* Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
 EXPORTING
 filename = p_file
 i_begin_col = p_scol
 i_begin_row = p_srow
 i_end_col = p_ecol
 i_end_row = p_erow
 TABLES
 intern = LT_INTERN
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'Error Uploading file'.
 EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'No Data Uploaded'.
 EXIT.
ELSE.
 SORT lt_intern BY row col.
 LOOP AT lt_intern.
 MOVE lt_intern-col TO ld_index.
 assign component ld_index of structure
 p_table to <fs>.
move : lt_intern-value to <fs>.
* MOVE lt_intern-value TO p_table.
 AT END OF row.
 APPEND p_table.
 CLEAR p_table.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. "UPLOAD_EXCEL_FILE
Regards
Pavan

HOW TO UPLOAD DATA FROM EXCEL TO INTERNALTABLE

HI,
HOW TO UPLOAD DATA FROM EXCEL TO INTERNALTABLE? & WITH EXAMPLE.

hi,
chk this, put the data into an excel file.
fields inside it are name and age.
sample excel sheet.
coloumn 1 is name and column 2 is age
name age
A 8
C 13
D 55
DATA : int_excel LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
data : record like db_name_age occurs 0 with header line.
DATA : v_start_col TYPE i VALUE '1', "starting col
 v_start_row TYPE i VALUE '1', " starting row
 v_end_col TYPE i VALUE '2', " total columns
 v_end_row TYPE i VALUE '10'. "total no of record
FORM f_upload .
CLEAR : int_excel, int_excel[].
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = wf_filename
 i_begin_col = v_start_col
 i_begin_row = v_start_row
 i_end_col = v_end_col
 i_end_row = v_end_row
 TABLES
 intern = int_excel
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
*Message is 'Unable to upload data from ' wf_filename.
 MESSAGE e169(zm050) WITH wf_filename.
ELSE.
 SORT int_excel BY row col.
 REFRESH : record.
 CLEAR : record.
 LOOP AT int_excel.
 CASE int_excel-col. "go thru each column.
 WHEN 1.
 record-name = int_excel-value.
 WHEN 2.
 record-age = int_excel-value.
 ENDCASE.
 AT END OF row.
 APPEND record.
 CLEAR record.
 ENDAT.
 ENDLOOP.
*inserting into table
modfiy db_name_age from table record.
ENDIF.
ANOTHER EXAMPLE
TYPE-POOLS truxs.
types: begin of t_tab,
col1(5) type c,
col2(5) type c,
col3(5) type c,
end of t_tab.
data : itab type standard table of t_tab,
 wa type t_tab.
data it_type type truxs_t_text_data.
parameter p_file type rlgrap-filename.
data ttab type tabname.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'P_FILE'
IMPORTING
FILE_NAME = p_file
start-of-selection.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
i_tab_raw_data = it_type
i_filename = p_file
tables
i_tab_converted_data = itab[]
EXCEPTIONS
CONVERSION_FAILED = 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.
end-of-selection.
loop at itab into wa.
write : wa-col1,
 wa-col2,
 wa-col3.
endloop.
rgds,
anver
if hlped pls mark points

Uploading data from non sap system to sap system

hi to all experts,
my requirement is to upload data into the sap system from non sap system . the data is in a flat file ,but the problem is that in the flat file all the field lengths and fields are not in order or same as sap system. How to upload the data into sap system ....

hi,
the data is in a flat file,but the problem is that in the flat file all the field lengths and fields are not in order or same as sap system.
If the data is in excel sheet use this FM.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                      = P_FILE
      I_BEGIN_COL                   = 1
      I_BEGIN_ROW                   = 1
      I_END_COL                     = 17
      I_END_ROW                     = 3000
    TABLES
      INTERN                        = itab
EXCEPTIONS
INCONSISTENT_PARAMETERS       = 1
UPLOAD_OLE                    = 2
OTHERS                        = 3
It will read the data from excel sheet column wise and then store it in ITAB. you can change the order after reading the file.
In case of Text file use FM GUI_UPLOAD.
You can change the order of the fileds after reading it from file, but the length and all you have to make compatible to SAP standard fields.
Regards,
Sachin

Reg:when i was uploading data from legacy system

Hi All,
it is any Include program
for tcode mpr1
when i was upload the data for forecast values from
legacy system to sap system .
only one record is geting updated
other records are not updateding
i have retun logic like this
code,,,,,,,,
TYPES: BEGIN OF TY_FILE,
 WERKS LIKE MAPR-WERKS,
 MATNR LIKE MAPR-MATNR,
 PRWRT LIKE PROW-PRWRT,
 END OF TY_FILE.
DATA: IT_FILE TYPE STANDARD TABLE OF TY_FILE,
 WA_FILE TYPE TY_FILE.
DATA : IT_MARA LIKE MARA OCCURS 0 WITH HEADER LINE,
 IT_MARC LIKE MARC OCCURS 0 WITH HEADER LINE.
DATA : LV_FILE TYPE STRING.
LV_FILE = I_MPR1USERPAR.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
EXPORTING
 FILENAME = LV_FILE
 FILETYPE = 'DAT'
 HAS_FIELD_SEPARATOR = 'X'
CHANGING
 DATA_TAB = IT_FILE
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
 NOT_SUPPORTED_BY_GUI = 17
 ERROR_NO_GUI = 18
 OTHERS = 19
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 T_ARTICLES.
 CLEAR : IT_MARA,IT_MARC.
 SELECT SINGLE * FROM MARA INTO IT_MARA WHERE MATNR = T_ARTICLES-MATNR.
 SELECT SINGLE * FROM MARC INTO IT_MARC WHERE MATNR = T_ARTICLES-MATNR
 AND WERKS = T_ARTICLES-WERKS.
ENDLOOP.
LOOP AT IT_FILE INTO WA_FILE .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = WA_FILE-MATNR
 IMPORTING
 OUTPUT = WA_FILE-MATNR.
T_FORECAST_VALUES-WERKS = WA_FILE-WERKS.
T_FORECAST_VALUES-MATNR = WA_FILE-MATNR.
T_FORECAST_VALUES-PERKZ = IT_MARC-PERKZ.
T_FORECAST_VALUES-ERTAG = T_ARTICLES-PRDAT_NEW.
T_FORECAST_VALUES-KOPRW = WA_FILE-PRWRT.
T_FORECAST_VALUES-MEINS = IT_MARA-MEINS.
APPEND T_FORECAST_VALUES.
CLEAR : T_FORECAST_VALUES.
ENDLOOP.
thanks
mars

For creating/uploading the master data from legacy system to SAP we either use below options
1. BDC (recording)
2. BAPI
3. ALE iDoc.
I would sugguest you to use BAPI and there's already this post which explains few details about the BAPI:
Problems with BAPI_PROJECT_MAINTAIN
Regards
Sreenivas

Uploading Data from a Flat File

Hi
I am trying to Upload data from a Flat File to the MDS. I have a few questions on the Process.
a) XI would be the Interface, and one end would be a file adapter with the Flat File format. On the other end, which Interface should I use - ABA Business Partner In or MDM Business Partner In. I do not understand the differences between them and where should which one be used?
B) At the moment,I want to map the data to standard Object type, Business Partner BUS1006. This also has a staging area already defined in the System. Can I view the data which is imported into the Staging area ? How so ?
C) The struture (or data) that I wish to upload has few fields, and does not map to the BP structure easily. In such a scenario does it make sense to
Create a new Object type
(ii) Create a new Business Partner type with the appropriate fields only ..
What I need to know is if either of these options is feasible and what are the pros & cons of doing this, in terms of effort, skillset & interaction with SAP Development ?
Kindly do reply if you have any answers to these questions.
Regards,
Gaurav

Hi Markus,
Thanks for your inputs.
I have tried uploading some dats from a Flat file to the Business Partner Onject type, BUS1006. I initially got some ABAP Parsing errors on the MDM side, but after correcting that, I find my message triggers a short dump - with the Method SET_OBJECTKEYS, not finding any keys in the BP structure that has been created.
Q1 - How do I get around this problem ? Is it necessary for me to specify Keys in the PartyID node of the Interface ABABusinessPartnerIn. or is it something else ?
Q2 - How is this general process supposed to work? I would assume that for staging, I would get incomplete Master data or data from flat files, which need not neccesarily contain keys. The aim is to use the matching strategies in the CI to identify duplicates and consolidate them.
Thanks in advance for your reply.
Regards,
Gaurav

Error while uploading data to ztable from excel file

Hi,
I have a requirement where i have to upload data from excel file to ztable.I have used the fm 'ALSM_EXCEL_TO_INTERNAL_TABLE' for reading the excel file.After reading the excel file i have used INSERT zrb_hdr from table t_zrb_hdr for updating the ztable with data .
here it is giving error as the data base table zrb_hdr and the internal table t_zrb_hdr should be declared of same type .
I got this error b'coz i have changed the date and time fields in t_zrb_hdr table to char type.so the structure of zrb_hdr and t_zrb_hdr are not same.If i don't change the date and time fields,in the o/p i am not getting proper date and time formats.
now how can i upload data into ztable?

Hi,
Try this.
Data: itab type standard table of ztable,
         wa_itab type ztable.
loop at t_zrb_hdr into wa_t_zrb_hdr.
   wa_itab-date = wa_t_zrb_hdr-date.
   wa_itab-time = wa_t_zrb_hdr-time.
   like move all the fiedl to wa_itab...........
   append itab with wa_itab.
Endloop.
now insert the records from itab to the database table ztable.
Thanks,
Muthu.

Uploading data from flat file to table control

HI All,
I want to upload data to OVKK tcode using BDC. For this I wrote Z program as shown below:
REPORT ZSD_BDC_OVKK_UPLOAD
       NO STANDARD PAGE HEADING LINE-SIZE 255.
*INCLUDE bdcrecx1.
DATA : BEGIN OF T_DUMMY OCCURS 0,
       VAR(100) TYPE C,
       END OF T_DUMMY.
DATA: BEGIN OF ITAB OCCURS 0,
       KALSM(10) TYPE C,
*       KARTV(10) TYPE C,
       VKORG(4) TYPE C,
       VTWEG(2) TYPE C,
       SPART(2) TYPE C,
       KALVG(1) TYPE C,
       KALKS(1) TYPE C,
         KALSM(6) TYPE C,
         KARTV(4) TYPE C,
       END OF ITAB.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
       IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA : v_filename TYPE string.
PARAMETER : filename LIKE rlgrap-filename OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      field_name = filename
    CHANGING
      file_name = filename.
START-OF-SELECTION.
v_filename = filename.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = v_filename
      filetype                      = 'ASC'
     has_field_separator           = 'X'
    TABLES
      data_tab                      = T_DUMMY.
LOOP AT T_DUMMY.
    ITAB-VKORG = T_DUMMY-VAR+0(4).
    ITAB-VTWEG = T_DUMMY-VAR+5(2).
    ITAB-SPART = T_DUMMY-VAR+8(2).
    ITAB-KALVG = T_DUMMY-VAR+11(1).
    ITAB-KALKS = T_DUMMY-VAR+13(1).
    ITAB-KALSM = T_DUMMY-VAR+15(6).
    ITAB-KARTV = T_DUMMY-VAR+22(4).
    APPEND ITAB.
ENDLOOP.
DATA: FNAM(20) TYPE C,
      IDX      TYPE C.
    MOVE 1 TO IDX.
LOOP AT ITAB.
REFRESH IT_BDCDATA.
    PERFORM bdc_dynpro      USING 'SAPML080Z' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'V_T683V-KALSM(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=NEWL'.
    PERFORM bdc_dynpro      USING 'SAPML080Z' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'V_T683V-VKORG(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=SAVE'.
    CONCATENATE 'V_T683V-KALSM(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-kalsm.
    CONCATENATE 'V_T683V-KARTV(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-kartv.
    CONCATENATE 'V_T683V-VKORG(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-vkorg.
    CONCATENATE 'V_T683V-VTWEG(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-vtweg.
    CONCATENATE 'V_T683V-SPART(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-spart.
    CONCATENATE 'V_T683V-KALVG(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-kalvg.
    CONCATENATE 'V_T683V-KALKS(' IDX ')' INTO FNAM.
     PERFORM bdc_field       USING FNAM
                                   itab-kalks.
PERFORM bdc_dynpro      USING 'SAPLSTRD' '0300'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'KO008-TRKORR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=LOCK'.
   PERFORM bdc_field       USING 'KO008-TRKORR'
                                   'D47K919377'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'V_T683V-VKORG(01)'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'V_T683V-VKORG(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=SAVE'.
CALL TRANSACTION 'OVKK' USING IT_BDCDATA
                        MODE 'A'
                       UPDATE 'S'
                     MESSAGES INTO IT_BDCMSGCOLL.
IDX = IDX + 1 .
endloop.
FORM BDC_DYNPRO USING PROG SCR.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROG.
IT_BDCDATA-DYNPRO = SCR.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
ENDFORM.
FORM BDC_FIELD USING FNAM FVAL.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDFORM.
I checked in debugging mode and found that data is passed to internal table but its not uploading data to OVKK, there no data is displayed.
Please tell me solution for this.....
regards,
ravindra.

Hi,
Look at the following link you will find some good example of Table control.
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
Here you need to take care to which line of table control you are populating the data.
Make sure to take care of page down in table control.
*********Try Call Transaction in MODE 'N'.
Check your OK_CODE once again.
Try to give BACk also after saving.
The Table control is mainly used to update no.of line items at one shot. No need to come BACK for each and every record.
Try to do recording in SHDB once again and see the changes closely.
Thanks.
If this helps you reward with points.
Message was edited by: KDeepak
Message was edited by: KDeepak

Uploading data in to standard SOP?????

Similar Messages

Maybe you are looking for