call transaction BDC

Former Member — Thu, 24 Apr 2008 08:49:25 GMT

hi gurus,

plz help me in the codes of bdc call transaction using F-27

tcode

my programms code does not execute plz help me i send u the programm code

REPORT zdata.

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

I N T E R N A L T A B L E *

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

DATA: BEGIN OF lt_output OCCURS 0,

bldat TYPE bkpf-bldat,

blart TYPE bkpf-blart,

bukrs TYPE bkpf-bukrs,

budat TYPE bkpf-budat,

monat TYPE bkpf-monat,

waers TYPE bkpf-waers,

xblnr TYPE bkpf-xblnr,

docid TYPE fs006-docid,

newbs TYPE rf05a-newbs,

newko TYPE rf05a-newko,

wrbtr TYPE bseg-wrbtr,

zfbdt TYPE bseg-zfbdt,

newbs2 TYPE rf05a-newbs,

newko2 TYPE rf05a-newko,

wrbtr2 TYPE bseg-wrbtr,

END OF lt_output.

*DATA lt_output TYPE it_output OCCURS 0 WITH HEADER LINE.

DATA it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE.

DATA it_messtab LIKE bdcmsgcoll OCCURS 1 WITH HEADER LINE.

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

D A T A *

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

DATA: message TYPE string.

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

S E L E C T - O P T I O N S / P A R A M E T E R S *

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

SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME.

PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN END OF BLOCK block0.

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

A T S E L E C T I O N - S C R E E N *

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

static = 'X'

mask = space

CHANGING

file_name = p_file.

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

S T A R T - O F - S E L E C T I O N

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

START-OF-SELECTION.

PERFORM upload.

PERFORM bdc.

PERFORM write_message.

&----

*& Form bdc

&----

text

----

FORM bdc.

LOOP AT lt_output.

READ TABLE lt_output INDEX 1.

PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-NEWKO'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'BKPF-BLDAT' lt_output-bldat.

PERFORM bdc_field USING 'BKPF-BLART' lt_output-blart.

PERFORM bdc_field USING 'BKPF-BUKRS' lt_output-bukrs.

PERFORM bdc_field USING 'BKPF-BUDAT' lt_output-budat.

PERFORM bdc_field USING 'BKPF-MONAT' lt_output-monat.

PERFORM bdc_field USING 'BKPF-WAERS' lt_output-waers.

PERFORM bdc_field USING 'BKPF-XBLNR' lt_output-xblnr.

PERFORM bdc_field USING 'FS006-DOCID' lt_output-docid.

PERFORM bdc_field USING 'RF05A-NEWBS' lt_output-newbs.

PERFORM bdc_field USING 'RF05A-NEWKO' lt_output-newko.

PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-NEWKO'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'BSEG-WRBTR' lt_output-wrbtr.

PERFORM bdc_field USING 'BSEG-ZFBDT' lt_output-zfbdt.

PERFORM bdc_field USING 'RF05A-NEWBS' lt_output-newbs. "newbs2

PERFORM bdc_field USING 'RF05A-NEWKO' lt_output-newko. "newko2

PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.

PERFORM bdc_field USING 'BDC_CURSOR' 'BSEG-WRBTR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.

PERFORM bdc_field USING 'BSEG-WRBTR' lt_output-wrbtr. "wrbtr2

PERFORM bdc_field USING 'BSEG-MWSKZ' '**'.
PERFORM bdc_field USING 'BSEG-ZTERM' 'C007'.
PERFORM bdc_field USING 'BSEG-ZBD1T' '7'.

PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLKACB'.

CALL TRANSACTION 'F-27' USING it_bdc

MESSAGES INTO it_messtab.

CLEAR it_bdc. REFRESH it_bdc.

ENDLOOP.

ENDFORM. "bdc

&----

*& Form write_message

&----

text

----

FORM write_message.

LOOP AT it_messtab .

CLEAR message.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

id = sy-msgid

lang = 'EN'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

IMPORTING

msg = message.

CASE it_messtab-msgtyp.

WHEN 'S'.

WRITE:/ message.

CLEAR message.

WHEN 'E'.

FORMAT COLOR 6 ON.

WRITE:/ message.

CLEAR message.

ENDCASE.

ENDLOOP.

ENDFORM. "write_message

----

FORM BDC_DYNPRO *

----

........ *

----

--> PROGRAM *
--> DYNPRO *

----

FORM bdc_dynpro USING program dynpro.

it_bdc-program = program.

it_bdc-dynpro = dynpro.

it_bdc-dynbegin = 'X'.

APPEND it_bdc.

CLEAR it_bdc.

ENDFORM. "BDC_DYNPRO

----

FORM *

----

........ *

----

FORM bdc_field USING fnam fval.

it_bdc-fnam = fnam.

it_bdc-fval = fval.

APPEND it_bdc.

CLEAR it_bdc.

ENDFORM. "BDC_FIELD

&----

*& Form upload

&----

text

----

--> p1 text
<-- p2 text

----

FORM upload .

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

filename = p_file

filetype = 'DAT'

TABLES

data_tab = lt_output.

ENDFORM. " upload

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

the programm gives a sort dump error in raise exception

plz help me its urgent to me

thanks

jayant

recording as like it

BLDAT Document Date

BLART Document Type (DA)

BUKRS Company Code

BUDAT Posting Date

MONAT Period

WAERS Currency

XBLNR Reference Field

DOCID Document ID (usually blank)

NEWBS Posting Key (31 – Vendor)

NEWKO Account Code (Vendor)

WRBTR Amount in Document currency

ZFBDT Baseline Date

NEWBS2 Account Key 2

NEWKO2 Account code 2 (Customer)

WRBTR2 Amount 2

plz help me plz

Re: call transaction BDC

Former Member — Thu, 24 Apr 2008 09:06:36 GMT

hi error is comming because of declaration problem

ok this one .

declare one variable like this :

data p_file1 type STRINg .

now update your upload moule like this:

FORM upload .

p_file1 = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = p_file1

filetype = 'ASC'

TABLES

data_tab = lt_output.

ENDFORM. " upload

reward if useful

topic call transaction BDC in Application Development and Automation Discussions

call transaction BDC

Re: call transaction BDC