Bdc

[Former Member]

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

[Former Member]

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

[gopi_narendra]

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

[Former Member]

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

[Former Member]

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.

[Former Member]

Hi

change TABLES to TYPES

Also, check your declarations and usage of ST_BDCDATA.

Regards

Raj

[Former Member]

hi

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.

[Former Member]

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

[Former Member]

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,