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

manual bdc program

iam working on manual bdc program.

if we want to create a manual bdc program, shoudle we need a module pool program , screen no and transaction code?

so first should we want to create all these?

clear my doubts pls..

Regards,

pandu.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

1 Answer

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Sep 10, 2007 at 04:07 AM

    Hi ,

    BDC are programs used to automate data entry through transactions.

    So in order to write a BDC program we need to know the transaction name , the sequence in which the screens are called in the transaction and the fields in the transaction that need to be populated.

    Regadrs

    Arun

    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member Former Member

      Hi arun,

      i written the program .. can u pls check is it correct or not ?

      bye iam not getting any output.

      pls help me what should i do?

      here is the program

      REPORT ZBDCVENDOR

      no standard page heading line-size 255 .

      DATA: BEGIN OF ITAB OCCURS 2,

      LIFNR_001(016) TYPE C,

      EKORG_002(004) TYPE C,

      KTOKK_003(004) TYPE C,

      ANRED_004(015) TYPE C,

      NAME1_005(035) TYPE C,

      SORTL_006(010) TYPE C,

      LAND1_007(003) TYPE C,

      SPRAS_008(002) TYPE C,

      WAERS_009(005) TYPE C,

      END OF ITAB.

      DATA BDC LIKE BDCDATA OCCURS 2 WITH HEADER LINE.

      start-of-selection.

      *perform open_dataset using dataset.

      perform open_group.

      PERFORM READ_DATA.

      LOOP AT ITAB.

      CLEAR BDC.

      REFRESH BDC.

      perform BDC_DYNPRO using 'SAPMF02K' '0100'.

      perform bdc_field using 'BDC_CURSOR' 'RF02K-KTOKK'.

      perform bdc_field using 'BDC_OKCODE' '/00'.

      perform bdc_field using 'RF02K-LIFNR' ITAB-LIFNR_001.

      perform bdc_field using 'RF02K-EKORG' ITAB-EKORG_002.

      perform bdc_field using 'RF02K-KTOKK' ITAB-KTOKK_003.

      perform bdc_dynpro using 'SAPMF02K' '0110'.

      perform bdc_field using 'BDC_CURSOR' 'LFA1-SPRAS'.

      perform bdc_field using 'BDC_OKCODE' '/00'.

      perform bdc_field using 'LFA1-ANRED' ITAB-ANRED_004.

      perform bdc_field using 'LFA1-NAME1' ITAB-NAME1_005.

      perform bdc_field using 'LFA1-SORTL' ITAB-SORTL_006.

      perform bdc_field using 'LFA1-LAND1' ITAB-LAND1_007.

      perform bdc_field using 'LFA1-SPRAS' ITAB-SPRAS_008.

      perform bdc_dynpro using 'SAPMF02K' '0120'.

      perform bdc_field using 'BDC_CURSOR' 'LFA1-KUNNR'.

      perform bdc_field using 'BDC_OKCODE' '/00'.

      perform bdc_dynpro using 'SAPMF02K' '0130'.

      perform bdc_field using 'BDC_CURSOR' 'LFBK-BANKS(01)'.

      perform bdc_field using 'BDC_OKCODE' '=ENTR'.

      perform bdc_dynpro using 'SAPMF02K' '0310'.

      perform bdc_field using 'BDC_CURSOR' 'LFM1-WAERS'.

      perform bdc_field using 'BDC_OKCODE' '/00'.

      perform bdc_field using 'LFM1-WAERS' ITAB-WAERS_009.

      perform bdc_dynpro using 'SAPMF02K' '0320'.

      perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.

      perform bdc_field using 'BDC_OKCODE' '=ENTR'.

      perform bdc_dynpro using 'SAPLSPO1' '0300'.

      perform bdc_field using 'BDC_OKCODE' '=YES'.

      *perform bdc_transaction using 'XK01'.

      ENDLOOP.

      perform close_group.

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

      • FIRST FM -- OPEN GROUP

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

      FORM OPEN_GROUP.

      CALL FUNCTION 'BDC_OPEN_GROUP'

      EXPORTING

      CLIENT = SY-MANDT

      GROUP = 'TEST'

      KEEP = 'X'

      USER = 'SAPUSER'.

      ENDFORM. "OPEN GROUP

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

      • SECOND FM -- READ_DATA

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

      FORM READ_DATA.

      CALL FUNCTION 'GUI_UPLOAD'

      EXPORTING

      FILENAME = 'H:\EMP.TXT'

      FILETYPE = 'ASC'

      TABLES

      DATA_TAB = ITAB.

      ENDFORM. "READ DATA

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

      • THIRD FM -- BDC_DYNPRO

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

      FORM BDC_DYNPRO USING P_PROG

      P_SCR.

      BDC-PROGRAM = P_PROG.

      BDC-DYNPRO = P_SCR.

      BDC-DYNBEGIN = 'X'.

      APPEND BDC.

      ENDFORM. "BDC_DYNPRO

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

      • FOURTH FM -- BDC_FILED

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

      FORM BDC_FIELD USING P_FNAM

      P_FVAL.

      CLEAR BDC.

      BDC-FNAM = P_FNAM.

      BDC-FVAL = P_FVAL.

      APPEND BDC.

      ENDFORM. "BDC_FIELD

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

      • FIFTH FM -- CLOSE_GROUP

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

      FORM CLOSE_GROUP.

      CALL FUNCTION 'BDC_CLOSE_GROUP'.

      ENDFORM. " CLOSE_GROUP

      Regards,

      pandu.

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.