BDC-mk02

Former Member — Fri, 26 Oct 2007 07:49:22 GMT

Hi experts,

I am Trying for objects which upload flat file in to table from tc MK02

I wrote programe as below

And after running this in sm35

table get update properly but at last it not getting close properly

It means it goes to again upload to 1st screen.

Please help me out of this:

report ZSANDY_MK02

no standard page heading line-size 255.

*include bdcrecx1.

INITIALIZATION.

data: begin of itab occurs 0,

lifnr like RF02K-LIFNR,

ekorg like RF02K-EKORG,

anred like LFA1-ANRED,

name1 like LFA1-NAME1,

sortl like LFA1-SORTL,

name2 like LFA1-NAME2,

stras like LFA1-STRAS,

pfach like LFA1-PFACH,

ort01 like LFA1-ORT01,

pstlz like LFA1-PSTLZ,

ort02 like LFA1-ORT02,

pstl2 like LFA1-PSTL2,

land1 like LFA1-LAND1,

spras like LFA1-SPRAS,

telx1 like LFA1-TELX1,

TELF1 LIKE LFA1-TELF1,

end of itab.

DATA: BEGIN OF BDCDATA OCCURS 0.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF BDCDATA.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\SANDY\MK02.TXT'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

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

TABLES

DATA_TAB = ITAB

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.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = 'MK02'

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.

loop at itab.

perform bdc_dynpro using 'SAPMF02K' '0108'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-D0110'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-LIFNR'

ITAB-LIFNR.

perform bdc_field using 'RF02K-EKORG'

ITAB-EKORG.

perform bdc_field using 'RF02K-D0110'

'X'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-TELX1'.

perform bdc_field using 'BDC_OKCODE'

'=UPDA'.

perform bdc_field using 'LFA1-ANRED'

ITAB-ANRED.

perform bdc_field using 'LFA1-NAME1'

itab-name1.

perform bdc_field using 'LFA1-SORTL'

ITAB-SORTL.

perform bdc_field using 'LFA1-NAME2'

ITAB-NAME2.

perform bdc_field using 'LFA1-STRAS'

ITAB-STRAS.

perform bdc_field using 'LFA1-PFACH'

ITAB-PFACH.

perform bdc_field using 'LFA1-ORT01'

ITAB-ORT01.

perform bdc_field using 'LFA1-PSTLZ'

ITAB-PSTLZ.

perform bdc_field using 'LFA1-ORT02'

ITAB-ORT02.

perform bdc_field using 'LFA1-PSTL2'

ITAB-PSTL2.

perform bdc_field using 'LFA1-LAND1'

ITAB-LAND1.

perform bdc_field using 'LFA1-SPRAS'

ITAB-SPRAS.

perform bdc_field using 'LFA1-TELX1'

itab-telx1.

perform bdc_field using 'LFA1-TELF1'

itab-telF1.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MK02'

POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
SIMUBATCH = ' '
CTUPARAMS = ' '

TABLES

DYNPROTAB = BDCDATA

EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7

IF SY-SUBRC <> 0.

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

ENDIF.

CLEAR ITAB.

REFRESH BDCDATA.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

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

ENDIF.

----

Start new screen *

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL IS NOT INITIAL.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDIF.

ENDFORM.

and this the in flat file;

1003 3000 Dr. bondy car sandy 310 Marine Ave 654564 sandy city 90710 LOS ANGELES 70456 BA EN 88888 999991

Thanks In advance

Sandy

Message was edited by:

sandy reborn

Re: BDC-mk02

Former Member — Fri, 26 Oct 2007 09:58:06 GMT

loop at itab.

perform bdc_dynpro using 'SAPMF02K' '0108'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-D0110'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-LIFNR'

ITAB-LIFNR.

perform bdc_field using 'RF02K-EKORG'

ITAB-EKORG.

perform bdc_field using 'RF02K-D0110'

'X'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-TELX1'.

perform bdc_field using 'BDC_OKCODE'

'=UPDA'.

perform bdc_field using 'LFA1-ANRED'

ITAB-ANRED.

perform bdc_field using 'LFA1-NAME1'

itab-name1.

perform bdc_field using 'LFA1-SORTL'

ITAB-SORTL.

perform bdc_field using 'LFA1-NAME2'

ITAB-NAME2.

perform bdc_field using 'LFA1-STRAS'

ITAB-STRAS.

perform bdc_field using 'LFA1-PFACH'

ITAB-PFACH.

perform bdc_field using 'LFA1-ORT01'

ITAB-ORT01.

perform bdc_field using 'LFA1-PSTLZ'

ITAB-PSTLZ.

perform bdc_field using 'LFA1-ORT02'

ITAB-ORT02.

perform bdc_field using 'LFA1-PSTL2'

ITAB-PSTL2.

perform bdc_field using 'LFA1-LAND1'

ITAB-LAND1.

perform bdc_field using 'LFA1-SPRAS'

ITAB-SPRAS.

perform bdc_field using 'LFA1-TELX1'

itab-telx1.

perform bdc_field using 'LFA1-TELF1'

itab-telF1.

BDC Ok codes should be at lost unlike which come from recording

try this and come back

regards,

pavan

topic BDC-mk02 in Application Development and Automation Discussions

BDC-mk02

Re: BDC-mk02