Skip to Content
author's profile photo Former Member
Former Member

BDC Program for customer master data

Hi Experts,

Please provide me the BDC Program to upload the customer master data.....

Thanks in advance,

Saleem.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

1 Answer

  • author's profile photo Former Member
    Former Member
    Posted on Nov 22, 2007 at 11:53 AM

    See the BDC sample code Customer Master Upload:

    report ZSDBDCP_CUSTOMER_VD01

    no standard page heading

    line-size 255.

    ----


    *Includes

    ----


    include zbdcrecx1.

    ----


    *Internal Tables

    ----


    *-- Internal Table to hold customer data

    Data : begin of it_customer occurs 0,

    f1(4), " Sales Org.

    f2(2), " Distribution Channel

    f3(2), " Division

    f4(4), " Acct Group

    f5(30), " Tittle

    f6(40), " Name1

    f7(40), " Name2

    f8(20), " Search Term 1

    f9(20), " Search Term 2

    f10(10), " Postal Code

    f11(40), " City

    f12(3), " Country

    f13(2), " Language

    f14(2), " Shipping Condition

    end of it_customer.

    ----


    *Start of selection

    ----


    start-of-selection.

    Clear it_customer.

    Refresh it_customer.

    *To Upload Flat file

    • CALL FUNCTION 'UPLOAD'

    • EXPORTING

    • filename = 'C:\WINDOWS\Desktop\cst_vd01.txt'

    • filetype = 'DAT'

    • TABLES

    • data_tab = it_customer

    • EXCEPTIONS

    • conversion_error = 1

    • invalid_table_width = 2

    • invalid_type = 3

    • no_batch = 4

    • unknown_error = 5

    • gui_refuse_filetransfer = 6

    • OTHERS = 7.

    WRITE : / 'Upload of Customer Ext. from ', P_FNAME, ' on ', SY-DATUM.

    perform open_group.

    OPEN DATASET P_FNAME FOR INPUT IN TEXT MODE.

    if sy-subrc ne 0.

    write : / 'File could not be uploaded.. Check file name.'.

    stop.

    endif.

    CLEAR : IT_CUSTOMER[], IT_CUSTOMER.

    DO.

    READ DATASET P_FNAME INTO V_STR.

    IF SY-SUBRC NE 0.

    EXIT.

    ENDIF.

    • write v_str.

    • translate v_str using '#/'.

    SPLIT V_STR AT ',' INTO IT_CUSTOMER-F1 IT_CUSTOMER-F2 IT_CUSTOMER-F3

    IT_CUSTOMER-F4 IT_CUSTOMER-F5 IT_CUSTOMER-F6

    IT_CUSTOMER-F7 IT_CUSTOMER-F8 IT_CUSTOMER-F9

    IT_CUSTOMER-F10

    IT_CUSTOMER-F11 IT_CUSTOMER-F12

    IT_CUSTOMER-F13 IT_CUSTOMER-F14.

    APPEND IT_CUSTOMER.

    CLEAR IT_CUSTOMER.

    ENDDO.

    IF IT_CUSTOMER[] IS INITIAL.

    WRITE : / 'No data found to upload'.

    STOP.

    ENDIF.

    loop at it_customer.

    perform bdc_dynpro using 'SAPMF02D' '0107'.

    perform bdc_field using 'BDC_CURSOR'

    'USE_ZAV'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'RF02D-VKORG'

    it_customer-f1.

    perform bdc_field using 'RF02D-VTWEG'

    it_customer-f2.

    perform bdc_field using 'RF02D-SPART'

    it_customer-f3.

    perform bdc_field using 'RF02D-KTOKD'

    it_customer-f4.

    perform bdc_field using 'RF02D-REF_KUNNR'

    ''.

    perform bdc_field using 'RF02D-REF_VKORG'

    ''.

    perform bdc_field using 'RF02D-REF_VTWEG'

    ''.

    perform bdc_field using 'RF02D-REF_SPART'

    ''.

    perform bdc_field using 'USE_ZAV'

    'X'.

    perform bdc_dynpro using 'SAPMF02D' '0111'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_field using 'BDC_CURSOR'

    'ADDR1_DATA-POST_CODE1'.

    perform bdc_field using 'SZA1_D0100-TITLE_MEDI'

    it_customer-f5.

    perform bdc_field using 'ADDR1_DATA-NAME1'

    it_customer-f6.

    perform bdc_field using 'ADDR1_DATA-NAME2'

    it_customer-f7.

    perform bdc_field using 'ADDR1_DATA-SORT1'

    it_customer-f8.

    perform bdc_field using 'ADDR1_DATA-SORT2'

    it_customer-f9.

    perform bdc_field using 'ADDR1_DATA-POST_CODE1'

    it_customer-f10.

    perform bdc_field using 'ADDR1_DATA-CITY1'

    it_customer-f11.

    perform bdc_field using 'ADDR1_DATA-COUNTRY'

    it_customer-f12.

    perform bdc_field using 'ADDR1_DATA-LANGU'

    it_customer-f13.

    perform bdc_dynpro using 'SAPMF02D' '0120'.

    perform bdc_field using 'BDC_CURSOR'

    'KNA1-LIFNR'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_dynpro using 'SAPMF02D' '0125'.

    perform bdc_field using 'BDC_CURSOR'

    'KNA1-NIELS'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_dynpro using 'SAPMF02D' '0340'.

    perform bdc_field using 'BDC_CURSOR'

    'KNVA-ABLAD(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_dynpro using 'SAPMF02D' '0370'.

    perform bdc_field using 'BDC_CURSOR'

    'KNEX-LNDEX(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_field using 'KNA1-CIVVE'

    'X'.

    perform bdc_dynpro using 'SAPMF02D' '0360'.

    perform bdc_field using 'BDC_CURSOR'

    'KNVK-NAMEV(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_dynpro using 'SAPMF02D' '0310'.

    perform bdc_field using 'BDC_CURSOR'

    'KNVV-BEGRU'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_dynpro using 'SAPMF02D' '0315'.

    perform bdc_field using 'BDC_CURSOR'

    'KNVV-ANTLF'.

    perform bdc_field using 'BDC_OKCODE'

    '=VW'.

    perform bdc_field using 'KNVV-KZAZU'

    'X'.

    perform bdc_field using 'KNVV-VSBED'

    it_customer-f14.

    perform bdc_field using 'KNVV-ANTLF'

    ''.

    perform bdc_dynpro using 'SAPMF02D' '0324'.

    perform bdc_field using 'BDC_CURSOR'

    'KNVP-PARVW(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=UPDA'.

    *--To call Transaction

    perform bdc_transaction using 'VD01'.

    endloop.

    perform close_group.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.