Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Problem in BDC Program

Former Member

‎2007 Dec 18 6:04 AM

0 Likes
611

Hi ABAPers,

I want to upload the material master data.For that i wrote BDC Program.For One Record

it is not giving any error.But for more than one record i am getting Error.

Here i am giving my code Please Solve my Problem.

Report ZBDC_MM01

no standard page heading line-size 255.

----

  • DECLARATION OF INTERNAL TABLES AND VARIABLES

----

TABLES : T100.

TYPES : BEGIN OF TY_HEAD,

MATNR TYPE MATNR,

MBRSH TYPE MBRSH,

MTART TYPE MTART,

MAKTX TYPE MAKTX,

MEINS TYPE MEINS,

END OF TY_HEAD.

DATA : ITAB TYPE TABLE OF TY_HEAD WITH HEADER LINE.

DATA: BDCDATA TYPE STANDARD TABLE OF BDCDATA WITH HEADER LINE.

DATA: IT_EXL_HEADER TYPE STANDARD TABLE OF KCDE_CELLS WITH HEADER LINE.

DATA: IT_EXCEL TYPE STANDARD TABLE OF KCDE_CELLS WITH HEADER LINE.

DATA: IT_MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL WITH HEADER LINE.

FIELD-SYMBOLS: <FS>.

DATA: P_TEXT(30),

VF_INDEX TYPE I,

L_MSTRING(480).

PARAMETERS: P_FILE LIKE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM F4_GET_FILENAME.

----

  • START OF SELECTION

----

start-of-selection.

PERFORM GET_HEADER_DATA.

PERFORM MAP_DATA.

PERFORM GET_MESSAGES .

----

  • FORM MAP_DATA

----

FORM MAP_DATA.

LOOP AT ITAB.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MATNR'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'RMMG1-MATNR'

ITAB-MATNR.

perform bdc_field using 'RMMG1-MBRSH'

ITAB-MBRSH.

perform bdc_field using 'RMMG1-MTART'

ITAB-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)'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'MAKT-MAKTX'.

perform bdc_field using 'MAKT-MAKTX'

ITAB-MAKTX.

perform bdc_field using 'BDC_CURSOR'

'MARA-MEINS'.

perform bdc_field using 'MARA-MEINS'

ITAB-MEINS.

perform bdc_field using 'MARA-MTPOS_MARA'

'NORM'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

CALL TRANSACTION 'MM01' USING BDCDATA MODE 'A' UPDATE 'S' MESSAGES INTO IT_MESSTAB.

CLEAR BDCDATA.

ENDLOOP.

ENDFORM.

----

  • FORM GET_FILENAME

----

FORM F4_GET_FILENAME .

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

PROGRAM_NAME = 'ZISU_FPE'

DYNPRO_NUMBER = SYST-DYNNR

CHANGING

FILE_NAME = P_FILE

EXCEPTIONS

MASK_TOO_LONG = 1

OTHERS = 2.

ENDFORM. " F4_GET_FILENAME

----

  • FORM CONVERT EXCEL SHEET DATA INTO ITAB

----

FORM GET_HEADER_DATA.

CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'

EXPORTING

FILENAME = P_FILE

I_BEGIN_COL = '1'

I_BEGIN_ROW = '2'

I_END_COL = '5'

I_END_ROW = '10000'

TABLES

INTERN = IT_EXL_HEADER

  • EXCEPTIONS

  • INCONSISTENT_PARAMETERS = 1

  • UPLOAD_OLE = 2

  • OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE I345(0) WITH 'FILE NOT FOUND'.

ENDIF.

IF IT_EXL_HEADER[] IS INITIAL.

P_TEXT = 'No Data Uploaded'.

ELSE.

SORT IT_EXL_HEADER BY ROW COL.

LOOP AT IT_EXL_HEADER.

MOVE : IT_EXL_HEADER-COL TO VF_INDEX.

ASSIGN COMPONENT VF_INDEX OF STRUCTURE ITAB TO <FS>.

MOVE : IT_EXL_HEADER-VALUE TO <FS>.

AT END OF ROW.

APPEND ITAB.

CLEAR ITAB.

ENDAT.

ENDLOOP.

ENDIF.

ENDFORM. "GET_HEADER_DATA

----

  • FORM GET_MESSAGES

----

FORM GET_MESSAGES .

IF SY-SUBRC <> 0.

FORMAT COLOR 6 ON INTENSIFIED OFF.

WRITE:/ 'Error in Posting document' .

FORMAT COLOR OFF.

ULINE.

LOOP AT IT_MESSTAB.

SELECT SINGLE * FROM T100 WHERE SPRSL = IT_MESSTAB-MSGSPRA

AND ARBGB = IT_MESSTAB-MSGID

AND MSGNR = IT_MESSTAB-MSGNR.

IF SY-SUBRC = 0.

L_MSTRING = T100-TEXT.

IF L_MSTRING CS '&1'.

REPLACE '&1' WITH IT_MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&2' WITH IT_MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&3' WITH IT_MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&4' WITH IT_MESSTAB-MSGV4 INTO L_MSTRING.

ELSE.

REPLACE '&' WITH IT_MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV4 INTO L_MSTRING.

ENDIF.

CONDENSE L_MSTRING.

WRITE: / L_MSTRING(250) COLOR 2 INTENSIFIED OFF.

ELSE.

  • WRITE: / IT_MESSTAB.

ENDIF.

ENDLOOP.

ULINE.

WRITE:/ 'Document not posted' COLOR 5 INTENSIFIED OFF.

ELSE.

LOOP AT IT_MESSTAB.

SELECT SINGLE * FROM T100 WHERE SPRSL = IT_MESSTAB-MSGSPRA

AND ARBGB = IT_MESSTAB-MSGID

AND MSGNR = IT_MESSTAB-MSGNR.

IF SY-SUBRC = 0.

L_MSTRING = T100-TEXT.

IF L_MSTRING CS '&1'.

REPLACE '&1' WITH IT_MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&2' WITH IT_MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&3' WITH IT_MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&4' WITH IT_MESSTAB-MSGV4 INTO L_MSTRING.

ELSE.

REPLACE '&' WITH IT_MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&' WITH IT_MESSTAB-MSGV4 INTO L_MSTRING.

ENDIF.

ENDIF.

CONDENSE L_MSTRING.

ENDLOOP.

WRITE: / L_MSTRING(250).

ENDIF.

ENDFORM. " GET_MESSAGES

----

  • Start new screen

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM. "BDC_DYNPRO

----

  • Insert field

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> SPACE.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDIF.

ENDFORM. "BDC_FIELD

Regards,

Ashok.

3 REPLIES 3
Read only

RoySayak
Active Participant

‎2007 Dec 18 6:23 AM

0 Likes
534

use REFRESH BDCDATA after the call transaction statement... it'll be solved..

Please Reward points if its helpful.

Regards,

Sayak

Read only

jayanthi_jayaraman
Active Contributor

‎2007 Dec 18 6:26 AM

0 Likes
534

Hi,

Try to declare the contents of ty_head as character.

Read only

Former Member

‎2007 Dec 18 6:46 AM

0 Likes
534

This works. Try this as a reference:

REPORT ZMCC0003 NO STANDARD PAGE HEADING

LINE-SIZE 132

LINE-COUNT 65

MESSAGE-ID ZM.

----

  • Data declaration *

*----

CONSTANTS: C_MAP LIKE MBEW-VPRSV VALUE 'V', "Moving average price

C_STNP LIKE MBEW-VPRSV VALUE 'S', "Standard price

C_LOGICALFILE LIKE FILENAME-FILEINTERN VALUE 'ZMATERIAL'.

TABLES: MARA. "TCS

DATA: BEGIN OF IT_UPLOAD OCCURS 0,

MATNR LIKE MARA-MATNR, "material no

MBRSH LIKE MARA-MBRSH, "industry sector

MTART LIKE MARA-MTART, "material type

WERKS LIKE MARC-WERKS, "plant

LGORT LIKE MARD-LGORT, "storage location

MAKTX LIKE MAKT-MAKTX, "material desc.

MEINS LIKE MARA-MEINS, "base UOM

MATKL LIKE MARA-MATKL, "material grp

BISMT LIKE MARA-BISMT, "old material no

SPART LIKE MARA-SPART, "division

BRGEW LIKE MARA-BRGEW, "gross weight

NTGEW LIKE MARA-NTGEW, "net weight

GEWEI LIKE MARA-GEWEI, "weight unit

VOLUM LIKE MARA-VOLUM, "volume

VOLEH LIKE MARA-VOLEH, "volume unit

EKGRP LIKE MARC-EKGRP, "purchasing grp

XCHPF LIKE MARA-XCHPF, "batch mgmt

EKWSL LIKE MARA-EKWSL, "purchasing value key

WEBAZ LIKE MARC-WEBAZ, "GR processing time

DISGR LIKE MARC-DISGR, "MRP group

DISMM LIKE MARC-DISMM, "MRP type

DISPO LIKE MARC-DISPO, "MRP controller

MINBE LIKE MARC-MINBE, "reorder point

DISLS LIKE MARC-DISLS, "lot size

BSTRF LIKE MARC-BSTRF, "rounding value

SOBSL LIKE MARC-SOBSL, "special procurement

LGPRO LIKE MARC-LGPRO, "issue stor. loc

LGFSB LIKE MARC-LGFSB, "stoc. loc for EP

PLIFZ LIKE MARC-PLIFZ, "planned delivery time

FHORI LIKE MARC-FHORI, "scheduling margin key

EISBE LIKE MARC-EISBE, "safety stock

PERKZ LIKE MARC-PERKZ, "period indicator

MTVFP LIKE MARC-MTVFP, "availability check

LGPBE LIKE MARD-LGPBE, "storage bin

ABCIN LIKE MARC-ABCIN, "CC physical inventory ind

BWTTY LIKE MBEW-BWTTY, "valuation category

BKLAS LIKE MBEW-BKLAS, "valuation class

BWTAR LIKE MBEW-BWTAR, "valuation type

VPRSV LIKE MBEW-VPRSV, "price control

VERPR LIKE MBEW-VERPR, "price (MAP/Standard)

END OF IT_UPLOAD.

DATA: BEGIN OF IT_ERROR OCCURS 0,

TABIX(10) TYPE N,

MATNR LIKE MARA-MATNR,

ERMSG(255) TYPE C,

END OF IT_ERROR.

DATA: V_FIELDTEXT(60) TYPE C,

V_FILENAME LIKE RLGRAP-FILENAME,

V_TABIX LIKE SY-TABIX.

DATA: W_BGR00 LIKE BGR00,

W_BMM00 LIKE BMM00,

W_BMMH1 LIKE BMMH1.

----

  • Selection-Screen *

----

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-S01.

PARAMETERS: P_PCFILE LIKE RLGRAP-FILENAME OBLIGATORY,

P_TYPE LIKE RLGRAP-FILETYPE DEFAULT 'ASC',

P_TEST AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK B1.

----

  • At Selection-Screen *

----

AT SELECTION-SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PCFILE.

*BEGIN SYDK978748

DATA: L_FILE TYPE STRING,

T_FILES TYPE FILETABLE,

L_SUBRC TYPE I,

L_TITLE TYPE STRING VALUE 'File System for Pres. Server'.

L_FILE = P_PCFILE.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = L_TITLE

DEFAULT_FILENAME = L_FILE

CHANGING

FILE_TABLE = T_FILES

RC = L_SUBRC

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

OTHERS = 4.

READ TABLE T_FILES INDEX 1 INTO P_PCFILE.

    • CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

    • EXPORTING

    • MASK = ',txt,*.txt'

    • STATIC = 'X'

    • CHANGING

    • FILE_NAME = P_PCFILE.

*END SYDK978748

----

  • START OF SELECTION *

----

START-OF-SELECTION.

    • upload file

PERFORM UPLOAD_PC_FILE.

    • checking master data

PERFORM DATA_CHECKING.

    • if actual run and if no mapping errors, upload the data

CHECK ( P_TEST IS INITIAL AND

IT_ERROR[] IS INITIAL ).

PERFORM UPLOAD_DATA.

----

  • END OF SELECTION *

----

END-OF-SELECTION.

PERFORM PRINT_MAPPING_ERRORS.

&----

*& Form UPLOAD_PC_FILE

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM UPLOAD_PC_FILE.

DATA: IT_TEMP(4096) TYPE C OCCURS 0.

*BEGIN SYDK978748

data: l_file type string.

DATA: L_SEPA TYPE C.

IF P_TYPE = 'DAT'.

L_SEPA = 'X'.

ELSE.

L_SEPA = ' '.

ENDIF.

l_file = P_PCFILE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = l_file

filetype = 'ASC'

has_field_separator = L_SEPA

*{ SYDK981609 - insert

DAT_MODE = 'X'

*} SYDK981609

TABLES

data_tab = IT_TEMP

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.

    • CALL FUNCTION 'WS_UPLOAD'

    • EXPORTING

    • FILENAME = P_PCFILE

    • FILETYPE = P_TYPE

    • TABLES

    • DATA_TAB = IT_TEMP

    • EXCEPTIONS

    • CONVERSION_ERROR = 1

    • INVALID_TABLE_WIDTH = 2

    • INVALID_TYPE = 3

    • NO_BATCH = 4

    • UNKNOWN_ERROR = 5

    • FILE_OPEN_ERROR = 6

    • FILE_READ_ERROR = 7

    • OTHERS = 8.

*END SYDK978748

IF SY-SUBRC NE 0.

MESSAGE S318 WITH TEXT-E01 P_PCFILE.

ENDIF.

CALL FUNCTION 'TEXT_CONVERT_TEX_TO_SAP'

EXPORTING

I_FIELD_SEPERATOR = ','

  • I_LINE_HEADER =

I_TAB_RAW_DATA = IT_TEMP

  • I_FILENAME = p_pcfile

TABLES

I_TAB_CONVERTED_DATA = IT_UPLOAD

  • EXCEPTIONS

  • CONVERSION_FAILED = 1

  • OTHERS = 2

.

IF SY-SUBRC NE 0.

MESSAGE S318 WITH TEXT-E04 P_PCFILE.

ENDIF.

ENDFORM. " UPLOAD_PC_FILE

&----

*& Form DATA_CHECKING

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM DATA_CHECKING.

LOOP AT IT_UPLOAD.

V_TABIX = SY-TABIX.

  • perform check_mara.

PERFORM CHECK_T137.

PERFORM CHECK_T134.

PERFORM CHECK_T001W.

PERFORM CHECK_T001L.

PERFORM CHECK_T006.

PERFORM CHECK_T023.

PERFORM CHECK_TSPA.

PERFORM CHECK_T024.

PERFORM CHECK_T438M.

PERFORM CHECK_T438A.

PERFORM CHECK_T024D.

PERFORM CHECK_T439A.

PERFORM CHECK_T460A.

PERFORM CHECK_T436A.

PERFORM CHECK_TMVF.

PERFORM CHECK_T159C.

PERFORM CHECK_T149.

PERFORM CHECK_T025.

PERFORM CHECK_PRICE_CTRL.

ENDLOOP.

ENDFORM. " DATA_CHECKING

&----

*& Form get_field_description

&----

  • text

----

  • -->P_IT_UPLOAD_MATNR text

  • <--P_V_FIELDTEXT text

----

FORM GET_FIELD_DESCRIPTION USING VALUE(P_FIELDNAME)

CHANGING P_TEXT.

CLEAR P_TEXT.

CALL FUNCTION 'TB_DATAELEMENT_GET_TEXTS'

EXPORTING

NAME = P_FIELDNAME

IMPORTING

DESCRIPTION = P_TEXT

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.

ENDFORM. " get_field_description

&----

*& Form check_t137

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T137.

TABLES: T137.

SELECT SINGLE * FROM T137 WHERE MBRSH = IT_UPLOAD-MBRSH.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'MBRSH'

IT_UPLOAD-MBRSH

SPACE.

ENDIF.

ENDFORM. " check_t137

&----

*& Form check_t134

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T134.

TABLES: T134.

SELECT SINGLE * FROM T134 WHERE MTART = IT_UPLOAD-MTART.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'MTART'

IT_UPLOAD-MTART

SPACE.

ENDIF.

ENDFORM. " check_t134

&----

*& Form keep_data_error

&----

  • text

----

  • -->P_0349 text

  • -->P_IT_UPLOAD_MATNR text

----

FORM KEEP_DATA_ERROR USING VALUE(P_FIELDNAME)

P_FIELDVALUE

P_WERKS.

MOVE V_TABIX TO IT_ERROR-TABIX.

MOVE IT_UPLOAD-MATNR TO IT_ERROR-MATNR.

PERFORM GET_FIELD_DESCRIPTION USING P_FIELDNAME

CHANGING V_FIELDTEXT.

CONCATENATE TEXT-T01 V_FIELDTEXT ':' P_WERKS P_FIELDVALUE

INTO IT_ERROR-ERMSG SEPARATED BY SPACE.

APPEND IT_ERROR.

ENDFORM. " keep_data_error

&----

*& Form check_t001w

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T001W.

TABLES: T001W.

SELECT SINGLE * FROM T001W WHERE WERKS = IT_UPLOAD-WERKS.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'WERKS_D'

IT_UPLOAD-WERKS

SPACE.

ENDIF.

ENDFORM. " check_t001w

&----

*& Form check_t001l

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T001L.

    • Storage location

PERFORM CHECK_STOR_LOC USING 'LGORT_D'

IT_UPLOAD-LGORT.

    • Issue Stor. location

IF NOT IT_UPLOAD-LGPRO IS INITIAL.

PERFORM CHECK_STOR_LOC USING 'LGPRO'

IT_UPLOAD-LGPRO.

ENDIF.

    • Stor. loc for EP

IF NOT IT_UPLOAD-LGFSB IS INITIAL.

PERFORM CHECK_STOR_LOC USING 'LGFSB'

IT_UPLOAD-LGFSB.

ENDIF.

ENDFORM. " check_t001l

&----

*& Form check_t006

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T006.

    • Base UOM

PERFORM CHECK_UOM USING 'MEINS'

IT_UPLOAD-MEINS.

    • Weight unit

IF NOT IT_UPLOAD-GEWEI IS INITIAL.

PERFORM CHECK_UOM USING 'GEWEI'

IT_UPLOAD-GEWEI.

ENDIF.

    • Volume unit

IF NOT IT_UPLOAD-VOLEH IS INITIAL.

PERFORM CHECK_UOM USING 'VOLEH'

IT_UPLOAD-VOLEH.

ENDIF.

ENDFORM. " check_t006

&----

*& Form check_UOM

&----

  • text

----

  • -->P_0536 text

  • -->P_IT_UPLOAD_MEINS text

----

FORM CHECK_UOM USING VALUE(P_FIELDNAME)

P_FIELDVALUE.

TABLES: T006.

SELECT SINGLE * FROM T006 WHERE MSEHI = P_FIELDVALUE.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING P_FIELDNAME

P_FIELDVALUE

SPACE.

ENDIF.

ENDFORM. " check_UOM

&----

*& Form check_t023

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T023.

TABLES: T023.

SELECT SINGLE * FROM T023 WHERE MATKL = IT_UPLOAD-MATKL.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'MATKL'

IT_UPLOAD-MATKL

SPACE.

ENDIF.

ENDFORM. " check_t023

&----

*& Form check_tspa

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_TSPA.

TABLES: TSPA.

CHECK NOT IT_UPLOAD-SPART IS INITIAL.

SELECT SINGLE * FROM TSPA WHERE SPART = IT_UPLOAD-SPART.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'SPART'

IT_UPLOAD-SPART

SPACE.

ENDIF.

ENDFORM. " check_tspa

&----

*& Form check_t024

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T024.

TABLES: T024.

SELECT SINGLE * FROM T024 WHERE EKGRP = IT_UPLOAD-EKGRP.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'EKGRP'

IT_UPLOAD-EKGRP

SPACE.

ENDIF.

ENDFORM. " check_t024

&----

*& Form check_t438m

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T438M.

TABLES: T438M.

CHECK NOT IT_UPLOAD-DISGR IS INITIAL.

SELECT SINGLE * FROM T438M WHERE WERKS = IT_UPLOAD-WERKS

AND MTART = IT_UPLOAD-DISGR.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'DISGR'

IT_UPLOAD-DISGR

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t438m

&----

*& Form check_t438a

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T438A.

TABLES: T438A.

SELECT SINGLE * FROM T438A WHERE DISMM = IT_UPLOAD-DISMM.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'DISMM'

IT_UPLOAD-DISMM

SPACE.

ENDIF.

ENDFORM. " check_t438a

&----

*& Form check_t024d

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T024D.

TABLES: T024D.

SELECT SINGLE * FROM T024D WHERE WERKS = IT_UPLOAD-WERKS

AND DISPO = IT_UPLOAD-DISPO.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'DISPO'

IT_UPLOAD-DISPO

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t024d

&----

*& Form check_t460a

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T460A.

TABLES: T460A.

CHECK NOT IT_UPLOAD-SOBSL IS INITIAL.

SELECT SINGLE * FROM T460A WHERE WERKS = IT_UPLOAD-WERKS

AND SOBSL = IT_UPLOAD-SOBSL.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'SOBSL'

IT_UPLOAD-SOBSL

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t460a

&----

*& Form check_stor_loc

&----

  • text

----

  • -->P_T001L text

----

FORM CHECK_STOR_LOC USING VALUE(P_FIELDNAME)

P_FIELDVALUE.

TABLES: T001L.

SELECT SINGLE * FROM T001L WHERE WERKS = IT_UPLOAD-WERKS

AND LGORT = P_FIELDVALUE.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING P_FIELDNAME

P_FIELDVALUE

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_stor_loc

&----

*& Form check_t436a

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T436A.

TABLES: T436A.

SELECT SINGLE * FROM T436A WHERE WERKS = IT_UPLOAD-WERKS

AND FHORI = IT_UPLOAD-FHORI.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'FHORI'

IT_UPLOAD-FHORI

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t436a

&----

*& Form check_tmvf

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_TMVF.

TABLES: TMVF.

SELECT SINGLE * FROM TMVF WHERE MTVFP = IT_UPLOAD-MTVFP.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'MTVFP'

IT_UPLOAD-MTVFP

SPACE.

ENDIF.

ENDFORM. " check_tmvf

&----

*& Form check_t159c

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T159C.

TABLES: T159C.

CHECK NOT IT_UPLOAD-ABCIN IS INITIAL.

SELECT SINGLE * FROM T159C WHERE WERKS = IT_UPLOAD-WERKS

AND ABCIN = IT_UPLOAD-ABCIN.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'ABCIN'

IT_UPLOAD-ABCIN

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t159c

&----

*& Form check_t149

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T149.

TABLES: T149.

CHECK NOT IT_UPLOAD-BWTTY IS INITIAL.

SELECT SINGLE * FROM T149 WHERE BWKEY = IT_UPLOAD-WERKS

AND BWTTY = IT_UPLOAD-BWTTY.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'BWTTY_D'

IT_UPLOAD-BWTTY

IT_UPLOAD-WERKS.

ENDIF.

ENDFORM. " check_t149

&----

*& Form check_t025

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T025.

TABLES: T025.

SELECT SINGLE * FROM T025 WHERE BKLAS = IT_UPLOAD-BKLAS.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'BKLAS'

IT_UPLOAD-BKLAS

SPACE.

ENDIF.

ENDFORM. " check_t025

&----

*& Form check_price_ctrl

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_PRICE_CTRL.

IF ( IT_UPLOAD-VPRSV <> C_MAP AND

IT_UPLOAD-VPRSV <> C_STNP ).

PERFORM KEEP_DATA_ERROR USING 'VPRSV'

IT_UPLOAD-VPRSV

SPACE.

ENDIF.

ENDFORM. " check_price_ctrl

&----

*& Form upload_data

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM UPLOAD_DATA.

    • open file in UNIX for output

PERFORM OPEN_UNIX_FILE.

    • header record

W_BGR00-STYPE = '0'.

W_BGR00-GROUP = 'MATERIAL_MASTER_UPLOAD'.

W_BGR00-MANDT = SY-MANDT.

W_BGR00-USNAM = SY-UNAME.

TRANSFER W_BGR00 TO V_FILENAME.

    • load data into the direct input structures

    • in the UNIX file

LOOP AT IT_UPLOAD.

W_BMM00-STYPE = '1'.

W_BMM00-TCODE = 'MM01'.

W_BMM00-XEIK1 = 'X'.

W_BMM00-XEIE1 = 'X'.

W_BMM00-XEID1 = 'X'.

W_BMM00-XEID2 = 'X'.

W_BMM00-XEID3 = 'X'.

W_BMM00-XEIL1 = 'X'.

W_BMM00-XEIB1 = 'X'.

    • Addition by TCS

SELECT SINGLE * FROM MARA WHERE MATNR EQ IT_UPLOAD-MATNR.

IF SY-SUBRC EQ 0.

CLEAR W_BMM00-XEIK1.

ENDIF.

    • End of addition

MOVE-CORRESPONDING IT_UPLOAD TO W_BMM00.

TRANSFER W_BMM00 TO V_FILENAME.

W_BMMH1-STYPE = '2'.

MOVE-CORRESPONDING IT_UPLOAD TO W_BMMH1.

IF IT_UPLOAD-VPRSV = 'S'.

CLEAR W_BMMH1-VERPR.

MOVE IT_UPLOAD-VERPR TO W_BMMH1-STPRS.

ENDIF.

TRANSFER W_BMMH1 TO V_FILENAME.

CLEAR : W_BMM00, W_BMMH1.

ENDLOOP.

    • call direct input program to create the materials

    • from the UNIX file

SUBMIT RMDATIND AND RETURN

WITH LDS_NAME = C_LOGICALFILE

WITH SPERR = 'E'.

ENDFORM. " upload_data

&----

*& Form open_unix_file

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM OPEN_UNIX_FILE.

CALL FUNCTION 'FILE_GET_NAME'

EXPORTING

LOGICAL_FILENAME = C_LOGICALFILE

IMPORTING

FILE_NAME = V_FILENAME

EXCEPTIONS

FILE_NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE E318 WITH TEXT-E02 C_LOGICALFILE.

ELSE.

*BEGIN SYDK978748

  • OPEN DATASET V_FILENAME FOR OUTPUT IN TEXT MODE.

OPEN DATASET V_FILENAME FOR OUTPUT IN LEGACY TEXT MODE.

*END SYDK978748

IF SY-SUBRC EQ 0.

  • delete existing file and create new one

DELETE DATASET V_FILENAME.

*BEGIN SYDK978748

  • OPEN DATASET V_FILENAME FOR OUTPUT IN TEXT MODE.

OPEN DATASET V_FILENAME FOR OUTPUT IN LEGACY TEXT MODE.

*END ASYDK978748

ENDIF.

ENDIF.

ENDFORM. " open_unix_file

&----

*& Form print_mapping_errors

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM PRINT_MAPPING_ERRORS.

DATA: V_TABIX LIKE IT_ERROR-TABIX.

IF IT_ERROR[] IS INITIAL AND P_TEST = 'X'.

MESSAGE S105 WITH TEXT-S01.

ENDIF.

CHECK NOT IT_ERROR[] IS INITIAL.

WRITE: / TEXT-H01.

ULINE.

LOOP AT IT_ERROR.

IF V_TABIX <> IT_ERROR-TABIX.

V_TABIX = IT_ERROR-TABIX.

WRITE: / TEXT-R01 INTENSIFIED OFF,

IT_ERROR-TABIX INTENSIFIED ON,

TEXT-R02 INTENSIFIED OFF,

IT_ERROR-MATNR INTENSIFIED ON.

ELSE.

CONTINUE.

ENDIF.

FORMAT COLOR COL_NEGATIVE INTENSIFIED OFF.

LOOP AT IT_ERROR WHERE TABIX = V_TABIX.

WRITE: /12 IT_ERROR-ERMSG.

ENDLOOP.

FORMAT COLOR OFF.

ENDLOOP.

ENDFORM. " print_mapping_errors

&----

*& Form check_t439a

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_T439A.

TABLES: T439A.

SELECT SINGLE * FROM T439A WHERE DISLS = IT_UPLOAD-DISLS.

IF SY-SUBRC <> 0.

PERFORM KEEP_DATA_ERROR USING 'DISLS'

IT_UPLOAD-DISLS

SPACE.

ENDIF.

ENDFORM. " check_t439a

&----

*& Form check_mara

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM CHECK_MARA.

  • TABLES: MARA. "TCS

SELECT SINGLE * FROM MARA WHERE MATNR = IT_UPLOAD-MATNR.

IF SY-SUBRC = 0.

MOVE V_TABIX TO IT_ERROR-TABIX.

MOVE IT_UPLOAD-MATNR TO IT_ERROR-MATNR.

CONCATENATE TEXT-T02 IT_UPLOAD-MATNR TEXT-T03

INTO IT_ERROR-ERMSG SEPARATED BY SPACE.

APPEND IT_ERROR.

ENDIF.

ENDFORM. " check_mara