KE11 Batch Input

[Former Member]

Hi All,

I'm on a 4.5 system and I'm having a problem with my batch-input for KE11. I think it's to do with the 'Operating Concern'. I've tried defaulting the operating concern in SAP (user defaults) but that doesn't help.

Any ideas?

Thanks.

Manu.

[naimesh_patel · Accepted solution]

Hello,

Whenever, you try to run the session vis SM35, run it with Errors only.. SO, first time system will show a pop-up for operating concern. Press Save here.. So, for rest, system will not display pop-up and transaction will post.

Or in other way, you can save OC by opening Ke11 in other session and saving it for user.

Regards,

Naimesh

Reward points, if it is useful..!

[Former Member · Accepted solution]

Hi Naimesh,

Unfortunately due to certain limitations I cannot use SM35.

I have saved the 'operating concern' for that particular user but I still have a problem.

I've tested it on a 4.6 system and everything goes in fine. I think it's a 4.5 issue but there's nothing on OSS.

Any ideas?

Thanks.

Manu.

[Former Member]

Hi

Here is some helps.

KE11

Change plan data

REPORT zbdc_ke11_new_domestic NO STANDARD PAGE HEADING MESSAGE-ID e001.

TABLES: kna1,mara.

DATA : BEGIN OF itab OCCURS 0,

kunnr(10),

matnr(20),

werks(4),

qty(5),

amt(10),

flag,

flagm,

END OF itab.

DATA: fieldname1(20) TYPE c,

fieldname3(20) TYPE c,

fieldname5(20) TYPE c,

fieldname6(20) TYPE c,

fieldname7(20) TYPE c,

idx1(5) TYPE n VALUE 1.

DATA : mask(20) TYPE c VALUE ',. ,..'.

PARAMETERS : infile LIKE rlgrap-filename,

year(4) OBLIGATORY,

month(2) OBLIGATORY,

version(3) OBLIGATORY.

DATA: period(8),

ex(1) VALUE '.'.

DATA tabix_char(2) TYPE n.

DATA idx2(5) TYPE n VALUE 1 .

DATA lin(5) TYPE n.

DATA cnt(5) TYPE n.

DATA cnt1(5) TYPE n.

DATA temp(5) TYPE n.

DATA temp1(5) TYPE n.

DATA tot_lin(5) TYPE n.

DATA iloop LIKE sy-loopc.

DATA irows(2) TYPE n.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR infile.

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

def_filename = space

def_path = infile

mask = mask

mode = 'O'

title = 'INPUTFILE'

IMPORTING

filename = infile

• RC =

EXCEPTIONS

inv_winsys = 1

no_batch = 2

selection_cancel = 3

selection_error = 4

OTHERS = 5.

START-OF-SELECTION.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

• CODEPAGE = ' '

filename = infile

filetype = 'DAT'

• HEADLEN = ' '

• LINE_EXIT = ' '

• TRUNCLEN = ' '

• USER_FORM = ' '

• USER_PROG = ' '

• IMPORTING

• FILELENGTH =

TABLES

data_tab = itab

EXCEPTIONS

conversion_error = 1

file_open_error = 2

file_read_error = 3

invalid_table_width = 4

invalid_type = 5

no_batch = 6

unknown_error = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10.

IF sy-subrc <> 0.

MESSAGE e001 WITH infile.

ENDIF.

CONCATENATE month ex year INTO period.

WRITE : / period.

LOOP AT itab.

SELECT SINGLE * FROM kna1 WHERE kunnr = itab-kunnr.

IF sy-subrc = 0.

itab-flag = 'X'.

MODIFY itab.

ENDIF.

ENDLOOP.

LOOP AT itab.

SELECT SINGLE * FROM mara WHERE matnr = itab-matnr.

IF sy-subrc = 0.

itab-flagm = 'X'.

MODIFY itab.

ENDIF.

ENDLOOP.

DELETE itab WHERE flag NE 'X'.

DELETE itab WHERE flagm NE 'X'.

DESCRIBE TABLE itab LINES lin.

temp = lin MOD 11.

IF temp = 0.

tot_lin = lin - 11.

ELSE.

tot_lin = lin - temp.

ENDIF.

IF temp NE 0.

temp1 = 11 - temp.

lin = lin + temp1.

ENDIF.

cnt1 = lin - 11.

INCLUDE bdcrecxx.

START-OF-SELECTION.

PERFORM open_group.

PERFORM bdc_dynpro USING 'SAPLKEPA' '0100'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KPP0S-FORM'.

PERFORM bdc_field USING 'KPP0S-FORM'

'domestic'.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KPP0B-VALUE(02)'.

PERFORM bdc_field USING 'KPP0B-VALUE(01)'

'0'.

PERFORM bdc_field USING 'KPP0B-VALUE(02)'

period.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLKEPA'

& ' 0110APPLIKAT'.

PERFORM bdc_field USING 'CEPL1-FRWAE'

'inr'.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=CSUB'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLKEPA'

& ' 0110APPLIKAT'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KPP0B-VALUE(02)'.

PERFORM bdc_field USING 'KPP0B-VALUE(01)'

'0'.

PERFORM bdc_field USING 'KPP0B-VALUE(02)'

period.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLKEPA'

& ' 0110APPLIKAT'.

PERFORM bdc_field USING 'CEPL1-FRWAE'

'inr'.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=CSUB'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLKEPA'

& ' 0110APPLIKAT'.

PERFORM bdc_field USING 'BDC_CURSOR'

'CEPL1-FRWAE'.

PERFORM bdc_dynpro USING 'SAPLKPP2' '0118'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=CP+'.

LOOP AT itab.

tabix_char = idx1.

CONCATENATE 'BDC01(' tabix_char ')' INTO fieldname1.

CONCATENATE 'BDC03(' tabix_char ')' INTO fieldname3.

CONCATENATE 'BDC05(' tabix_char ')' INTO fieldname5.

CONCATENATE 'BDC06(' tabix_char ')' INTO fieldname6.

CONCATENATE 'BDC07(' tabix_char ')' INTO fieldname7.

IF idx1 <= 11.

PERFORM bdc_field USING 'BDC_CURSOR'

'BDC01(01)'.

PERFORM bdc_field USING fieldname1

itab-kunnr.

PERFORM bdc_field USING fieldname3

itab-matnr.

PERFORM bdc_field USING fieldname5

itab-werks.

PERFORM bdc_field USING fieldname6

itab-qty.

PERFORM bdc_field USING fieldname7

itab-amt.

ENDIF.

idx1 = idx1 + 1.

IF idx2 <= tot_lin.

idx2 = idx2 + 1.

ENDIF.

IF idx2 > tot_lin.

idx2 = 0.

idx1 = 1.

PERFORM bdc_dynpro USING 'SAPLKPP2' '0118'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=CBUC'.

ENDIF.

iloop = sy-loopc.

IF idx1 > 11. "AND cnt > 11.

idx1 = 1.

PERFORM bdc_dynpro USING 'SAPLKPP2' '0118'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=CP+'.

ENDIF.

ENDLOOP.

PERFORM bdc_transaction USING 'KE11'.

REFRESH bdcdata.CLEAR bdcdata.

PERFORM close_group.

Thanks

Mrutyunjaya Tripathy