topic Re: bdc in Application Development and Automation Discussions

bdc

Former Member — Fri, 30 Jun 2006 08:17:53 GMT

hi friends,

i wanted to make a prog which uses both the methods(session & call transaction). if user selects session then processing is for session & if it is call transaction then call transaction.

how to make a prog for this???

Re: bdc

Former Member — Fri, 30 Jun 2006 08:18:56 GMT

Yes,.

You can put a checkbox for it and then based on selection either call FM BDC_INSERT ot CALL TRANSACTION

Re: bdc

Former Member — Fri, 30 Jun 2006 08:24:18 GMT

Hai Salil

Check the following Code

report Z_CALLTRANS_VENDOR_01

no standard page heading line-size 255.

Generated data section with specific formatting - DO NOT CHANGE ***

data: begin of it_lfa1 occurs 0,

KTOKK like lfa1-ktokk,

NAME1 like lfa1-name1,

SORTL like lfa1-sortl,

LAND1 like lfa1-land1,

end of it_lfa1.

End generated data section ***

data : it_bdc like bdcdata occurs 0 with header line.

*DATA: IT_MESSAGES TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE.

*DATA: LV_MESSAGE(255).

data : it_messages like bdcmsgcoll occurs 0 with header line.

data : V_message(255).

data : V_flag.

data : V_datum1 type sy-datum.

data : begin of it_mesg occurs 0,

message(100),

end of it_mesg.

*V_datum1 = sy-datum-1.

parameters : P_Sess like APQI-GROUPID.

start-of-selection.

perform Get_data.

*perform open_group.

loop at it_lfa1.

perform bdc_dynpro using 'SAPMF02K' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-KTOKK'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-KTOKK'

it_lfa1-KTOKK.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-LAND1'.

perform bdc_field using 'BDC_OKCODE'

'=UPDA'.

perform bdc_field using 'LFA1-NAME1'

it_lfa1-name1.

perform bdc_field using 'LFA1-SORTL'

it_lfa1-sortl.

perform bdc_field using 'LFA1-LAND1'

it_lfa1-land1.

call transaction 'XK01' using it_bdc

mode 'N'

update 'S'

messages into it_messages.

if sy-subrc <> 0.

if V_flag <> 'X'.

perform open_group.

V_flag = 'X'.

endif.

perform bdc_transaction. "using 'XK01'.

endif.

perform format_messages.

refresh : it_bdc,it_messages.

endloop.

if V_flag = 'X'.

perform close_group.

endif.

&----

*& Form Get_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM Get_data .

CALL FUNCTION 'UPLOAD'

EXPORTING

FILENAME = 'C:\srinu_vendor.txt'

FILETYPE = 'DAT'

TABLES

DATA_TAB = it_lfa1

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 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.

ENDFORM. " Get_data

&----

*& Form bdc_dynpro

&----

text

----

-->P_0061 text
-->P_0062 text

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR it_BDC.

it_BDC-PROGRAM = PROGRAM.

it_BDC-DYNPRO = DYNPRO.

it_BDC-DYNBEGIN = 'X'.

APPEND it_BDC.

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

CLEAR it_BDC.

it_BDC-FNAM = FNAM.

it_BDC-FVAL = FVAL.

APPEND it_BDC.

ENDFORM.

&----

*& Form format_messages

&----

text

----

--> p1 text
<-- p2 text

----

FORM format_messages .

loop at it_messages.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = it_messages-MSGID

LANG = 'EN'

NO = it_messages-MSGNR

V1 = it_messages-MSGV1

V2 = it_messages-MSGV2

V3 = it_messages-MSGV3

V4 = it_messages-MSGV4

IMPORTING

MSG = V_message

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2

IF SY-SUBRC <> 0.

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

ENDIF.

write : / V_message.

clear : V_message.

endloop.

ENDFORM. " format_messages

&----

*& Form open_group

&----

text

----

--> p1 text
<-- p2 text

----

FORM open_group .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = P_Sess

HOLDDATE = V_datum1

KEEP = 'X'

USER = SY-UNAME

IF SY-SUBRC = 0.

write : / 'Session Creating wit Name : ',P_Sess.

ENDIF.

ENDFORM. " open_group

&----

*& Form close_group

&----

text

----

--> p1 text
<-- p2 text

----

FORM close_group .

CALL FUNCTION 'BDC_CLOSE_GROUP'.

ENDFORM. " close_group

&----

*& Form bdc_transaction

&----

text

----

-->P_0132 text

----

FORM bdc_transaction. "USING VALUE(P_0132).

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'XK01'

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

TABLES

DYNPROTAB = it_bdc

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.

ENDFORM. " bdc_transaction

Thanks & regards

Sreenivasulu P

Re: bdc

Former Member — Fri, 30 Jun 2006 08:32:42 GMT

Hi,

For this you have to use "INCLUDE bdcrecx1." in your BDC program. This is a standard BDC program which will give you a selection screen to choose between call transaction or session. Don't forge to copy the SELECTION texts from any standard program.

Chek the following sample code.

*----include

INCLUDE bdcrecx1.

*---Passing data to BDC tabel.

PERFORM open_group.

LOOP AT it_output INTO wa_output.

PERFORM bdc_dynpro USING 'MP000600' '2000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=UPD'.

PERFORM bdc_field USING 'P0006-BEGDA' wa_output-begda.

PERFORM bdc_field USING 'P0006-ENDDA' wa_output-endda.

PERFORM bdc_field USING 'P0006-NAME2' wa_output-name2.

PERFORM bdc_field USING 'P0006-STRAS' wa_output-stras.

PERFORM bdc_field USING 'P0006-HSNMR' wa_output-hsnmr.

PERFORM bdc_field USING 'P0006-LOCAT' wa_output-locat.

PERFORM bdc_field USING 'P0006-PSTLZ' wa_output-pstlz.

PERFORM bdc_field USING 'P0006-ORT01' wa_output-ort01.

PERFORM bdc_field USING 'P0006-ORT02' wa_output-ort02.

PERFORM bdc_field USING 'P0006-STATE' wa_output-state.

PERFORM bdc_field USING 'P0006-LAND1' wa_output-land1.

PERFORM bdc_field USING 'P0006-TELNR' wa_output-telnr.

PERFORM bdc_transaction USING 'PA30'.(this is important)

CLEAR wa_output.

ENDLOOP.

PERFORM close_group.

Thanks and Regards,

Bharat Kumar Reddy.V

Message was edited by: Bharat Kumar Reddy Vaka

Re: bdc

Former Member — Fri, 30 Jun 2006 08:37:40 GMT

Hi Salil,

Copy and paste this code.

Create a .CSV file and put any of your Zprogram name.Execute this code and press F4 on parameter and accept thsi file and execute

REPORT ztest_bdc.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: p_ifile TYPE dxfile-filename.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-002.

PARAMETERS: p_sess RADIOBUTTON GROUP g3 "create session

DEFAULT 'X' USER-COMMAND bdc,

p_ctu RADIOBUTTON GROUP g3. "call transaction

SELECTION-SCREEN END OF BLOCK b3.

DATA : BEGIN OF itab OCCURS 0,

str TYPE string,

END OF itab.

data : l_file TYPE string,

t_bdcdata TYPE STANDARD TABLE OF bdcdata,

wa_bdcdata LIKE LINE OF t_bdcdata.

*----

AT SELECTION SCREEN ON VALUE REQUEST

*----

Value request for the filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ifile.

PERFORM help_input_file.

START-OF-SELECTION.

CLEAR l_file.

l_file = p_ifile.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = l_file

filetype = 'ASC'

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.

*Start new session

IF p_sess = 'X'.

PERFORM bdc_open.

ENDIF.

LOOP AT itab.

PERFORM creat_batch_input.

PERFORM bdc_insert.

IF p_ctu = 'X'.

CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'A'.

ENDIF.

ENDLOOP.

IF p_sess = 'X'.

PERFORM bdc_close .

IF SY-SUBRC EQ 0.

MESSAGE I001(ZM) WITH 'Session created check in transaction SM35'.

ENDIF.

&----

*& Form bdc_open

&----

text

----

--> p1 text
<-- p2 text

----

FORM bdc_open .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

client = sy-mandt

group = 'ZMUK'

user = sy-uname

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.

ENDFORM. " bdc_open

&----

*& Form creat_batch_input

&----

text

----

--> p1 text
<-- p2 text

----

FORM creat_batch_input .

PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=STRT'.

PERFORM bdc_field USING 'RS38M-PROGRAMM'

itab-str.

PERFORM bdc_field USING 'RS38M-FUNC_EDIT'

'X'.

PERFORM bdc_dynpro USING 'SAPLSLVC_FULLSCREEN' '0500'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=&F03'.

PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

PERFORM bdc_field USING 'RS38M-PROGRAMM'

itab-str.

PERFORM bdc_field USING 'RS38M-FUNC_EDIT'

'X'.

ENDFORM. " creat_batch_input

&----

*& Form bdc_insert

&----

text

----

--> p1 text
<-- p2 text

----

FORM bdc_insert .

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = 'SE38'

TABLES

dynprotab = t_bdcdata

EXCEPTIONS

internal_error = 1

not_open = 2

queue_error = 3

tcode_invalid = 4

printing_invalid = 5

posting_invalid = 6

OTHERS = 7.

ENDFORM. " bdc_insert

&----

*& Form bdc_dynpro

&----

text

----

-->P_0168 text
-->P_0169 text

----

FORM bdc_dynpro USING p_program TYPE any

p_dynpro TYPE any.

CLEAR wa_bdcdata.

wa_bdcdata-program = p_program.

wa_bdcdata-dynpro = p_dynpro.

wa_bdcdata-dynbegin = 'X'.

APPEND wa_bdcdata TO t_bdcdata.

ENDFORM. " bdc_dynpro

&----

*& Form bdc_field

&----

text

----

-->P_0179 text
-->P_0180 text

----

FORM bdc_field USING p_fnam TYPE any

p_fval TYPE any.

CLEAR wa_bdcdata.

wa_bdcdata-fnam = p_fnam.

wa_bdcdata-fval = p_fval.

CONDENSE wa_bdcdata-fval.

APPEND wa_bdcdata TO t_bdcdata.

ENDFORM. " bdc_field

&----

*& Form bdc_close

&----

text

----

--> p1 text
<-- p2 text

----

FORM bdc_close .

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

not_open = 1

queue_error = 2

OTHERS = 3.

ENDFORM. " bdc_close

*&----

**& Form help_input_file

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM help_input_file .

DATA: lt_file_table TYPE filetable,

la_file_table LIKE LINE OF lt_file_table,

l_rc TYPE i,

l_pcdsn TYPE cffile-filename.

REFRESH lt_file_table.

CLEAR la_file_table.

CALL METHOD cl_gui_frontend_services=>file_open_dialog

CHANGING

file_table = lt_file_table

rc = l_rc.

READ TABLE lt_file_table INTO la_file_table INDEX 1.

l_pcdsn = la_file_table-filename.

MOVE l_pcdsn TO p_ifile.

ENDFORM. " help_input_file

Message was edited by: mukesh kumar

Re: bdc

Former Member — Fri, 30 Jun 2006 11:34:14 GMT

Hi Salil,

Try this code it will definetly work out...

DATA: F_STOP, " Flag used to stop processing

*--- Internal table for input file for ascii data load

DATA: BEGIN OF I_INFILE_ASC OCCURS 0,

STRING(500) TYPE C,

END OF I_INFILE_ASC.

*--- Internal table to store messages from Call Transaction.

DATA : I_BDCMSGCOLL TYPE STANDARD TABLE OF BDCMSGCOLL WITH HEADER LINE,

*--- Internal table for BDC data

IT_BDCTAB TYPE BDCDATA OCCURS 0 WITH HEADER LINE,

*--- Internal table to hold standard text

I_TDLINES LIKE TLINE OCCURS 0 WITH HEADER LINE.

*--- Internal to hold the records in the text file

DATA : BEGIN OF IT_DATA OCCURS 10,

MATNR(18), " Material Code

MBRSH(1), " Industry sector

MTART(4), " Material Type

WERKS(4), " Plant

LGORT(4), " Storage Location

MAKTX(40), " Material Description

BISMT(18), " Old Material Number

MEINS(3), " Base unit of Measure

MATKL(9), " Material Group

EKGRP(3), " Purchase grp

DISMM(2), " MRP Type

BESKZ(1), " Procurement type

BKLAS(4), " Valuation Class

VPRSV(1), " Price Control

MTVFP(2), " Availability check

END OF IT_DATA.

*--- Internal table to hold the error records.

DATA : BEGIN OF IT_ERROR OCCURS 0.

INCLUDE STRUCTURE IT_DATA.

DATA : MESSAGE(80) TYPE C,

END OF IT_ERROR.

*--- Internal table for session names

DATA : BEGIN OF IT_SESSION OCCURS 0,

NAME(12),

END OF IT_SESSION.

*--- Internal table to hold Collecting messages in the SAP System

DATA : IT_MSG LIKE BDCMSGCOLL OCCURS 10 WITH HEADER LINE.

*--- Internal table to hold error records to be downloaded

DATA : BEGIN OF I_FINAL OCCURS 0,

STRING(1000),

END OF I_FINAL.

*Internal table for session names

DATA : BEGIN OF I_SESSION OCCURS 0,

NAME(12),

END OF I_SESSION.

----

CONSTANTS *

----

CONSTANTS : C_FILETYPE LIKE RLGRAP-FILETYPE VALUE 'DAT', " Filetype

C_TCODE LIKE TSTC-TCODE VALUE 'MM01', " Transaction

C_MODE(1) VALUE 'A', " Mode

C_UPDATE(1) VALUE 'S', " Update

C_SESS(9) TYPE C VALUE 'LEGACY'.

----

DATA DECLARATIONS *

----

DATA : V_TABIX LIKE SY-TABIX, " Table Index

V_MESG(80), " Message,

V_ERROR TYPE I, " No.of Errors

V_SUCCESS TYPE I, " No.of successes

V_BDC_SESS TYPE APQI-GROUPID VALUE 'UPLOAD',

V_MAX TYPE I VALUE '900', " Max records

V_LINES TYPE I, " No.of records

V_INSERT TYPE I,

V_COUNTER(2) TYPE N, " Sessions

F_OPENSESSION TYPE C,

V_RECORDS TYPE I.

DATA: V_EMPTY TYPE I, " No. of empty records

V_TOTAL TYPE I, " Total no. of records with data

V_SESSION TYPE APQI-GROUPID, " Session name

V_DEL TYPE X VALUE '09'. " To seperate fields in case of Dat

DATA: IT_INTERN TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.

DATA: V_SFILE(255), " File path

V_EXT(3). " File Extension

----

SELECTION SCREEN. *

----

SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT_001.

PARAMETER : P_FILE TYPE RLGRAP-FILENAME OBLIGATORY DEFAULT " Input File

'C:\Material_master.TXT',

P_ERR TYPE RLGRAP-FILENAME OBLIGATORY DEFAULT " Error File

'C:\Material_master_ERR.TXT'.

PARAMETER: P_FTYPE LIKE RLGRAP-FILETYPE DEFAULT 'DAT'. " File Type

SELECTION-SCREEN END OF BLOCK SCR1.

SELECTION-SCREEN BEGIN OF BLOCK MODE WITH FRAME TITLE TEXT-002.

PARAMETER : P_CT RADIOBUTTON GROUP BDC, " Call Trans

P_BDC RADIOBUTTON GROUP BDC DEFAULT 'X'. " Create BDC sess

PARAMETER : P_SESS1 TYPE APQI-GROUPID OBLIGATORY

DEFAULT C_SESS. " Session name

PARAMETER : P_MAX(4) OBLIGATORY DEFAULT '100', " no.of recs in a session

P_TEST AS CHECKBOX DEFAULT 'X'. " Test mode

PARAMETERS: P_HEADER TYPE I DEFAULT 0. " Header Lines

PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,

P_BEGROW TYPE I DEFAULT 1 NO-DISPLAY,

P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,

P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK MODE.

----

AT SELECTION-SCREEN *

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

*--- Validating file

PERFORM VALIDATE_FILE USING P_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_ERR.

*--- Validating file

PERFORM VALIDATE_FILE USING P_ERR.

----

START-OF-SELECTION

----

START-OF-SELECTION.

*--- Perform to store the data to an internal table

PERFORM READ_INPUT_DATA.

*--- Perform to get values from the text file

PERFORM FILE_VALIDATION.

*--- Process data in non test mode only

IF P_TEST = SPACE.

IF NOT IT_DATA[] IS INITIAL.

PERFORM PROCESS_DATA.

ELSE.

MESSAGE S003(ZLKPL_MSGCLASS).

F_STOP = 'X'.

STOP.

ENDIF.

----

END OF SELECTION. *

----

END-OF-SELECTION.

IF F_STOP = SPACE.

*--- Perform to display the selection screen report

PERFORM DISPLAY_SEL_SCR_REPORT.

*---- Perform to display the no.of records,success and error records

PERFORM DISPLAY_SUMMARY_REPORT.

*--- Perform to display the session report

PERFORM SESSION_REPORT.

*--- Downloading error records.

PERFORM DOWNLOAD_ERROR_FILES.

*---- Perform to display the error records

PERFORM DISPLAY_ERROR_RECORDS.

ENDIF.

----

Form : validate_input_file

----

Description : To provide F4 help for file if read from PC

----

FORM VALIDATE_FILE USING F_FILE TYPE RLGRAP-FILENAME.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

CHANGING

FILE_NAME = F_FILE

EXCEPTIONS

MASK_TOO_LONG = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE S010(ZLKPL_MSGCLASS). " 'Error in getting filename'.

ENDIF.

ENDFORM. " validate_input_file

----

Form : Read_inputfile

----

Description : To upload the data into internal table

----

FORM READ_INPUTFILE TABLES F_INFILE

USING F_FILE TYPE RLGRAP-FILENAME

F_FILTYP TYPE RLGRAP-FILETYPE.

CLEAR F_INFILE.

REFRESH F_INFILE.

*--- Function module to upload the input file

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = F_FILE

FILETYPE = F_FILTYP

TABLES

DATA_TAB = F_INFILE

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10.

IF SY-SUBRC <> 0.

MESSAGE I011(ZLKPL_MSGCLASS). " 'Error in uploading the file'.

F_STOP = 'X'.

STOP.

ENDIF.

ENDFORM. "Read_inputfile

&----

*& Form FORMAT_ASC_DATA

&----

To format the ASCII data

----

FORM FORMAT_ASC_DATA.

LOOP AT I_INFILE_ASC.

IT_DATA-MATNR = I_INFILE_ASC-STRING+0(18).

IT_DATA-MBRSH = I_INFILE_ASC-STRING+18(1).

IT_DATA-MTART = I_INFILE_ASC-STRING+19(4).

IT_DATA-WERKS = I_INFILE_ASC-STRING+23(4).

IT_DATA-LGORT = I_INFILE_ASC-STRING+27(4).

IT_DATA-MAKTX = I_INFILE_ASC-STRING+31(40).

IT_DATA-BISMT = I_INFILE_ASC-STRING+71(18).

IT_DATA-MEINS = I_INFILE_ASC-STRING+88(3).

IT_DATA-MATKL = I_INFILE_ASC-STRING+91(9).

IT_DATA-EKGRP = I_INFILE_ASC-STRING+100(3).

IT_DATA-DISMM = I_INFILE_ASC-STRING+103(2).

IT_DATA-BESKZ = I_INFILE_ASC-STRING+104(1).

IT_DATA-BKLAS = I_INFILE_ASC-STRING+108(4).

IT_DATA-VPRSV = I_INFILE_ASC-STRING+112(1).

IT_DATA-MTVFP = I_INFILE_ASC-STRING+113(2).

ENDLOOP.

ENDFORM. " FORMAT_ASC_DATA

----

Form FILE_VALIDATION

----

To validate data

----

FORM FILE_VALIDATION.

DATA: LV_TABIX LIKE SY-TABIX,

LV_FLAG(1).

LOOP AT IT_DATA.

CLEAR V_MESG.

----- check for the mandatory fields

IF IT_DATA-MAKTX IS INITIAL

OR IT_DATA-MEINS IS INITIAL

OR IT_DATA-MATKL IS INITIAL

OR IT_DATA-EKGRP IS INITIAL

OR IT_DATA-DISMM IS INITIAL

OR IT_DATA-VPRSV IS INITIAL .

LV_TABIX = SY-TABIX.

V_MESG = 'Mandatory fields missing'(002).

----- Perform to store the error record

PERFORM ERROR_PROCESSING. " USING IT_DATA V_MESG.

----- Deleting the record which is initial

DELETE IT_DATA INDEX LV_TABIX.

ENDIF.

ENDLOOP.

CLEAR V_MESG.

ENDFORM. " DATA_VALIDATION

&----

*& Form error_processing

&----

To process the error records

----

FORM ERROR_PROCESSING. " USING F_IT_DATA

"F_MESG.

V_ERROR = V_ERROR + 1.

IT_ERROR = IT_DATA.

IT_ERROR-MESSAGE = V_MESG.

APPEND IT_ERROR.

CLEAR IT_ERROR.

ENDFORM. " error_processing

----

Form : process_data *

----

--- Populating the BDC Data *

----

FORM PROCESS_DATA .

LOOP AT IT_DATA.

CLEAR :IT_BDCTAB,

I_BDCMSGCOLL.

REFRESH:IT_BDCTAB,

I_BDCMSGCOLL.

*--- To fill the data from the text file

PERFORM FILL_BDCDATA.

IF P_CT EQ 'X'.

*--- Posts data using call transaction method.

PERFORM CALL_TRANSACTION.

ELSE.

*--- Posts data using session method.

PERFORM CALL_SESSION USING C_TCODE P_MAX P_SESS1.

ENDIF.

ENDLOOP.

IF F_OPENSESSION = 'X'.

PERFORM CLOSE_SESSION.

ENDIF.

ENDFORM. " PROCESS_DATA

&----

*& Form FILL_BDCDATA

&----

To populate the data

----

FORM FILL_BDCDATA.

*--- Perform to populate the data in screen 0060

PERFORM POPULATE_DATA_SCREEN_0060.

*--- Perform to populate the data in screen 0070

PERFORM POPULATE_DATA_SCREEN_0070.

*--- Perform to populate the data in screen 0080

PERFORM POPULATE_DATA_SCREEN_0080.

*--- Perform to populate the data in screen 4004

PERFORM POPULATE_DATA_SCREEN_4004.

*--- Perform to populate the BASIC data 2 in screen 4004

PERFORM POPULATE_BDATA2_SCREEN_4004.

*--- Perform to populate the Purchasing data in screen 4000

PERFORM POPULATE_PURCHASE_SCREEN_4000.

*--- Perform to populate the Purchase order text data in screen 4040

PERFORM POPULATE_PURORDTXT_SCREEN_4040.

*--- Perform to populate the MRP1 in screen 4000

PERFORM POPULATE_MRP1_SCREEN_4000.

*--- Perform to populate the MRP2 in screen 4000

PERFORM POPULATE_MRP2_SCREEN_4000.

*--- Perform to populate the MRP3 in screen 4000

PERFORM POPULATE_MRP3_SCREEN_4000.

*--- Perform to populate the MRP4 in screen 4000

PERFORM POPULATE_MRP4_SCREEN_4000.

*--- Perform to populate the Plant Data & Storage loc in screen 4000

PERFORM POPULATE_P_SL1_SCREEN_4000.

*--- Perform to populate the Plant Data & Storage loc in screen 4000

PERFORM POPULATE_P_SL2_SCREEN_4000.

*--- Perform to populate the Accounting 1 in screen 4000

PERFORM POPULATE_ACC1_SCREEN_4000.

*--- Perform to populate the Accounting 2 in screen 4000

PERFORM POPULATE_ACC2_SCREEN_4000.

ENDFORM. " FILL_BDCDATA

----

Start new screen *

----

FORM BDC_DYNPRO USING F_PROGRAM F_DYNPRO.

CLEAR IT_BDCTAB.

IT_BDCTAB-PROGRAM = F_PROGRAM.

IT_BDCTAB-DYNPRO = F_DYNPRO.

IT_BDCTAB-DYNBEGIN = 'X'.

APPEND IT_BDCTAB.

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> SPACE.

CLEAR IT_BDCTAB.

IT_BDCTAB-FNAM = FNAM.

IT_BDCTAB-FVAL = FVAL.

APPEND IT_BDCTAB.

ENDIF.

ENDFORM.

----

Form : call_transaction *

----

*--- Posts data using call transaction method. *

----

FORM CALL_TRANSACTION .

CLEAR: V_LINES,

V_MESG.

*----- call transaction method to upload data

CALL TRANSACTION C_TCODE USING IT_BDCTAB

MODE C_MODE

UPDATE C_UPDATE

MESSAGES INTO I_BDCMSGCOLL.

IF SY-SUBRC <> 0.

DESCRIBE TABLE I_BDCMSGCOLL LINES V_LINES.

READ TABLE I_BDCMSGCOLL INDEX V_LINES TRANSPORTING ALL FIELDS.

*--- Formats message returned by Call transaction.

PERFORM FORMAT_MESSAGE.

*--- Perform to process error processing

PERFORM ERROR_PROCESSING." USING IT_DATA V_MESG.

PERFORM CALL_SESSION USING C_TCODE P_MAX P_SESS1.

ELSE. "If call transaction is successful.

V_SUCCESS = V_SUCCESS + 1.

ENDIF.

ENDFORM. " call_transaction

&----

*& Form format_message

&----

*-------Reading messages

----

FORM FORMAT_MESSAGE.

CLEAR V_MESG.

*--- Function module to get the message.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = I_BDCMSGCOLL-MSGID

LANG = SY-LANGU

NO = I_BDCMSGCOLL-MSGNR

V1 = I_BDCMSGCOLL-MSGV1

V2 = I_BDCMSGCOLL-MSGV2

V3 = I_BDCMSGCOLL-MSGV3

V4 = I_BDCMSGCOLL-MSGV4

IMPORTING

MSG = V_MESG.

ENDFORM. " format_message

----

Form : call_session

----

Description : To call the session either for FSP0 or FSP2

----

FORM CALL_SESSION USING FP_TCODE TYPE ANY

F_MAX TYPE ANY

F_SESS1 TYPE ANY.

To open the session

PERFORM OPEN_SESSION USING F_MAX F_SESS1.

Perform Insert BDC Session

PERFORM BDC_INSERT USING FP_TCODE.

To close the session

IF V_INSERT = F_MAX .

PERFORM CLOSE_SESSION.

ENDIF.

ENDFORM. " call_session

----

Form : open_session

----

Description : Form to open BDC open group.

----

FORM OPEN_SESSION USING F_MAX TYPE ANY

F_SESS1 TYPE ANY.

IF V_INSERT = F_MAX OR F_OPENSESSION = SPACE.

V_COUNTER = V_COUNTER + 1.

CLEAR V_SESSION.

CONCATENATE F_SESS1 '_' V_COUNTER INTO V_SESSION.

Opening the BDC Session

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = V_SESSION

KEEP = 'X'

USER = SY-UNAME

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 I007(ZLKPL_MSGCLASS). " 'Error in Opening the Session'.

EXIT.

ELSE.

CLEAR V_INSERT.

F_OPENSESSION = 'X'.

ENDIF.

ENDFORM. " open_session

----

Form : bdc_insert

----

Description : Form to Insert data.

----

FORM BDC_INSERT USING FP_TCODE TYPE ANY.

Inserting BDC

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = FP_TCODE

TABLES

DYNPROTAB = IT_BDCTAB

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 I007(ZLKPL_MSGCLASS). " 'Error in inserting the record'.

ELSE.

V_INSERT = V_INSERT + 1.

ENDIF.

ENDFORM. " bdc_insert

----

Form : close_session

----

Description : To close the session

----

FORM CLOSE_SESSION.

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

NOT_OPEN = 1

QUEUE_ERROR = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

MESSAGE I007(ZLKPL_MSGCLASS). " 'Session cannot be closed'.

ELSE.

I_SESSION-NAME = V_SESSION.

APPEND I_SESSION.

CLEAR I_SESSION.

CLEAR F_OPENSESSION.

ENDIF.

ENDFORM. " close_session

&----

*& Form DISPLAY_SUCCESS_ERROR_DATA

&----

To display the no.of records,success and error records

----

FORM DISPLAY_SUMMARY_REPORT.

SKIP 3.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE :/1(132) SY-ULINE.

WRITE :/1(1) SY-VLINE,

65 'SUMMARY REPORT'(003),

132(1) SY-VLINE.

FORMAT INTENSIFIED OFF.

PERFORM COLOR_FILL.

WRITE :/1(132) SY-ULINE.

WRITE :/1(1) SY-VLINE,

2(24) 'Processed Records'(004),

27(2) ' : ',

30 V_TOTAL,

132(1) SY-VLINE.

PERFORM COLOR_FILL.

WRITE :/1(1) SY-VLINE,

2(24) 'Successfully Uploaded'(005),

27(2) ' : ',

30 V_SUCCESS,

132(1) SY-VLINE.

PERFORM COLOR_FILL.

WRITE :/1(1) SY-VLINE,

2(24) 'Error Records'(006),

27(2) ' : ',

30 V_ERROR,

132(1) SY-VLINE.

PERFORM COLOR_FILL.

WRITE :/1(1) SY-VLINE,

2(24) 'Empty Records'(007),

27(2) ' : ',

30 V_EMPTY,

132(1) SY-VLINE.

WRITE :/1(132) SY-ULINE.

ENDFORM. " DISPLAY_SUCCESS_ERROR_DATA

&----

*& Form DISPLAY_ERROR_RECORDS

&----

To display the error records

----

FORM DISPLAY_ERROR_RECORDS.

IF V_ERROR > 0.

---- Perform to display the error header

PERFORM DISPLAY_ERROR_HEADER.

---- Perform to display the error records

PERFORM DISPLAY_ERROR_DETAIL.

ENDIF.

ENDFORM. " DISPLAY_ERROR_RECORDS

&----

*& Form DISPLAY_ERROR_HEADER

&----

To display the error header

----

FORM DISPLAY_ERROR_HEADER.

WRITE :/1(89) SY-ULINE.

SKIP.

WRITE :/1(132) SY-ULINE.

WRITE :/1(1) SY-VLINE,

40 'ERROR RECORDS'(008),

132(1) SY-VLINE.

WRITE :/1(132) SY-ULINE.

WRITE : /1(1) SY-VLINE,

2(18) 'Material Number'(009),

20(1) SY-VLINE,

21(4) 'Type'(010),

25(1) SY-VLINE,

26(5) 'Plant'(011),

31(1) SY-VLINE,

32(16) 'storage location'(012),

48(1) SY-VLINE,

49(80) 'Message'(013),

132(1) SY-VLINE.

WRITE :/1(132) SY-ULINE.

ENDFORM. " DISPLAY_ERROR_HEADER

&----

*& Form DISPLAY_ERROR_DETAIL

&----

To display the error records

----

FORM DISPLAY_ERROR_DETAIL.

LOOP AT IT_ERROR.

WRITE : /1(1) SY-VLINE,

2(18) IT_ERROR-MATNR,

20(1) SY-VLINE,

21(4) IT_ERROR-MTART,

25(1) SY-VLINE,

26(5) IT_ERROR-WERKS,

31(1) SY-VLINE,

32(16) IT_ERROR-LGORT,

48(1) SY-VLINE,

49(80) IT_ERROR-MESSAGE,

132(1) SY-VLINE.

ENDLOOP.

WRITE :/1(132) SY-ULINE.

ENDFORM. " DISPLAY_ERROR_DETAIL

FORM DOWNLOAD_ERROR_FILES.

IF NOT IT_ERROR[] IS INITIAL.

IF P_FTYPE = 'DAT'.

LOOP AT IT_ERROR.

CONCATENATE IT_ERROR-MATNR

IT_ERROR-MBRSH

IT_ERROR-MTART

IT_ERROR-WERKS

IT_ERROR-LGORT

IT_ERROR-MAKTX

IT_ERROR-BISMT

IT_ERROR-MEINS

IT_ERROR-MATKL

IT_ERROR-EKGRP

IT_ERROR-DISMM

IT_ERROR-BESKZ

IT_ERROR-BKLAS

IT_ERROR-VPRSV

IT_ERROR-MTVFP

INTO I_FINAL-STRING SEPARATED BY V_DEL.

APPEND I_FINAL.

CLEAR I_FINAL.

ENDLOOP.

CLEAR I_FINAL.

ELSEIF P_FTYPE = 'ASC'.

LOOP AT IT_ERROR.

I_FINAL-STRING+0(18) = IT_ERROR-MATNR.

I_FINAL-STRING+18(1) = IT_ERROR-MBRSH.

I_FINAL-STRING+19(4) = IT_ERROR-MTART.

I_FINAL-STRING+23(4) = IT_ERROR-WERKS.

I_FINAL-STRING+27(4) = IT_ERROR-LGORT.

I_FINAL-STRING+31(40) = IT_ERROR-MAKTX.

I_FINAL-STRING+71(18) = IT_ERROR-BISMT.

I_FINAL-STRING+88(3) = IT_ERROR-MEINS.

I_FINAL-STRING+91(9) = IT_ERROR-MATKL.

I_FINAL-STRING+100(3) = IT_ERROR-EKGRP.

I_FINAL-STRING+103(2) = IT_ERROR-DISMM.

I_FINAL-STRING+104(1) = IT_ERROR-BESKZ.

I_FINAL-STRING+108(4) = IT_ERROR-BKLAS.

I_FINAL-STRING+112(1) = IT_ERROR-VPRSV.

I_FINAL-STRING+113(2) = IT_ERROR-MTVFP.

APPEND I_FINAL.

CLEAR I_FINAL.

ENDLOOP.

ENDIF. "IF P_FTYPE = 'DAT'.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

FILENAME = P_ERR

FILETYPE = P_FTYPE

TABLES

DATA_TAB = I_FINAL

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10.

IF SY-SUBRC <> 0.

MESSAGE I000 WITH 'Unable to download Error file'(054).

ENDIF.

ENDIF. "IF NOT I_FILE_ERROR[] IS INITIAL.

ENDFORM. " DOWNLOAD_ERROR_FILES

----

Form : session_report

----

Description : To display the list of sessions created

----

FORM SESSION_REPORT .

IF NOT I_SESSION[] IS INITIAL.

FORMAT COLOR COL_HEADING.

WRITE :/01(132) SY-ULINE.

WRITE :/01(01) SY-VLINE,

56 'Sessions created'(014),

132(01) SY-VLINE.

WRITE :/01(132) SY-ULINE.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE :/01(132) SY-ULINE.

LOOP AT I_SESSION.

perform color_swap.

WRITE : /1 SY-VLINE.

AT FIRST.

WRITE : 5 'Session names'(015).

ENDAT.

WRITE : 50 ':', 52 I_SESSION-NAME,

132 SY-VLINE.

ENDLOOP.

WRITE : /01(132) SY-ULINE.

ENDIF.

ENDFORM. " session_report

&----

*& Form READ_INPUT_DATA

&----

text

----

FORM READ_INPUT_DATA.

*--- Splitting the filename and its extension

PERFORM SPLIT_FILENAME_EXT.

CASE V_EXT.

WHEN 'TXT'.

IF P_FTYPE = 'ASC'.

*--- Uploading the data from server

PERFORM READ_INPUTFILE TABLES I_INFILE_ASC

USING P_FILE P_FTYPE.

*--- Perform Formating ASC type data

PERFORM FORMAT_ASC_DATA.

ELSEIF P_FTYPE = 'DAT'.

*--- Uploading the data from server

PERFORM READ_INPUTFILE TABLES IT_DATA

USING P_FILE P_FTYPE.

ENDIF.

WHEN OTHERS.

MESSAGE S000(ZLKPL_MSGCLASS).

F_STOP = 'X'.

STOP.

ENDCASE.

IF NOT IT_DATA[] IS INITIAL.

*--- Perform to delete Header lines

PERFORM DELETE_HEADER_EMPTY_RECS.

ENDIF.

ENDFORM. " READ_INPUT_DATA

&----

*& Form SPLIT_FILENAME_EXT

&----

text

----

FORM SPLIT_FILENAME_EXT.

MOVE P_FILE TO V_SFILE.

*--- To get the extensions of the file

CALL FUNCTION 'CV120_SPLIT_FILE'

EXPORTING

PF_FILE = V_SFILE

IMPORTING

PFX_FILE =

PFX_EXTENSION = V_EXT

PFX_DOTEXTENSION =

*--- Checking the case of file extension

IF V_EXT NA SY-ABCDE.

TRANSLATE V_EXT TO UPPER CASE.

ENDIF.

ENDFORM. " SPLIT_FILENAME_EXT

&----

*& Form MOVE_DATA

&----

text

----

FORM MOVE_DATA.

DATA : LV_INDEX TYPE I.

FIELD-SYMBOLS <FS>.

*--- Sorting the internal table

SORT IT_INTERN BY ROW COL.

CLEAR IT_INTERN.

LOOP AT IT_INTERN.

MOVE IT_INTERN-COL TO LV_INDEX.

*--- Assigning the each record to an internal table row

ASSIGN COMPONENT LV_INDEX OF STRUCTURE IT_DATA TO <FS>.

*--- Asigning the field value to a field symbol

MOVE IT_INTERN-VALUE TO <FS>.

AT END OF ROW.

APPEND IT_DATA.

CLEAR IT_DATA.

ENDAT.

ENDLOOP.

ENDFORM. " MOVE_DATA

&----

*& Form DISPLAY_SEL_SCR_REPORT

&----

text

----

FORM DISPLAY_SEL_SCR_REPORT.

WRITE :/1(132) SY-ULINE.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE :/1(1) SY-VLINE,

65(65) 'SELECTION SCREEN DATA'(016),

132(1) SY-VLINE.

WRITE :/1(132) SY-ULINE.

FORMAT INTENSIFIED OFF.

*--- Input file name

WRITE :/1(1) SY-VLINE,

2(24) 'Input File name'(017),

27(2) ' : ',

30(100) P_FILE,

132(1) SY-VLINE.

IF NOT IT_ERROR[] IS INITIAL.

*--- Setting the Error file name with .CSV

PERFORM COLOR_FILL.

IF V_EXT = 'XLS'.

IF NOT P_ERR CS '.XLS'.

IF P_ERR CA '.'.

P_ERR = P_ERR(SY-FDPOS).

CONCATENATE P_ERR '.CSV' INTO P_ERR.

ENDIF.

P_FTYPE = 'DAT'.

V_DEL = '2C'. " Hexadecimal value for ','

ENDIF.

*--- Error File name

PERFORM COLOR_FILL.

WRITE :/1(1) SY-VLINE,

2(24) 'Error File name'(018),

27(2) ' : ',

30(100) P_ERR,

132(1) SY-VLINE.

ENDIF.

*--- File type

WRITE :/1(1) SY-VLINE,

2(24) 'File Type'(019),

27(2) ' : '.

IF V_EXT = 'XLS'.

WRITE :30 'XLS'(020),

132(1) SY-VLINE.

ELSE.

WRITE :30 P_FTYPE,

132(1) SY-VLINE.

ENDIF.

*--- BDC methods

IF P_CT = 'X'.

WRITE :/1(1) SY-VLINE,

2(24) 'Call Transaction'(021),

27(2) ' : ',

30 P_CT,

132(1) SY-VLINE.

ELSE.

WRITE :/1(1) SY-VLINE,

2(24) 'Create Session'(022),

27(2) ' : ',

30 P_BDC,

132(1) SY-VLINE.

ENDIF.

*--- Test Mode

WRITE :/1(1) SY-VLINE,

2(24) 'Test Mode'(023),

27(2) ' : ',

30 P_TEST,

132(1) SY-VLINE.

*--- Header lines

WRITE :/1(1) SY-VLINE,

2(24) 'Header Lines'(024),

27(2) ' : ',

30 P_HEADER LEFT-JUSTIFIED,

132(1) SY-VLINE.

WRITE :/1(132) SY-ULINE.

ENDFORM. " DISPLAY_SEL_SCR_REPORT

FORM DELETE_HEADER_EMPTY_RECS.

DATA: LV_TABIX LIKE SY-TABIX.

IF NOT P_HEADER IS INITIAL.

LOOP AT IT_DATA.

IF P_HEADER > 0 AND NOT IT_DATA IS INITIAL.

DELETE IT_DATA FROM 1 TO P_HEADER.

P_HEADER = 0.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR IT_DATA.

*--- To delete the empty lines from internal table

LOOP AT IT_DATA.

LV_TABIX = SY-TABIX.

IF IT_DATA IS INITIAL.

V_EMPTY = V_EMPTY + 1.

DELETE IT_DATA INDEX LV_TABIX..

ENDIF.

ENDLOOP.

CLEAR IT_DATA.

*--- Total no of recs in file

DESCRIBE TABLE IT_DATA LINES V_TOTAL.

IF V_TOTAL = 0.

MESSAGE I012(ZLKPL_MSGCLASS). " No records in the file

F_STOP = 'X'.

STOP.

ENDIF.

ENDFORM.