topic Re: Bdc in Application Development and Automation Discussions

Bdc

Former Member — Mon, 06 Aug 2007 05:21:00 GMT

Hi,

Iam writing BDC Program.

Iam getting the error that "," expected after "BEGIN".

REPORT ZBDC_TAB1.

TABLES:

BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

DATA:

ST_SOURCE TYPE TY_SOURCE,

IT_SOURCE TYPE TABLE OF TY_SOURCE,

ST_BDCDATA TYPE BDC_DATA,

IT_BDCDATA TYPE TABLE OF BDCDATA.

START-OF-SELECTION.

PERFORM UPLOAD.

LOOP AT IT_SOURCE INTO ST_SOURCE.

PERFORM MAPPING.

CALL TRANSCATION 'ZMP_TAB1_TC'

USING IT_BDCDATA.

ENDLOOP.

&----

*& Form UPLOAD

&----

text

----

--> p1 text
<-- p2 text

----

FORM UPLOAD .

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'c:\textcustomer.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = ' '

HEADER_LENGTH = 0

READ_BY_LINE = 'X'

DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = it_source

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.

ENDFORM. " UPLOAD

&----

*& Form MAPPING

&----

text

----

--> p1 text
<-- p2 text

----

FORM MAPPING .

REFRESH IT_BDCDATA.

ST_BDCDATA-PROGRAM = 'ZMP_TAB1'.

ST_BDCDATA-DYNPRO = '9001'.

ST_BDCDATA-DYNBEGIN = ' '.

ST_BDCDATA-FNAM = KNA1-KUNNR.

ST_BDCDATA-FVAL = ST_SOURCE-KUNNR.

APPEND ST_BDCDATA TO IT_BDCDATA.

ENDFORM. " MAPPING

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:24:52 GMT

Hi,

Use types instead of tables

Types:

BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

regards,

Ruchika

reward if useful.......

Re: Bdc

gopi_narendra — Mon, 06 Aug 2007 05:25:06 GMT


TYPES : BEGIN OF TY_SOURCE, " use TYPES
KUNNR(10) TYPE C,
LAND1(2) TYPE C,
NAME(30) TYPE C,
ORT01(30) TYPE C,
TELF1(10) TYPE C,
END OF TY_SOURCE.


DATA:
ST_SOURCE TYPE TY_SOURCE,
IT_SOURCE TYPE TABLE OF TY_SOURCE,
ST_BDCDATA TYPE BDC_DATA,
IT_BDCDATA TYPE TABLE OF BDCDATA.

Regards

Gopi

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:26:10 GMT

just check this code..



types :
BEGIN OF TY_SOURCE,
KUNNR(10) TYPE C,
LAND1(2) TYPE C,
NAME(30) TYPE C,
ORT01(30) TYPE C,
TELF1(10) TYPE C,
END OF TY_SOURCE.


DATA:
ST_SOURCE TYPE TY_SOURCE,
IT_SOURCE TYPE TABLE OF TY_SOURCE,
ST_BDCDATA type BDCDATA,
IT_BDCDATA TYPE TABLE OF BDCDATA.



START-OF-SELECTION.
PERFORM UPLOAD.
LOOP AT IT_SOURCE INTO ST_SOURCE.
PERFORM MAPPING.
CALL TRANSAcTION 'ZMP_TAB1_TC'
USING IT_BDCDATA.
ENDLOOP.
*&---------------------------------------------------------------------*
*& Form UPLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM UPLOAD .
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = 'c:textcustomer.txt'
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
* DAT_MODE = ' '
* IMPORTING
* FILELENGTH =
* HEADER =
TABLES
DATA_TAB = it_source
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.


ENDFORM. " UPLOAD
*&---------------------------------------------------------------------*
*& Form MAPPING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM MAPPING .
REFRESH IT_BDCDATA.
ST_BDCDATA-PROGRAM = 'ZMP_TAB1'.
ST_BDCDATA-DYNPRO = '9001'.
ST_BDCDATA-DYNBEGIN = ' '.
ST_BDCDATA-FNAM = 'KNA1-KUNNR'.
ST_BDCDATA-FVAL = ST_SOURCE-KUNNR.
APPEND ST_BDCDATA TO IT_BDCDATA.

ENDFORM. " MAPPING

regards

shiba dutta

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:26:18 GMT

TABLES:

BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

wrong

data:

BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:27:39 GMT

change TABLES to TYPES

Also, check your declarations and usage of ST_BDCDATA.

Regards

Raj

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:29:52 GMT

use TYPES and not TABLES

REPORT ZBDC_TAB1.

<b>TYPES:</b>

BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

reward points if ur problem is solved.

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:43:07 GMT

HI,,

give

TYPES not TABLES in the beginning.

<b>TYPES:

BEGIN OF TY_SOURCE</b>,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

rewards if useful,

regards,

nazeer

Re: Bdc

Former Member — Mon, 06 Aug 2007 05:50:38 GMT

Hi Ram,

Try this code for declaration.

types:BEGIN OF TY_SOURCE,

KUNNR(10) TYPE C,

LAND1(2) TYPE C,

NAME(30) TYPE C,

ORT01(30) TYPE C,

TELF1(10) TYPE C,

END OF TY_SOURCE.

DATA:

ST_SOURCE TYPE TY_SOURCE.

Regards,