REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Former Member — Tue, 05 Sep 2006 07:03:45 GMT

hi all,

i have created a bdc using sessions . when execute my batch input program , it has created a session for me . now from SM 35 tcode , i tried to process my session.

when i processed it , the first record is getting stored in the database , but for the second record it is showing the first record which is already got stored in the database . plzz tell me what cud be wrong.

thank u.

with regards

varma

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Former Member — Tue, 05 Sep 2006 07:09:27 GMT

Hello Ravi,

check the loop process in the batch process.

Regards.

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Former Member — Tue, 05 Sep 2006 07:09:53 GMT

Could u pls post d code

Ramesh.

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Former Member — Tue, 05 Sep 2006 07:27:00 GMT

tables: MAKT , RMMG1 , MSICHTAUSW , MARA.

data: begin of int_mat occurs 9 ,

matnr like rmmg1-matnr,

mbrsh like rmmg1-mbrsh,

mtart like rmmg1-mtart,

kzsel like msichtausw-kzsel,

maktx like makt-maKtx,

meins like mara-meins,

end of int_mat.

data: bdcdata like bdcdata occurs 9 with header line,

msg like bdcmsgcoll occurs 9 with header line.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'D:/Book3.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

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

TABLES

DATA_TAB = int_mat

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.

loop at int_mat.

refresh bdcdata.

clear bdcdata.

perform filldata.

endloop.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = 'ZREC_002'

HOLDDATE = FILLER8
KEEP = FILLER1

USER = 'BDC'

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

WRITE 'DONE'.

ENDIF.

write 'halo'.

LOOP AT BDCDATA.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MM01'

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.

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.

form filldata.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MATNR'.

perform bdc_field using 'BDC_OKCODE'

'=AUSW'.

perform bdc_field using 'RMMG1-MATNR'

int_mat-matnr.

perform bdc_field using 'RMMG1-MBRSH'

int_mat-mbrsh.

perform bdc_field using 'RMMG1-MTART'

int_mat-mtart.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'MSICHTAUSW-KZSEL(01)'

int_mat-kzsel.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_field using 'MAKT-MAKTX'

int_mat-maktx.

perform bdc_field using 'BDC_CURSOR'

'MARA-MEINS'.

perform bdc_field using 'MARA-MEINS'

int_mat-meins.

endform.

----

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.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

endform.

topic Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER in Application Development and Automation Discussions

REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER

Re: REGARDING DOWNLOADING DATA FROM APPLICATION SERVER