Re: VK15 BDC issues

Former Member — Thu, 11 Sep 2008 08:55:52 GMT

hi kumar,

try the below sample code for data upload ,with your transaction.

TYPES: BEGIN OF T_CDATA,

ATKLA LIKE CABN-ATKLA,

ATNAM LIKE CABN-ATNAM,

ATFOR LIKE CABN-ATFOR,

END OF T_CDATA.

TYPES: BEGIN OF T_CCHAR,

ATWRT(30),

ATWTB(30),

END OF T_CCHAR.

DATA: IT_CDATA TYPE STANDARD TABLE OF T_CDATA,

IT_CCHAR TYPE STANDARD TABLE OF T_CCHAR,

IT_BDC TYPE STANDARD TABLE OF BDCDATA WITH HEADER LINE.

DATA: WA_CDATA TYPE T_CDATA,

WA_BDC TYPE BDCDATA,

WA_CCHAR TYPE T_CCHAR.

PARAMETERS: P_ATKLA LIKE CABN-ATKLA OBLIGATORY,

P_FNAME LIKE RLGRAP-FILENAME OBLIGATORY.

CONSTANTS: C_TCODE LIKE TSTC-TCODE VALUE 'CT04'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

PERFORM f_get_f4_help USING p_fname.

START-OF-SELECTION.

SELECT ATKLA ATNAM ATFOR INTO TABLE IT_CDATA

FROM CABN

WHERE ATKLA = P_ATKLA.

IF NOT IT_CDATA[] IS INITIAL.

PERFORM UPLOAD_DATA.

PERFORM BDC_OPEN_GROUP.

LOOP AT IT_CDATA INTO WA_CDATA.

REFRESH: IT_BDC.

PERFORM BDC_UPLOAD_DATA.

PERFORM BDC_CALL_TRANS.

PERFORM BDC_UPLOAD.

CLEAR WA_CDATA.

ENDLOOP.

PERFORM BDC_CLOSE_GROUP.

ENDIF.

&----

*& Form UPLOAD_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM UPLOAD_DATA .

UPLOAD DATA USING GUI_UPLOAD

DATA: l_v_filename TYPE string.

CONSTANTS: l_c_asc TYPE filetype VALUE 'ASC',

l_c_x TYPE char1 VALUE 'X'.

l_v_filename = p_fname.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = l_v_filename

FILETYPE = l_c_asc

HAS_FIELD_SEPARATOR = l_c_x

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

TABLES

DATA_TAB = IT_CCHAR

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_DATA

&----

*& Form BDC_OPEN_GROUP

&----

text

----

--> p1 text
<-- p2 text

----

FORM BDC_OPEN_GROUP .

OPEN GROUP

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = 'ZCHARU'

HOLDDATE = FILLER8

KEEP = 'X'

USER = SY-UNAME

RECORD = FILLER1

PROG = SY-CPROG

IMPORTING
QID =

EXCEPTIONS

CLIENT_INVALID = 1

DESTINATION_INVALID = 2

GROUP_INVALID = 3

GROUP_IS_LOCKED = 4

HOLDDATE_INVALID = 5

INTERNAL_ERROR = 6

QUEUE_ERROR = 7

RUNNING = 8

SYSTEM_LOCK_ERROR = 9

USER_INVALID = 10

OTHERS = 11.

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

&----

*& Form BDC_UPLOAD_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM BDC_UPLOAD_DATA .

CLEAR: WA_CCHAR.