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

BDC SESSION METHOD EXPLAINED

Hi,

Eplained BDC Session Method

flat file upload into sap

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

6 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 02:02 AM

    Hi Sunil,

    Refer to help.sap.com or just search the forum you have lots of sample programs.

    Regards,

    Atish

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 08:03 AM
    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 08:31 AM

    Hi sunil,

    The below given code shows how a flat file can be uploaded through BDC..

    Here is a simple code which is very much clear to understand.

    REPORT ztesting.

    *Internal tabe to store upload data

    TYPES: BEGIN OF table1,

    ponumber LIKE ekpo-ebeln,

    vendor LIKE ekpo-idnlf,

    porg LIKE eine-ekorg,

    material LIKE ekpo-matnr,

    quantity LIKE ekpo-menge,

    price LIKE ekpo-netpr,

    expdeldat LIKE sy-datum,

    END OF table1.

    DATA: it_record TYPE STANDARD TABLE OF table1 INITIAL SIZE 0,

    wa_record TYPE table1.

    ********************Calling a function**********************

    CALL FUNCTION 'GUI_UPLOAD'

    EXPORTING

    filename = 'd:\hh.txt' (here the text file is saved in D drive with Tab delimiter which

    means giving <tab> between every input field.)

    has_field_separator = 'X' "file is TAB delimited

    TABLES

    data_tab = it_record

    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 NE 0.

    WRITE: 'Error ', sy-subrc, 'returned from GUI_UPLOAD FM'.

    SKIP.

    ENDIF.

    ****************************************************************

    *!! Text data is now contained within the internal table IT_RECORD

    WRITE: / 'PONumner',

    14'|Vendor',

    27'|Purc.Org',

    40'|Material',

    53'|Quantity',

    66'|Price',

    79'|ExpDelay Date'.

    ULINE.

    • Display report data for illustration purposes

    LOOP AT it_record INTO wa_record.

    WRITE:/ sy-vline,

    (10) wa_record-ponumber, sy-vline,

    (10) wa_record-vendor, sy-vline,

    (10) wa_record-porg, sy-vline,

    (10) wa_record-material, sy-vline,

    (10) wa_record-quantity, sy-vline,

    (10) wa_record-price, sy-vline,

    (10) wa_record-expdeldat .

    ENDLOOP.

    Uline.

    Reward if useful.

    Thankyou,

    Regards.

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 08:49 AM

    Hi Sunil,

    First i will explain the procedure step by step and will send a sample code plz check it once ok..And also i will attach a flat file at the end of SAMPLE CODE CHECK IT ONCE OK..

    Steps:

    1.Bulid an internal table first according to ur flat file fields.

    2.select the flat file by using PARAMETER.

    3.And assign that file path to GUI_UPLOAD function module.

    4.Call BDC_OPEN_GROUP is used to open the session.

    5.loop that flat file data and palce BDC_INSERT funtion module in that loop for uploading data into database table

    6.After loop call BDC_CLOSE_GROUP to close the session.

    SAMPLE CODE:

    REPORT ybdc_session_mm01 NO STANDARD PAGE HEADING LINE-SIZE 255.

    ----


    • Global Structure for BDC Data

    ----


    DATA: it_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

    ----


    • Internal Table

    ----


    DATA: BEGIN OF itab OCCURS 0,

    mbrsh LIKE rmmg1-mbrsh,

    mtart LIKE rmmg1-mtart,

    maktx LIKE makt-maktx,

    meins LIKE mara-meins,

    END OF itab.

    ----


    • Upload the flat file

    ----


    CALL FUNCTION 'GUI_UPLOAD'

    EXPORTING

    filename =

    'C:\Documents and Settings\Compaq_Owner\Desktop\satish\mm01.txt'

    filetype = 'ASC'

    has_field_separator = 'X'

    • HEADER_LENGTH = 0

    • READ_BY_LINE = 'X'

    • DAT_MODE = ' '

    • IMPORTING

    • FILELENGTH =

    • HEADER =

    TABLES

    data_tab = itab.

    • 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.

    • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

    • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

    ENDIF.

    ----


    • Session Method Starts

    • BDC_OPEN_GROUP

    ----


    CALL FUNCTION 'BDC_OPEN_GROUP'

    EXPORTING

    CLIENT = SY-MANDT

    • DEST = FILLER8

    GROUP = 'ychinnu'

    • HOLDDATE = FILLER8

    KEEP = 'X'

    USER = SY-UNAME

    • RECORD = FILLER1

    PROG = SY-CPROG

    • IMPORTING

    • QID =

    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.

    ENDIF.

    ----


    • Create BDCDATA Structure

    ----


    *include bdcrecx1.

    START-OF-SELECTION.

    • PERFORM open_group.

    loop at itab.

    PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

    PERFORM bdc_field USING 'BDC_CURSOR'

    'RMMG1-MTART'.

    PERFORM bdc_field USING 'BDC_OKCODE'

    '/00'.

    PERFORM bdc_field USING 'RMMG1-MBRSH'

    itab-mbrsh.

    PERFORM bdc_field USING 'RMMG1-MTART'

    itab-mtart.

    ----


    • After enterning MBRSH,MTART we press enter

    ----


    PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'. "press Enter

    PERFORM bdc_field USING 'BDC_CURSOR'

    'MSICHTAUSW-DYTXT(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'

    '=ENTR'.

    ----


    • View selection (Basic data1)

    ----


    PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'"view selection

    'X'.

    ----


    • Select Tick Mark (ok)

    ----


    PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

    PERFORM bdc_field USING 'BDC_OKCODE'

    '=BU'.

    PERFORM bdc_field USING 'MAKT-MAKTX'

    itab-maktx.

    PERFORM bdc_field USING 'BDC_CURSOR'

    'MARA-MEINS'.

    PERFORM bdc_field USING 'MARA-MEINS'

    itab-meins.

    ----


    • Finally after filling the data we save the data.

    ----


    PERFORM bdc_field USING 'MARA-MTPOS_MARA' "For saving

    'NORM'.

    • PERFORM bdc_transaction USING 'MM01'.

    *

    • PERFORM close_group.

    ----


    • BDC_INSERT

    ----


    CALL FUNCTION 'BDC_INSERT'

    EXPORTING

    TCODE = 'MM01'

    • POST_LOCAL = NOVBLOCAL

    • PRINTING = NOPRINT

    • SIMUBATCH = ' '

    • CTUPARAMS = ' '

    TABLES

    dynprotab = it_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.

    ----


    • Refresh BDCDATA

    ----


    refresh it_bdcdata.

    endloop.

    ----


    • Closing BDC 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.

    ----


    • Start new screen *

    ----


    FORM bdc_dynpro USING program dynpro.

    CLEAR it_bdcdata.

    it_bdcdata-program = program.

    it_bdcdata-dynpro = dynpro.

    it_bdcdata-dynbegin = 'X'.

    APPEND it_bdcdata.

    ENDFORM. "BDC_DYNPRO

    ----


    • Insert field *

    ----


    FORM bdc_field USING fnam fval.

    • IF FVAL <> NODATA.

    CLEAR it_bdcdata.

    it_bdcdata-fnam = fnam.

    it_bdcdata-fval = fval.

    APPEND it_bdcdata.

    • ENDIF.

    ENDFORM. "BDC_FIELD

    ----


    • Flat File

    ----


    *M FERT IRON KG

    *M ROH STEEL KG

    *M HALB IRON KG

    ----


    Award points if helpful.

    Kiran Kumar.G.A

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 08:57 AM

    ABAP BDC SESSION METHOD SAMPLE CODE

    • pool of form routines

    include zmppn001.

    • Define BDC Table Structure

    data: begin of itab_bdc_tab occurs 0.

    include structure bdcdata.

    data: end of itab_bdc_tab.

    • Input record layout of Leagcy File

    data: begin of itab_xcel occurs 0,

    matnr(18) type c,

    werks(4) type c,

    alnag(2) type c,

    verid(4) type c,

    text1(40) type c,

    bstmi like mkal-bstmi,

    bstma like mkal-bstma,

    adatu(10) type c,

    bdatu(10) type c,

    stlal(2) type c,

    stlan(1) type c,

    serkz(1) type c,

    mdv01(8) type c,

    elpro(4) type c,

    alort(4) type c,

    end of itab_xcel.

    data: begin of lt_pp04_cache occurs 0,

    matnr like itab_xcel-matnr,

    werks like itab_xcel-werks,

    alnag like itab_xcel-alnag,

    plnnr like mapl-plnnr,

    arbpl like crhd-arbpl,

    ktext like crtx-ktext,

    end of lt_pp04_cache.

    data: v_ssnnr(4) type n,

    v_lines_in_xcel like sy-tabix,

    v_ssnname like apqi-groupid,

    v_trans_in_ssn type i,

    • wa_xcel LIKE itab_xcel,

    l_tabix like sy-tabix,

    v_matnr like rc27m-matnr,

    v_plnnr like mapl-plnnr,

    v_plnal like mapl-plnal,

    v_tcode like sy-tcode value 'C223',

    v_plnty like plas-plnty value 'R',

    v_objty like crhd-objty value 'A',

    v_plpo_steus like plpo-steus value 'PP04',

    v_verwe like crhd-verwe value '0007'.

    • Parameters

    selection-screen: skip 3.

    selection-screen: begin of block 1 with frame.

    *

    parameters: p_name like rlgrap-filename

    default 'C:\My Documents\InputFile.txt'

    obligatory,

    • bdc session name prefix

    p_bdcpfx(6) default 'ZPVCRT'

    obligatory,

    • number for transction per BDC session

    p_trnssn type i

    default 2000 obligatory,

    • retain the BDC session after successfull execution

    p_keep like apqi-qerase

    default 'X',

    • user who will be executing BDC session

    p_uname like apqi-userid

    default sy-uname

    obligatory.

    *

    selection-screen: end of block 1.

    *

    ********************************************************

    ********************************************************

    *

    • possible entry list (F4 dropdown) for input file name

    at selection-screen on value-request for p_name.

    *-SELECT FILE FROM USERS LOCAL PC

    call function 'WS_FILENAME_GET'

    exporting

    • DEF_FILENAME = ' '

    def_path = 'C:\Temp\'

    mask = ',.,..'

    mode = 'O'

    title = 'Select File '(007)

    importing

    filename = p_name

    • RC =

    exceptions

    inv_winsys = 1

    no_batch = 2

    selection_cancel = 3

    selection_error = 4

    others = 5.

    if sy-subrc <> 0.

    • MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

    • WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    endif.

    *

    ********************************************************

    ********************************************************

    *

    • begin the show 😊

    *

    start-of-selection.

    • read data from input file

    perform transfer_xcel_to_itab.

    *

    *

    loop at itab_xcel.

    • hang on to xcel line num

    l_tabix = sy-tabix.

    • each line in the xcel file marks begining of new prod.version defn

    • if num-of-trnas-in-session = 0, create new BDC session

    if v_trans_in_ssn is initial.

    perform bdc_session_open.

    endif.

    • begin new bdc script for rtg create trans

    • fill in bdc-data for prod.version maintenance screens

    perform bdc_build_script.

    • insert the bdc script as a BDC transaction

    perform bdc_submit_transaction.

    • keep track of how many BDC transactions were inserted in the BDC

    • session

    add 1 to v_trans_in_ssn.

    • if the user-specified num of trans in BDC session is reached OR

    • if end of input file is reached, close the BDC session

    if v_trans_in_ssn = p_trnssn or

    l_tabix = v_lines_in_xcel.

    perform bdc_session_close.

    clear v_trans_in_ssn.

    endif.

    endloop.

    top-of-page.

    call function 'Z_HEADER'

    • EXPORTING

    • FLEX_TEXT1 =

    • FLEX_TEXT2 =

    • FLEX_TEXT3 =

    .

    ----


    • FORM TRANSFER_XCEL_TO_ITAB *

    ----


    • Transfer Xcel Spreadsheet to SAP Internal Table *

    ----


    form transfer_xcel_to_itab.

    *

    • Read the tab-delimited file into itab

    call function 'WS_UPLOAD'

    exporting

    filename = p_name

    filetype = 'DAT'

    • IMPORTING

    • filelength = flength

    tables

    data_tab = itab_xcel

    exceptions

    conversion_error = 1

    file_open_error = 2

    file_read_error = 3

    invalid_table_width = 4

    invalid_type = 5

    no_batch = 6

    unknown_error = 7

    others = 8.

    *

    if sy-subrc = 0.

    • sort the data

    sort itab_xcel by matnr werks.

    clear v_lines_in_xcel.

    • if no data in the file - error out

    describe table itab_xcel lines v_lines_in_xcel.

    if v_lines_in_xcel is initial.

    write: / 'No data in input file'.

    stop.

    endif.

    else.

    • if file upload failed - error out

    write: / 'Error reading input file'.

    stop.

    endif.

    endform.

    ----


    • FORM BDC_SESSION_OPEN *

    ----


    • Open BDC Session *

    ----


    form bdc_session_open.

    • create bdc session name = prefix-from-selectn-screen + nnnn

    add 1 to v_ssnnr.

    concatenate p_bdcpfx v_ssnnr into v_ssnname.

    • open new bdc session

    call function 'BDC_OPEN_GROUP'

    exporting

    client = sy-mandt

    group = v_ssnname

    keep = p_keep

    user = p_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.

    endform.

    ----


    • FORM BDC_BUILD_SCRIPT *

    ----


    • Build BDC *

    ----


    form bdc_build_script.

    data: l_arbpl like crhd-arbpl,

    l_text1 like mkal-text1,

    l_mdv01 like mkal-mdv01,

    l_mapl like mapl.

    • clear bdc-data itab - begin of new bdc transaction

    clear itab_bdc_tab.

    refresh itab_bdc_tab.

    *

    • read material cross reference tables to determine sap part#

    clear : v_matnr, v_plnnr, v_plnal.

    perform read_matnr_cross_ref using itab_xcel-matnr

    itab_xcel-werks

    changing v_matnr.

    *

    • determine the version description to use

    if itab_xcel-text1 is initial.

    l_text1 = itab_xcel-verid.

    else.

    l_text1 = itab_xcel-text1.

    endif.

    • determine the routing group# and group ctr# to use

    perform read_routing .

    *

    • determine the production line to use

    if itab_xcel-mdv01 is initial.

    • if not provided in the file then:

    • prod line = work ctr on the last PP04 op of the rtg determined above

    perform read_wc_on_last_pp04 using v_plnnr v_plnal

    changing l_mdv01.

    • NOTE: when executing the above form\routine, if v_plnnr is initial

    • or v_plnal is initial, THEN l_mdv01 will automatically be

    • returned blank (ie initial)

    else.

    l_mdv01 = itab_xcel-mdv01.

    endif.

    *

    • build bdc script

    perform bdc_build_script_record

    *

    • fill in initial screen

    using: 'X' 'SAPLCMFV' '1000',

    ' ' 'BDC_OKCODE' '=ENTE',

    ' ' 'MKAL-WERKS' itab_xcel-werks,

    ' ' 'MKAL-MATNR' v_matnr,

    ' ' 'MKAL_ADMIN-DISPO' space,

    ' ' 'MKAL-PLNNR' space,

    ' ' 'MKAL_ADMIN-STTAG' space,

    ' ' 'MKAL-PLNNG' space,

    ' ' 'MKAL-MDV01' space,

    ' ' 'MKAL-PLNNM' space,

    • click create button on initial screen and go to detail screen

    'X' 'SAPLCMFV' '1000',

    ' ' 'BDC_OKCODE' '=CREA',

    • fill in the detail screen and go back to initial screen

    'X' 'SAPLCMFV' '2000',

    ' ' 'BDC_OKCODE' '=CLOS',

    ' ' 'MKAL_EXPAND-MATNR' v_matnr,

    ' ' 'MKAL_EXPAND-VERID' itab_xcel-verid,

    ' ' 'MKAL_EXPAND-TEXT1' l_text1,

    ' ' 'MKAL_EXPAND-BSTMI' itab_xcel-bstmi,

    ' ' 'MKAL_EXPAND-BSTMA' itab_xcel-bstma,

    ' ' 'MKAL_EXPAND-ADATU' itab_xcel-adatu,

    ' ' 'MKAL_EXPAND-BDATU' itab_xcel-bdatu,

    ' ' 'MKAL_EXPAND-PLTYG' v_plnty,

    ' ' 'MKAL_EXPAND-PLNNG' v_plnnr,

    ' ' 'MKAL_EXPAND-ALNAG' v_plnal,

    ' ' 'MKAL_EXPAND-STLAL' itab_xcel-stlal,

    ' ' 'MKAL_EXPAND-STLAN' itab_xcel-stlan,

    ' ' 'MKAL_EXPAND-SERKZ' itab_xcel-serkz,

    ' ' 'MKAL_EXPAND-MDV01' l_mdv01,

    ' ' 'MKAL_EXPAND-ELPRO' itab_xcel-elpro,

    ' ' 'MKAL_EXPAND-ALORT' itab_xcel-alort,

    • save the production version from initial screen

    'X' 'SAPLCMFV' '1000',

    ' ' 'BDC_OKCODE' '=SAVE'.

    *

    endform.

    ----


    • FORM BDC_SUBMIT_TRANSACTION *

    ----


    • Submit BDC Session *

    ----


    form bdc_submit_transaction.

    • Load BDC script as a trqansction in BDC session

    call function 'BDC_INSERT'

    exporting

    tcode = v_tcode

    tables

    dynprotab = itab_bdc_tab

    exceptions

    internal_error = 01

    not_open = 02

    queue_error = 03

    tcode_invalid = 04.

    endform.

    ----


    • FORM BDC_BUILD_SCRIPT_RECORD *

    ----


    form bdc_build_script_record using dynbegin name value.

    clear itab_bdc_tab.

    if dynbegin = 'X'.

    move: name to itab_bdc_tab-program,

    value to itab_bdc_tab-dynpro,

    'X' to itab_bdc_tab-dynbegin.

    else.

    move: name to itab_bdc_tab-fnam,

    value to itab_bdc_tab-fval.

    shift itab_bdc_tab-fval left deleting leading space.

    endif.

    append itab_bdc_tab.

    endform.

    ----


    • FORM BDC_SESSION_CLOSE *

    ----


    • Close BDC Session *

    ----


    form bdc_session_close.

    • close the session

    call function 'BDC_CLOSE_GROUP'

    exceptions

    not_open = 1

    queue_error = 2

    others = 3.

    skip 2.

    if sy-subrc ne 0.

    write: / 'Error Closing BDC Session ' , 'RETURN CODE: ', sy-subrc.

    else.

    write : / 'Session created:', v_ssnname,

    50 '# of transactions:', v_trans_in_ssn.

    endif.

    endform.

    &----


    *& Form read_routing_cache

    &----


    *FORM read_routing_cache USING pi_matnr

    • pi_werks

    • pi_alnag

    • pi_verid

    • pi_mdv01.

    *

    • DATA: BEGIN OF lt_plpo OCCURS 0,

    • vornr LIKE plpo-vornr,

    • objty LIKE crhd-objty,

    • objid LIKE crhd-objid,

    • arbpl LIKE crhd-arbpl,

    • END OF lt_plpo,

    • l_mapl_plnnr LIKE mapl-plnnr.

    *

    • determine the routing group#

  • CLEAR lt_pp04_cache.

    • chk if its in the cache first, if not then get it from MAPL table

    • and put it in the cache

  • READ TABLE lt_pp04_cache WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • IF sy-subrc = 0.

    • do nothing - lt_pp04_cache header line has rtg#

  • ELSE.

    • get the routing group # from MAPL

  • SELECT plnnr INTO l_mapl_plnnr

  • FROM mapl UP TO 1 ROWS

  • WHERE matnr = pi_matnr AND

  • werks = pi_werks AND

  • plnty = 'R' AND

  • plnal = pi_alnag AND

  • loekz = space.

  • ENDSELECT.

    • put it in the cache internal table

  • IF NOT l_mapl_plnnr IS INITIAL.

  • lt_pp04_cache-matnr = pi_matnr.

  • lt_pp04_cache-werks = pi_werks.

  • lt_pp04_cache-alnag = pi_alnag.

  • lt_pp04_cache-plnnr = l_mapl_plnnr.

  • APPEND lt_pp04_cache.

  • ENDIF.

  • ENDIF.

  • *

    • if the rtg# was determined AND

    • -- the work center was not determined yet AND

    • -- work center was really needed for this line in the input file

    • then

    • -- read the work center from last PP04 operation on the routing

    • -- update the cache accordingly

    *

    *

    • IF NOT lt_pp04_cache-plnnr IS INITIAL AND

    • lt_pp04_cache-arbpl IS INITIAL AND

    • ( pi_verid IS INITIAL OR

    • pi_mdv01 IS INITIAL ).

    *

    • read the last PP04 operation

  • CLEAR lt_plpo.

  • REFRESH lt_plpo.

  • SELECT vornr eobjty eobjid e~arbpl

  • INTO CORRESPONDING FIELDS OF TABLE lt_plpo

  • FROM plas AS b

  • INNER JOIN plpo AS c

  • ON bplnty = cplnty AND

  • bplnnr = cplnnr AND

  • bzaehl = czaehl

  • INNER JOIN crhd AS e

  • ON carbid = eobjid

  • WHERE b~plnty = v_plnty AND

  • b~plnnr = lt_pp04_cache-plnnr AND

  • b~plnal = lt_pp04_cache-alnag AND

  • c~loekz = space AND

  • c~steus = v_plpo_steus AND

  • e~objty = v_objty AND

  • e~werks = lt_pp04_cache-werks AND

  • e~verwe = v_verwe.

  • SORT lt_plpo BY vornr DESCENDING.

  • READ TABLE lt_plpo INDEX 1.

  • **

    • IF NOT lt_plpo-arbpl IS INITIAL.

    • lt_pp04_cache-arbpl = lt_plpo-arbpl.

    • read work center description

  • SELECT SINGLE ktext INTO lt_pp04_cache-ktext

  • FROM crtx WHERE objty = lt_plpo-objty AND

  • objid = lt_plpo-objid AND

  • spras = sy-langu.

    • the following read will get the index of the correct record to be

    • updated in the cache

  • READ TABLE lt_pp04_cache

  • WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • MODIFY lt_pp04_cache

  • INDEX sy-tabix

  • TRANSPORTING arbpl ktext.

  • ENDIF.

  • ENDIF.

  • *

    *ENDFORM. " read_last_pp04_operation_cache

    &----


    *& Form read_routing

    &----


    form read_routing.

    data: begin of lt_mapl occurs 0,

    plnnr like mapl-plnnr,

    plnal like mapl-plnal,

    end of lt_mapl,

    l_arbpl like crhd-arbpl.

    • get all the rtg# and grp ctr# from MAPL

    select plnnr plnal

    into corresponding fields of table lt_mapl

    from mapl

    where matnr = v_matnr and

    werks = itab_xcel-werks and

    plnty = v_plnty and "Rate Routing

    loekz = space. "with del flag = OFF

    sort lt_mapl by plnal.

    if not itab_xcel-verid is initial.

    • if the verid=0001 then use the 1st good rtg-grp# and grp-ctr#

    if itab_xcel-verid = '0001'.

    read table lt_mapl index 1.

    v_plnnr = lt_mapl-plnnr.

    v_plnal = lt_mapl-plnal.

    else.

    • if the verid<>0001 then use the rtg-grp# and grp-ctr# of the routing

    • whose work center on the last PP04 operation matches the given verid

    loop at lt_mapl.

    clear l_arbpl.

    • get the work center from the last PP04 operation

    perform read_wc_on_last_pp04 using lt_mapl-plnnr

    lt_mapl-plnal

    changing l_arbpl.

    *

    if itab_xcel-verid = l_arbpl.

    v_plnnr = lt_mapl-plnnr.

    v_plnal = lt_mapl-plnal.

    exit.

    endif.

    endloop.

    endif.

    else.

    • do nothing

    endif.

    • For version IDs that are other then '0000' or 'ZWIP' :--

    if itab_xcel-verid NE '0000' and

    itab_xcel-verid NE 'ZWIP'.

    • if routing group# or group counter was not determined, make the

    • valid-to date 99/99/9999 so that the BDC, on execution, errors out.

    if v_plnnr is initial or

    v_plnal is initial.

    itab_xcel-bdatu = '99/99/9999'.

    endif.

    endif.

    • determine the routing group#

  • CLEAR lt_pp04_cache.

    • chk if its in the cache first, if not then get it from MAPL table

    • and put it in the cache

  • READ TABLE lt_pp04_cache WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • IF sy-subrc = 0.

    • do nothing - lt_pp04_cache header line has rtg#

  • ELSE.

    • get the routing group # from MAPL

    • put it in the cache internal table

  • IF NOT l_mapl_plnnr IS INITIAL.

  • lt_pp04_cache-matnr = pi_matnr.

  • lt_pp04_cache-werks = pi_werks.

  • lt_pp04_cache-alnag = pi_alnag.

  • lt_pp04_cache-plnnr = l_mapl_plnnr.

  • APPEND lt_pp04_cache.

  • ENDIF.

  • ENDIF.

  • *

    • if the rtg# was determined AND

    • -- the work center was not determined yet AND

    • -- work center was really needed for this line in the input file

    • then

    • -- read the work center from last PP04 operation on the routing

    • -- update the cache accordingly

    *

    *

    • IF NOT lt_pp04_cache-plnnr IS INITIAL AND

    • lt_pp04_cache-arbpl IS INITIAL AND

    • ( pi_verid IS INITIAL OR

    • pi_mdv01 IS INITIAL ).

    *

    • read the last PP04 operation

  • CLEAR lt_plpo.

  • REFRESH lt_plpo.

  • SELECT vornr eobjty eobjid e~arbpl

  • INTO CORRESPONDING FIELDS OF TABLE lt_plpo

  • FROM plas AS b

  • INNER JOIN plpo AS c

  • ON bplnty = cplnty AND

  • bplnnr = cplnnr AND

  • bzaehl = czaehl

  • INNER JOIN crhd AS e

  • ON carbid = eobjid

  • WHERE b~plnty = v_plnty AND

  • b~plnnr = lt_pp04_cache-plnnr AND

  • b~plnal = lt_pp04_cache-alnag AND

  • c~loekz = space AND

  • c~steus = v_plpo_steus AND

  • e~objty = v_objty AND

  • e~werks = lt_pp04_cache-werks AND

  • e~verwe = v_verwe.

  • SORT lt_plpo BY vornr DESCENDING.

  • READ TABLE lt_plpo INDEX 1.

  • **

    • IF NOT lt_plpo-arbpl IS INITIAL.

    • lt_pp04_cache-arbpl = lt_plpo-arbpl.

    • read work center description

  • SELECT SINGLE ktext INTO lt_pp04_cache-ktext

  • FROM crtx WHERE objty = lt_plpo-objty AND

  • objid = lt_plpo-objid AND

  • spras = sy-langu.

    • the following read will get the index of the correct record to be

    • updated in the cache

  • READ TABLE lt_pp04_cache

  • WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • MODIFY lt_pp04_cache

  • INDEX sy-tabix

  • TRANSPORTING arbpl ktext.

  • ENDIF.

  • ENDIF.

  • endform. " read_last_pp04_operation_cache

    &----


    *& Form read_wc_on_last_pp04

    &----


    form read_wc_on_last_pp04 using pi_plnnr

    pi_plnal

    changing pe_arbpl.

    data: begin of lt_plpo occurs 0,

    vornr like plpo-vornr,

    objty like crhd-objty,

    objid like crhd-objid,

    arbpl like crhd-arbpl,

    end of lt_plpo.

    • get all the PP04 operations for the given rtg# & grp-ctr#

    select vornr eobjty eobjid e~arbpl

    into corresponding fields of table lt_plpo

    from plas as b

    inner join plpo as c

    on bplnty = cplnty and

    bplnnr = cplnnr and

    bzaehl = czaehl

    inner join crhd as e

    on carbid = eobjid

    where b~plnty = v_plnty and "Rate Routing

    b~plnnr = pi_plnnr and

    b~plnal = pi_plnal and

    c~loekz = space and "Oper Del Flag = OFF

    c~steus = v_plpo_steus and "PP04

    e~objty = v_objty. "WC Obj Type = 'A'

    • read the last operation

    sort lt_plpo by vornr descending.

    read table lt_plpo index 1.

    pe_arbpl = lt_plpo-arbpl.

    endform.

    Regards.

Add a comment
10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 09, 2008 at 08:59 AM

    BDC:

    Batch Data Communication (BDC) is the process of transferring data from one SAP System to another SAP system or from a non-SAP system to SAP System.

    Features :

    BDC is an automatic procedure.

    This method is used to transfer large amount of data that is available in electronic medium.

    BDC can be used primarily when installing the SAP system and when transferring data from a legacy system (external system).

    BDC uses normal transaction codes to transfer data.

    Types of BDC :

    CLASSICAL BATCH INPUT (Session Method)

    CALL TRANSACTION

    Session method.

    1) synchronous processing.

    2) can tranfer large amount of data.

    3) processing is slower.

    4) error log is created

    5) data is not updated until session is processed.

    Call transaction.

    1) asynchronous processing

    2) can transfer small amount of data

    3) processing is faster.

    4) errors need to be handled explicitly

    5) data is updated automatically

    Reward points if useful.

    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.