Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

BDC SESSION

Former Member

‎12-14-2006 9:19 AM

0 Kudos

Hi All,

I had developed BDC (Session) Program, While exection of this program i got one pop-up window with message like "BDCWAIT:78570394039"

i want prevent this pop-up window with message , plz guide me, how to avoid this

i look forward to your reply

Thanks

Hruday

2 REPLIES 2

Former Member

‎12-14-2006 9:24 AM

0 Kudos

Can you post your code???

Kind Regards

Eswar

Former Member
In response to Former Member

‎12-14-2006 9:45 AM

0 Kudos

Hi all,

Code......FYR...........

form session.

DATA: V_DATUM(10),

V_DATUM1 LIKE SY-DATUM,

V_DATE(8),

V_CHAR(10).

  • OPEN BDC.

PERFORM OPEN_BDC.

  • CLAER HEADER INFORMATION OF INTERNAL TABLE

CLEAR: IT_DATATAB.

  • PROCESS THE INTERNAL TABLE DATA

LOOP AT IT_DATATAB.

  • SCREEN 1 - INDICATE THE FINALCIAL HEADER INFORMATION.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0100'.

PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWUM'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BKPF-BLDAT' IT_DATATAB-BLDAT.

PERFORM BDC_FIELD USING 'BKPF-BLART' IT_DATATAB-BLART.

PERFORM BDC_FIELD USING 'BKPF-BUKRS' IT_DATATAB-BUKRS

PERFORM BDC_FIELD USING 'BKPF-BUDAT' IT_DATATAB-BUDAT.

PERFORM BDC_FIELD USING 'BKPF-MONAT' IT_DATATAB-MONAT.

PERFORM BDC_FIELD USING 'BKPF-WAERS' IT_DATATAB-WAERS.

PERFORM BDC_FIELD USING 'BKPF-BKTXT' IT_DATATAB-BKTXT.

PERFORM BDC_FIELD USING 'RF05A-NEWBS' IT_DATATAB-NEWBS1.

PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO1.

PERFORM BDC_FIELD USING 'RF05A-NEWUM' IT_DATATAB-NEWUM1.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0303'.

PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWKO1'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

PERFORM BDC_FIELD USING 'BSEG-WRBTR' IT_DATATAB-WRBTR1.

PERFORM BDC_FIELD USING 'BSEG-ZFBDT' IT_DATATAB-ZFBDT1.

PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR1.

PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT1.

PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO2.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0300'.

PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-SGTXT'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZK'.

PERFORM BDC_FIELD USING 'BSEG-VALUT' IT_DATATAB-VALUT2.

PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR2.

PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT2.

PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.

PERFORM BDC_FIELD USING 'DKACB-FMORE' 'X'.

PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.

PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'COBL-KDPOS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTE'.

PERFORM BDC_FIELD USING 'COBL-PS_POSID' IT_DATATAB-POSID.

PERFORM BDC_FIELD USING 'COBL-KDAUF' IT_DATATAB-KDAUF.

PERFORM BDC_FIELD USING 'COBL-KDPOS' IT_DATATAB-KDPOS.

PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0330'.

PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-LZBKZ'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=BU'.

  • SAVE TRANSACTION.

PERFORM INSERT_BDC USING 'FB01'.

ENDLOOP.

  • CLOSE BDC

PERFORM CLOSE_BDC.

ENDFORM.

*----

*

  • FORM OPEN_BDC

*----

FORM OPEN_BDC.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = P_GROUP

KEEP = 'X'

USER = SY-UNAME.

ENDFORM. " OPEN_BDC

*----

*

  • FORM CLOSE_BDC

*----

FORM CLOSE_BDC.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

ENDFORM. " CLOSE_BDC

*----

*

  • FORM BDC_DYNPRO

*----

FORM BDC_DYNPRO USING VALUE(PROGNAME) VALUE(DYNPRONR).

  • CLEAR HEADER-LINE.

CLEAR IT_BDCTAB.

  • INSERT DATA.

IT_BDCTAB-PROGRAM = PROGNAME.

IT_BDCTAB-DYNPRO = DYNPRONR.

IT_BDCTAB-DYNBEGIN = 'X'.

  • SAVE VALUE.

APPEND IT_BDCTAB.

ENDFORM. " BDC_DYNPRO

*----

*

  • FORM BDC_FIELD

*----

FORM BDC_FIELD USING VALUE(FIELDNAME) VALUE(FIELDVALUE).

  • CLEAR HEADER-LINE.

CLEAR IT_BDCTAB.

  • INSERT DATA.

IT_BDCTAB-FNAM = FIELDNAME.

IT_BDCTAB-FVAL = FIELDVALUE.

  • SAVE DATE.

APPEND IT_BDCTAB.

ENDFORM. " BDC_FIELD

*----

*

  • FORM BDC_CURSOR

*----

FORM BDC_CURSOR USING VALUE(FIELDNAME) VALUE(FIELDVALUE).

  • CLEAR HEADER-LINE.

CLEAR IT_BDCTAB.

  • INSERT DATA.

IT_BDCTAB-FNAM = FIELDNAME.

IT_BDCTAB-FVAL = FIELDVALUE.

  • SAVE DATA.

APPEND IT_BDCTAB.

ENDFORM. " BDC_CURSOR

*----

*

  • FORM INSERT_BDC

*----

FORM INSERT_BDC USING T_CODE.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = T_CODE

TABLES

DYNPROTAB = IT_BDCTAB.

REFRESH IT_BDCTAB.

CLEAR IT_BDCTAB.

ENDFORM. " INSERT_BDC

Plz guide me , i look forward to your reply

Thanks & Regards

Hruday