Error in BDC Program..Please help me

Former Member — Wed, 08 Oct 2008 18:40:37 GMT

Hi,

below is my BDC program Please let me know the error.

TYPES:BEGIN OF TY_CCENTER,

CARE TYPE BAPI0012_GEN-CO_AREA,

CCENTER TYPE BAPI0012_CCINPUTLIST-costcenter,

VALIDFROM TYPE BAPI0012_CCINPUTLIST-VALID_FROM,

VALIDTO TYPE BAPI0012_CCINPUTLIST-VALID_TO,

NAME TYPE BAPI0012_CCINPUTLIST-NAME,

INCHARGE TYPE BAPI0012_CCINPUTLIST-PERSON_IN_CHARGE,

CCENTERTYPE TYPE BAPI0012_CCINPUTLIST-COSTCENTER_TYPE,

HIREAREA TYPE BAPI0012_CCINPUTLIST-COSTCTR_HIER_GRP,

BUSSAREA TYPE BAPI0012_CCINPUTLIST-BUS_AREA,

PCENTER TYPE BAPI0012_CCINPUTLIST-PROFIT_CTR,

END OF TY_CCENTER.

DATA: IT_CCENTER TYPE TABLE OF TY_CCENTER,

WA_CCENTER TYPE TY_CCENTER.

DATA:IT_RETURN TYPE TABLE OF BAPIRET2,

WA_RETURN LIKE LINE OF IT_RETURN.

DATA: WA_CAREA TYPE BAPI0012_GEN-CO_AREA.

DATA: CCLIST TYPE TABLE OF BAPI0012_CCINPUTLIST,

WA_CCLIST LIKE LINE OF CCLIST.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'E:\KS01_BAPI.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = '#'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = IT_CCENTER

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.

BREAK SAPUSER.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT IT_CCENTER INTO WA_CCENTER.

MOVE WA_CCENTER TO WA_CAREA.

move WA_CCENTER to WA_CCLIST.

APPEND WA_CCLIST TO cclist.

ENDLOOP.

CALL FUNCTION 'BAPI_COSTCENTER_CREATEMULTIPLE'

EXPORTING

CONTROLLINGAREA = WA_CAREA

TESTRUN = ' '
MASTER_DATA_INACTIVE = ' '

TABLES

COSTCENTERLIST = CCLIST

RETURN = IT_RETURN.

EXTENSIONIN =
EXTENSIONOUT =

BREAK SAPUSER.

read TABLE IT_RETURN INTO WA_RETURN with key TYPE = 'E'. .

IF SY-SUBRC = 0.

LOOP AT IT_RETURN INTO WA_RETURN WHERE TYPE = 'E'.

WRITE: WA_RETURN-TYPE , WA_RETURN-ID , WA_RETURN-MESSAGE.

ENDLOOP.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT =

IMPORTING
RETURN = IT_RETURN

LOOP AT IT_RETURN INTO WA_RETURN WHERE TYPE <> 'E'.

WRITE : / WA_RETURN-TYPE , WA_RETURN-ID , WA_RETURN-MESSAGE.

ENDLOOP.

ENDIF.

Thanks,

Lawrence

Re: Error in BDC Program..Please help me

Former Member — Wed, 08 Oct 2008 18:55:13 GMT

If you tell us the type of error you are getting, maybe we can help.

Rob

Re: Error in BDC Program..Please help me

Former Member — Fri, 10 Oct 2008 12:39:29 GMT

Ask what u want from this code and what u want from it.

Re: Error in BDC Program..Please help me

Former Member — Fri, 10 Oct 2008 14:17:57 GMT

Hi,

Where is BDC???????? it is BAPI............

Re: Error in BDC Program..Please help me

Former Member — Tue, 07 Apr 2009 09:46:05 GMT

Hi,

please tell me the solution

Thanks,

vinit

topic Re: Error in BDC Program..Please help me in Application Development and Automation Discussions

Error in BDC Program..Please help me

Re: Error in BDC Program..Please help me

Re: Error in BDC Program..Please help me

Re: Error in BDC Program..Please help me

Re: Error in BDC Program..Please help me