Skip to Content
author's profile photo Former Member
Former Member

Re:BDC,ALV,SCRIPTS and SMARTFORMS

Hi,

i need a complete BDC programming example codes with different methods, suppose if it is a material master mm01, i need the screen shots, what to fill in that transaction , the flat file data snapshot and program, so that i will do that example, otherwise iam so much confused

I also need ALV ,SAPSCRIPTS and smartforms realtime sample codes with screenshots so tht i will try directly .

Iam very thankful to all of them who helps me

Thanks & Regards,

Sravanthigopal

sravanthigopal@gmail.com

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • Posted on Nov 30, 2007 at 03:46 AM

    Hi,

    Following these are the links belongs to total ABAP.

    go through the links

    Start with this.Refer this

    http://www.sapbrain.com/FAQs/TECHNICAL/SAP_ABAP_DATADICTIONARY_FAQ.html

    http://www.saptechnical.com/InterviewQ/interviewQ.htm

    http://help.sap.com/saphelp_46c/helpdata/en/35/2cd77bd7705394e10000009b387c12/frameset.htm

    Reports

    http://www.sapgenie.com/abap/reports.htm

    http://www.allsaplinks.com/material.html

    http://www.sapdevelopment.co.uk/reporting/reportinghome.htm

    http://www.sapfans.com/forums/viewtopic.php?t=58286

    http://www.sapfans.com/forums/viewtopic.php?t=76490

    http://www.sapfans.com/forums/viewtopic.php?t=20591

    http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

    ALE/ IDOC

    http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

    http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

    http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

    http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

    http://www.sapgenie.com/sapedi/index.htm

    http://www.sappoint.com/abap/ale.pdf

    http://www.sappoint.com/abap/ale2.pdf

    http://www.sapgenie.com/sapedi/idoc_abap.htm

    http://help.sap.com/saphelp_erp2005/helpdata/en/0b/2a60bb507d11d18ee90000e8366fc2/frameset.htm

    http://help.sap.com/saphelp_erp2005/helpdata/en/78/217da751ce11d189570000e829fbbd/frameset.htm

    http://www.allsaplinks.com/idoc_sample.html

    http://www.sappoint.com/abap.html

    http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

    http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

    http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

    http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

    http://www.sapgenie.com/sapedi/index.htm

    http://www.allsaplinks.com/idoc_sample.html

    Check these step-by-step links

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/ccab6730-0501-0010-ee84-de050a6cc287

    https://sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/8fd773b3-0301-0010-eabe-82149bcc292e

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/3c5d9ae3-0501-0010-0090-bdfb2d458985

    for Smartforms material

    http://www.sap-basis-abap.com/sapsf001.htm

    http://www.sap-press.com/downloads/h955_preview.pdf

    http://www.ossincorp.com/Black_Box/Black_Box_2.htm

    http://www.sap-img.com/smartforms/sap-smart-forms.htm

    http://www.sap-img.com/smartforms/smartform-tutorial.htm

    http://www.sapgenie.com/abap/smartforms.htm

    How to trace smartform

    http://help.sap.com/saphelp_47x200/helpdata/en/49/c3d8a4a05b11d5b6ef006094192fe3/frameset.htm

    http://www.help.sap.com/bp_presmartformsv1500/DOCU/OVIEW_EN.PDF

    http://www.sap-img.com/smartforms/smart-006.htm

    http://www.sap-img.com/smartforms/smartforms-faq-part-two.htm

    need-faq's

    check most imp link

    http://www.sapbrain.com/ARTICLES/TECHNICAL/SMARTFORMS/smartforms.html

    step by step good ex link is....

    http://smoschid.tripod.com/How_to_do_things_in_SAP/How_To_Build_SMARTFORMS/How_To_Build_SMARTFORMS.html

    SAPScripts

    http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf

    http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf

    http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf

    http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf

    http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf

    http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-subtotals.htm

    SAP SCRIPT FIELDS

    http://help.sap.com/saphelp_erp2005vp/helpdata/en/d1/8033ea454211d189710000e8322d00/content.htm

    scripts easy material

    http://www.allsaplinks.com/sap_script_made_easy.html

    Debugging Document.

    http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc

    http://help.sap.com/saphelp_47x200/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm

    http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc

    http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm

    http://help.sap.com/saphelp_nw04/helpdata/en/84/1f624f4505144199e3d570cf7a9225/frameset.htm

    http://help.sap.com/saphelp_bw30b/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm

    http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm

    BAPI

    http://help.sap.com/saphelp_46c/helpdata/en/9b/417f07ee2211d1ad14080009b0fb56/frameset.htm

    http://searchsap.techtarget.com/originalContent/0,289142,sid21_gci948835,00.html

    Checkout !!

    http://searchsap.techtarget.com/originalContent/0,289142,sid21_gci948835,00.html

    http://techrepublic.com.com/5100-6329-1051160.html#

    http://www.sap-img.com/bapi.htm

    http://www.sap-img.com/abap/bapi-conventions.htm

    http://www.sappoint.com/abap/bapiintro.pdf

    http://www.sapgenie.com/abap/bapi/example.htm

    http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCMIDAPII/CABFAAPIINTRO.pdf

    http://help.sap.com/printdocu/core/Print46c/en/data/pdf/CABFABAPIREF/CABFABAPIPG.pdf

    http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCFESDE8/BCFESDE8.pdf

    List of all BAPIs

    http://www.planetsap.com/LIST_ALL_BAPIs.htm

    http://www.sappoint.com/abap/bapiintro.pdf

    http://www.sappoint.com/abap/bapiprg.pdf

    http://www.sappoint.com/abap/bapiactx.pdf

    http://www.sappoint.com/abap/bapilst.pdf

    http://www.sappoint.com/abap/bapiexer.pdf

    http://service.sap.com/ale

    http://service.sap.com/bapi

    http://www.geocities.com/mpioud/Abap_programs.html

    http://www.sapdevelopment.co.uk/reporting/reportinghome.htm

    Simple ALV report

    http://www.sapgenie.com/abap/controls/alvgrid.htm

    http://wiki.ittoolbox.com/index.php/Code:Ultimate_ALV_table_toolbox

    ALV

    1. Please give me general info on ALV.

    http://www.sapfans.com/forums/viewtopic.php?t=58286

    http://www.sapfans.com/forums/viewtopic.php?t=76490

    http://www.sapfans.com/forums/viewtopic.php?t=20591

    http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

    2. How do I program double click in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=11601

    http://www.sapfans.com/forums/viewtopic.php?t=23010

    3. How do I add subtotals (I have problem to add them)...

    http://www.sapfans.com/forums/viewtopic.php?t=20386

    http://www.sapfans.com/forums/viewtopic.php?t=85191

    http://www.sapfans.com/forums/viewtopic.php?t=88401

    http://www.sapfans.com/forums/viewtopic.php?t=17335

    4. How to add list heading like top-of-page in ABAP lists?

    http://www.sapfans.com/forums/viewtopic.php?t=58775

    http://www.sapfans.com/forums/viewtopic.php?t=60550

    http://www.sapfans.com/forums/viewtopic.php?t=16629

    5. How to print page number / total number of pages X/XX in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)

    6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.

    http://www.sapfans.com/forums/viewtopic.php?t=64320

    http://www.sapfans.com/forums/viewtopic.php?t=44477

    7. How can I set the cell color in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=52107

    8. How do I print a logo/graphics in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=81149

    http://www.sapfans.com/forums/viewtopic.php?t=35498

    http://www.sapfans.com/forums/viewtopic.php?t=5013

    9. How do I create and use input-enabled fields in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=84933

    http://www.sapfans.com/forums/viewtopic.php?t=69878

    10. How can I use ALV for reports that are going to be run in background?

    http://www.sapfans.com/forums/viewtopic.php?t=83243

    http://www.sapfans.com/forums/viewtopic.php?t=19224

    11. How can I display an icon in ALV? (Common requirement is traffic light icon).

    http://www.sapfans.com/forums/viewtopic.php?t=79424

    http://www.sapfans.com/forums/viewtopic.php?t=24512

    12. How can I display a checkbox in ALV?

    http://www.sapfans.com/forums/viewtopic.php?t=88376

    http://www.sapfans.com/forums/viewtopic.php?t=40968

    http://www.sapfans.com/forums/viewtopic.php?t=6919

    Go thru these programs they may help u to try on some hands on

    ALV Demo program

    BCALV_DEMO_HTML

    BCALV_FULLSCREEN_DEMO ALV Demo: Fullscreen Mode

    BCALV_FULLSCREEN_DEMO_CLASSIC ALV demo: Fullscreen mode

    BCALV_GRID_DEMO Simple ALV Control Call Demo Program

    BCALV_TREE_DEMO Demo for ALV tree control

    BCALV_TREE_SIMPLE_DEMO

    BC_ALV_DEMO_HTML_D0100

    Remote Function Call:

    RFC is an SAP interface protocol. Based on CPI-C, it considerably simplifies the programming of communication processes between systems.

    RFCs enable you to call and execute predefined functions in a remote system - or even in the same system.

    RFCs manage the communication process, parameter transfer and error handling.

    http://help.sap.com/saphelp_47x200/helpdata/en/22/042860488911d189490000e829fbbd/frameset.htm.

    ALE/ IDOC

    http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

    http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

    http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

    http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

    http://www.sapgenie.com/sapedi/index.htm

    http://www.sappoint.com/abap/ale.pdf

    http://www.sappoint.com/abap/ale2.pdf

    http://www.sapgenie.com/sapedi/idoc_abap.htm

    http://help.sap.com/saphelp_erp2005/helpdata/en/0b/2a60bb507d11d18ee90000e8366fc2/frameset.htm

    http://help.sap.com/saphelp_erp2005/helpdata/en/78/217da751ce11d189570000e829fbbd/frameset.htm

    http://www.allsaplinks.com/idoc_sample.html

    http://www.sappoint.com/abap.html

    http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

    http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

    http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

    http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

    http://www.sapgenie.com/sapedi/index.htm

    http://www.allsaplinks.com/idoc_sample.html

    Refer this

    http://www.sapbrain.com/FAQs/TECHNICAL/SAP_ABAP_DATADICTIONARY_FAQ.html

    http://www.saptechnical.com/InterviewQ/interviewQ.htm

    http://help.sap.com/saphelp_46c/helpdata/en/35/2cd77bd7705394e10000009b387c12/frameset.htm

    http://www.techinterviews.com/?p=198

    http://www.techinterviews.com/?p=326

    http://www.sap-img.com/abap/answers-to-some-abap-interview-questions.htm

    http://www.sap-img.com/abap/more-than-100-abap-interview-faqs.htm

    http://www.geekinterview.com/Interview-Questions/SAP-R-3/ABAP

    http://sap.ittoolbox.com/documents/popular-q-and-a/abap-sample-interview-questions-3240

    http://www.sap-img.com/abap/abap-interview-question.htm

    http://www.allinterview.com/Interview-Questions/ABAP.html

    Thanks,

    Sankar M

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Nov 30, 2007 at 03:47 AM

    ***********************************************************************

    ** Program ID : ZMAT_CREATE

    ** Program Desc : Material Master Creation

    ** Process Overview

    ** Created Date : 22/08/2006

    ** Company Name :

    ************************************************************************

    REPORT ZMAT_CREATE

    NO STANDARD PAGE HEADING LINE-SIZE 132 MESSAGE-ID ZBDCMSG.

    ----


    • Internal table definition *

    ----


    DATA: BEGIN OF ITAB OCCURS 0,

    MATNR LIKE RMMG1-MATNR, " Material Number

    MBRSH LIKE RMMG1-MBRSH, " Industry Sector

    MTART LIKE RMMG1-MTART, " Material Type

    WERKS LIKE RMMG1-WERKS, " Plant

    LGORT LIKE RMMG1-LGORT, " Storage Location

    VKORG LIKE RMMG1-VKORG, " Sales Organization

    VTWEG LIKE RMMG1-VTWEG, " Distribution Channel

    LGNUM LIKE RMMG1-LGNUM, " Warehouse Number

    LGTYP LIKE RMMG1-LGTYP, " Storage Type

    MAKTX LIKE MAKT-MAKTX, " Material Description

    MEINS LIKE MARA-MEINS, " Base Unit of Measure

    • MATKL LIKE MARA-MATKL, " Material Group

    SPART LIKE MARA-SPART, " Division

    MTPOS_MARA LIKE MARA-MTPOS_MARA, "General item category group

    GEWEI LIKE MARA-GEWEI, " Weight Unit

    TAXKM1 LIKE MG03STEUER-TAXKM, " Tax classification material

    TAXKM2 LIKE MG03STEUER-TAXKM, " Tax classification material

    KONDM LIKE MVKE-KONDM, " Material Pricing Group

    MTPOS LIKE MVKE-MTPOS , "ItemCategoryGroupFromMaterialMaster

    MTVFP LIKE MARC-MTVFP, " Checking Group for AvailabilityCheck

    TRAGR LIKE MARA-TRAGR, " Transportation group

    LADGR LIKE MARC-LADGR, " Loading group

    TDLINE LIKE RSTXT-TXLINE, " Text editor text line

    EKGRP LIKE MARC-EKGRP, " Purchasing Group

    DISMM LIKE MARC-DISMM, " MRP Type

    BESKZ LIKE MARC-BESKZ, " Procurement Type

    SOBSL LIKE MARC-SOBSL, " Special procurement type

    PERKZ LIKE MARC-PERKZ, " Period indicator

    PRMOD LIKE MPOP-PRMOD, " Forecast model

    KZINI LIKE MPOP-KZINI, " Initialization indicator

    AUTRU LIKE MARC-AUTRU, " Reset Forecast Model Automatically

    MODAV LIKE MPOP-MODAV, " Model selection procedure

    IPRKZ LIKE MARA-IPRKZ, " Period indicator for shelf life expiration date

    BWTTY LIKE MBEW-BWTTY, " Valuation Category

    BKLAS LIKE MBEW-BKLAS, " Valuation Class

    EKLAS LIKE MBEW-EKLAS, " Valuation Class for Sales OrderStock

    VPRSV LIKE MBEW-VPRSV, " Price Control Indicator

    EKALR LIKE MBEW-EKALR, "MaterialIsCostedWithQuantityStructure

    END OF ITAB,

    *// TEXT HEADER

    GT_HEAD LIKE THEAD,

    *// Text lines

    GT_TEXT LIKE STANDARD TABLE OF TLINE,

    GW_TEXT LIKE TLINE,

    ----


    • Data definition *

    ----


    WS_REP_CNT(6) TYPE C,

    SESSION(12) TYPE C.

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

    PARAMETERS:

    PA_GROUP LIKE APQI-GROUPID OBLIGATORY DEFAULT 'MMupload',

    PA_FNAME LIKE IBIPPARMS-PATH OBLIGATORY.

    SELECTION-SCREEN END OF BLOCK B1.

    ----


    • Include statements *

    ----


    INCLUDE ZBDCREX.

    ----


    • At Selection Screen definition *

    ----


    AT SELECTION-SCREEN ON VALUE-REQUEST FOR PA_FNAME.

    *//GETTING FLAT FILE PATH

    PERFORM FILE_PATH USING PA_FNAME.

    ----


    • Start of Selection definition *

    ----


    START-OF-SELECTION.

    *//UPLOADING THE FLAT FILE

    PERFORM DATA_UPLOAD TABLES ITAB USING PA_FNAME.

    *// BDC OPEN GROUP

    PERFORM OPEN_GROUP USING PA_GROUP.

    SKIP 3.

    FORMAT COLOR COL_HEADING INVERSE ON.

    WRITE 40 TEXT-001.

    FORMAT COLOR COL_HEADING INVERSE OFF.

    SKIP 1.

    FORMAT COLOR COL_NEGATIVE INVERSE ON.

    WRITE :/3 TEXT-002, 13 SY-MANDT, 104 TEXT-003, 113 SY-UNAME,

    /3 TEXT-004, 13 SY-DATUM, 104 TEXT-005, 113 SY-UZEIT.

    FORMAT COLOR COL_NEGATIVE INVERSE OFF.

    LOOP AT ITAB.

    WS_REP_CNT = WS_REP_CNT + 1. "To Count no. of Records Processed

    PERFORM MM_UPLOAD.

    ENDLOOP.

    *//STATUS INDICATION

    IF SY-SUBRC = 0.

    SESSION = PA_GROUP.

    SKIP 1.

    FORMAT COLOR COL_TOTAL INVERSE ON.

    WRITE: /38 TEXT-006 , WS_REP_CNT.

    FORMAT COLOR COL_TOTAL INVERSE OFF.

    MESSAGE S000 WITH SESSION.

    ENDIF.

    *// BDC CLOSE GROUP

    PERFORM CLOSE_GROUP.

    SET PF-STATUS 'ZMM01PF'.

    AT USER-COMMAND.

    CASE SY-UCOMM.

    WHEN 'SESSION'.

    CALL TRANSACTION 'SM35'.

    WHEN 'EXIT'.

    LEAVE PROGRAM.

    WHEN 'CANCEL'.

    LEAVE SCREEN.

    ENDCASE .

    • ---------------------------------------------------------------------*

    • FORM MM_UPLOAD *

    • ---------------------------------------------------------------------*

    FORM MM_UPLOAD.

    REFRESH BDCDATA.

    *// Create Material: Initial Screen

    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.

    *// Selection Views

    perform bdc_dynpro using 'SAPLMGMM' '0070'.

    perform bdc_field using 'BDC_CURSOR'

    'MSICHTAUSW-DYTXT(01)'.

    perform bdc_field using 'BDC_OKCODE'

    'SELA'.

    perform bdc_dynpro using 'SAPLMGMM' '0070'.

    perform bdc_field using 'BDC_CURSOR'

    'MSICHTAUSW-DYTXT(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    *// Organization Levels

    perform bdc_dynpro using 'SAPLMGMM' '0080'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    perform bdc_field using 'RMMG1-WERKS'

    ITAB-WERKS.

    perform bdc_field using 'RMMG1-LGORT'

    ITAB-LGORT.

    perform bdc_field using 'RMMG1-VKORG'

    ITAB-VKORG.

    perform bdc_field using 'RMMG1-VTWEG'

    ITAB-VTWEG.

    perform bdc_field using 'RMMG1-LGNUM'

    ITAB-LGNUM.

    perform bdc_field using 'RMMG1-LGTYP'

    ITAB-LGTYP.

    *// Basic Data 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4004'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP04'.

    perform bdc_field using 'MAKT-MAKTX'

    ITAB-MAKTX.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MARA-SPART'

    ITAB-SPART.

    perform bdc_field using 'MARA-MTPOS_MARA'

    ITAB-MTPOS_MARA.

    perform bdc_field using 'BDC_CURSOR'

    'MARA-GEWEI'.

    perform bdc_field using 'MARA-BRGEW'

    '9000'.

    perform bdc_field using 'MARA-GEWEI'

    ITAB-GEWEI.

    perform bdc_field using 'MARA-NTGEW'

    '8000'.

    *// Sales: Sales Organization 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP05'.

    perform bdc_field using 'MG03STEUER-TAXKM(01)'

    ITAB-TAXKM1.

    perform bdc_field using 'MG03STEUER-TAXKM(02)'

    ITAB-TAXKM2.

    perform bdc_dynpro using 'SAPLMGMM' '4200'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP05'.

    *// Sales: Sales Organization 2: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP06'.

    perform bdc_field using 'BDC_CURSOR'

    'MVKE-KONDM'.

    perform bdc_field using 'MVKE-KONDM'

    ITAB-KONDM.

    perform bdc_field using 'MARA-MTPOS_MARA'

    ITAB-MTPOS_MARA.

    perform bdc_field using 'MVKE-MTPOS'

    ITAB-MTPOS.

    *// Sales: General / Plant Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP12'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MARA-BRGEW'

    '9000'.

    perform bdc_field using 'MARA-GEWEI'

    ITAB-GEWEI.

    perform bdc_field using 'MARA-XCHPF'

    ''.

    perform bdc_field using 'MARA-NTGEW'

    '8000'.

    perform bdc_field using 'MARC-MTVFP'

    ITAB-MTVFP.

    perform bdc_field using 'BDC_CURSOR'

    'MARC-LADGR'.

    perform bdc_field using 'MARA-TRAGR'

    ITAB-TRAGR.

    perform bdc_field using 'MARC-LADGR'

    ITAB-LADGR.

    *// MRP 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP13'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MARC-EKGRP'

    ITAB-EKGRP.

    perform bdc_field using 'BDC_CURSOR'

    'MARC-DISMM'.

    perform bdc_field using 'MARC-DISMM'

    ITAB-DISMM.

    *// MRP 2: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP14'.

    perform bdc_field using 'BDC_CURSOR'

    'RMMG1_BEZ-WERKS_BEZ'.

    perform bdc_field using 'MARC-BESKZ'

    ITAB-BESKZ.

    perform bdc_field using 'MARC-SOBSL'

    ITAB-SOBSL .

    *// MRP 3: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP16'.

    perform bdc_field using 'BDC_CURSOR'

    'MARC-PERKZ'.

    perform bdc_field using 'MARC-PERKZ'

    ITAB-PERKZ.

    perform bdc_field using 'MARC-MTVFP'

    ITAB-MTVFP.

    *// Forecasting Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP17'.

    perform bdc_field using 'BDC_CURSOR'

    'MPOP-PRMOD'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MPOP-PRMOD'

    ITAB-PRMOD.

    perform bdc_field using 'MARC-PERKZ'

    ITAB-PERKZ.

    perform bdc_field using 'MPOP-PERAN'

    '60'.

    perform bdc_field using 'MPOP-ANZPR'

    '12'.

    perform bdc_field using 'MPOP-KZINI'

    ITAB-KZINI.

    perform bdc_field using 'MPOP-SIGGR'

    '4.000'.

    perform bdc_field using 'MARC-AUTRU'

    ITAB-AUTRU.

    perform bdc_field using 'MPOP-MODAV'

    ITAB-MODAV.

    *// Work Scheduling Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP19'.

    perform bdc_field using 'BDC_CURSOR'

    'MARC-FRTME'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    *// Plant data / Stor. 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP20'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MARA-IPRKZ'

    ITAB-IPRKZ.

    *// Plant data / Stor. 2: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP21'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MARA-BRGEW'

    '9000'.

    perform bdc_field using 'MARA-GEWEI'

    ITAB-GEWEI.

    perform bdc_field using 'MARA-NTGEW'

    '8000'.

    *// Warehouse Management 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP23'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MARA-BRGEW'

    '9000'.

    perform bdc_field using 'MARA-GEWEI'

    ITAB-GEWEI.

    *// Quality Management Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP24'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    *// Accounting 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP26'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MBEW-BWTTY'

    ITAB-BWTTY.

    perform bdc_field using 'MARA-SPART'

    ITAB-SPART.

    perform bdc_field using 'BDC_CURSOR'

    'MBEW-STPRS'.

    perform bdc_field using 'MBEW-BKLAS'

    ITAB-BKLAS.

    perform bdc_field using 'MBEW-EKLAS'

    ITAB-EKLAS.

    perform bdc_field using 'MBEW-VPRSV'

    ITAB-VPRSV.

    perform bdc_field using 'MBEW-PEINH'

    '1'.

    perform bdc_field using 'MBEW-VERPR'

    '800'.

    perform bdc_field using 'MBEW-STPRS'

    '800'.

    *// Costing 1: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=SP27'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MARA-MEINS'

    ITAB-MEINS.

    perform bdc_field using 'MBEW-EKALR'

    ITAB-EKALR.

    perform bdc_field using 'MARC-LOSGR'

    '1'.

    *// Costing 2: Screen

    perform bdc_dynpro using 'SAPLMGMM' '4000'.

    perform bdc_field using 'BDC_OKCODE'

    '=BABA'.

    perform bdc_field using 'BDC_CURSOR'

    'MAKT-MAKTX'.

    perform bdc_field using 'MBEW-BKLAS'

    ITAB-BKLAS.

    perform bdc_field using 'MBEW-BWTTY'

    ITAB-BWTTY.

    perform bdc_field using 'MBEW-EKLAS'

    ITAB-EKLAS.

    perform bdc_field using 'MBEW-VPRSV'

    ITAB-VPRSV.

    perform bdc_field using 'MBEW-PEINH'

    '1'.

    perform bdc_field using 'MBEW-VERPR'

    '800.00'.

    perform bdc_field using 'MBEW-STPRS'

    '800.00'.

    perform bdc_dynpro using 'SAPLSPO1' '0300'.

    perform bdc_field using 'BDC_OKCODE'

    '=YES'.

    *//BDC INSERT

    PERFORM BDC_TRANSACTION TABLES BDCDATA

    USING 'MM01'. " MESSAGES INTO GT_MSG.

    *// Text Header Data

    CONCATENATE ITAB-MATNR ' 000101'

    INTO GT_HEAD-TDNAME .

    GT_HEAD-TDOBJECT = 'MVKE' .

    GT_HEAD-TDID = '0001' .

    GT_HEAD-TDSPRAS = SY-LANGU.

    *// Sales Text

    GW_TEXT-TDFORMAT = '00'.

    GW_TEXT-TDLINE = ITAB-TDLINE .

    APPEND GW_TEXT TO GT_TEXT.

    CALL FUNCTION 'SAVE_TEXT'

    EXPORTING

    CLIENT = SY-MANDT

    HEADER = GT_HEAD

    INSERT = 'X'

    SAVEMODE_DIRECT = 'X'

    OWNER_SPECIFIED = ' '

    TABLES

    LINES = GT_TEXT

    EXCEPTIONS

    ID = 1

    LANGUAGE = 2

    NAME = 3

    OBJECT = 4

    OTHERS = 5.

    IF SY-SUBRC <> 0.

    SKIP 2.

    FORMAT COLOR COL_NEGATIVE INVERSE ON.

    WRITE: / 'Unable to Insert Salestext for Material : ', ITAB-MATNR .

    FORMAT COLOR COL_NEGATIVE INVERSE OFF.

    ENDIF.

    CLEAR: GT_HEAD, GT_TEXT, GW_TEXT.

    ENDFORM. "MM_UPLOAD

    ***********************************************************************

    **&#12288;Program ID &#65306; ZMAT_CREATE

    **&#12288;Program Desc &#65306; Material Master Creation Using BAPI

    **&#12288;Process Overview &#65306;

    **&#12288;Created By &#65306; P.KARTHIKEYAN

    **&#12288;Created Date &#65306; 17/08/2006

    **&#12288;Company Name &#65306; Infoview Technologies Limited

    ************************************************************************

    REPORT ZBAPI_MATERIAL_SAVETEXT LINE-SIZE 132 MESSAGE-ID ZMMBAPI.

    *<<<DATA DECLEA FOR HEADER>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    ****<<<<<Header segment with control information>>>>>>

    DATA: HEADER LIKE BAPIMATHEAD.

    *<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    *<<<<<<<<Client-specific material data>>>>>>>>>>>>>>>>

    DATA: GT_CLIENTDATA LIKE BAPI_MARA.

    **<<<<<<<<CLIENT DATA INITIAL>>>>>>>>>>>>>

    **<<<<<<<<Information on update for CLIENTDATA>>>>>>>>

    DATA: GT_CLIENTDATAX LIKE BAPI_MARAX.

    ***<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    **<<<<<<<Plant-specific material data>>>>>>>>>>>>>>>>>

    DATA: GT_PLANTDATA LIKE BAPI_MARC.

    **<<<<<<<<PLANT DATA INITIAL>>>>>>>>>>>>>>>

    **<<<<<<<<Information on update for PLANTDATA>>>>>>>>

    DATA:GT_PLANTDATAX LIKE BAPI_MARCX.

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>>>>>>>>>>

    DATA: GT_FORECASTPARAMETERS LIKE BAPI_MPOP.

    *<<<<<<<<<<<<<Information on update for FORECASTDATA>

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>

    DATA:GT_FORECASTPARAMETERSX LIKE BAPI_MPOPX.

    *<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>>>>>>>>>>>>>

    *<<<<<<<<<<<Information on update for PLANNINGDATA>>>

    DATA:GT_PLANNINGDATA LIKE BAPI_MPGD.

    *<<<<<<<<<<<<<<<PLANNING INITIAL >>>>>>>>>>>>>>>>>>>

    DATA:GT_PLANNINGDATAX LIKE BAPI_MPGDX.

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>

    *<<<<<<<<<<<<Storage-location-specific material data>>

    DATA: GT_STORAGELOCATIONDATA LIKE BAPI_MARD.

    *<<<<<<Information on update for STORAGELOCATIONDATA>>

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>>

    DATA:GT_STORAGELOCATIONDATAX LIKE BAPI_MARDX.

    *<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>>>>>>>>>>>>

    DATA: GT_SALESDATA LIKE BAPI_MVKE.

    *<<<<<<<<<<<<<<<Information on update for SALESDATA>>>

    *<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>>>>>

    DATA: GT_SALESDATAX LIKE BAPI_MVKEX.

    ****<<<<<<<<<<<<Units of measure>>>>>>>>>>>>>>>>>>>>>>>

    *****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>

    DATA: GT_UNITSOFMEASURE LIKE BAPI_MARM OCCURS 0 WITH HEADER LINE.

    *****<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>

    DATA: GT_UNITSOFMEASUREX LIKE BAPI_MARMX OCCURS 0 WITH HEADER LINE.

    *****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

    DATA: GT_MATERIALLONGTEXT LIKE BAPI_MLTX OCCURS 0 WITH HEADER LINE.

    *****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

    DATA: MATERIAL_DESC LIKE BAPI_MAKT OCCURS 0 WITH HEADER LINE.

    *******<<<<<<<RETURN PARAMETERS>>>>>>>>

    DATA: ITAB_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE. "#EC NEEDED

    ******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>>>>>>>

    DATA: GT_WAREHOUSENUMBERDATA LIKE BAPI_MLGN.

    ******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>>>>>>>

    DATA: GT_WAREHOUSENUMBERDATX LIKE BAPI_MLGNX.

    ******<<<<<<<STORAGETYPEDATA>>>>>>>>>>>>>>>>>>

    DATA: GT_STORAGETYPEDATA LIKE BAPI_MLGT.

    ******<<<<<<<STORAGETYPEDATAX>>>>>>>>

    DATA: GT_STORAGETYPEDATAX LIKE BAPI_MLGTX.

    ***<<<BAPI_TRANSCATION COMMIT>>>>>>>>>>>>>>>>>

    DATA: GT_RETURN TYPE BAPIRET2. "#EC NEEDED

    ***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

    DATA: GT_VALUATIONDATA like BAPI_MBEW. "Valuation data

    ***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

    DATA: GT_VALUATIONDATAX like BAPI_MBEWX. "Valuation data

    data: gt_PRTDATA like BAPI_MFHM OCCURS 0 WITH HEADER LINE.

    data: gt_PRTDATAX like BAPI_MFHM OCCURS 0 WITH HEADER LINE.

    **<<<<International Article Numbers (EANs)>>>>

    DATA: GT_INTERNATIONALARTNOS LIKE BAPI_MEAN OCCURS 0 WITH HEADER LINE,

    **<<<<Tax classifications>>>>>>>>>>>>>>>>>>>>>>

    GT_TAXCLASSIFICATIONS LIKE BAPI_MLAN OCCURS 0 WITH HEADER LINE,

    GT_RETURNMESSAGES LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.

    **<<<<<<<<<<<<<<FLAT FILE INTERNAL TABLE USED FOR DOWNLOAD EXCEL FILE>>>>>>

    DATA: BEGIN OF GT_FT_ITAB OCCURS 0,

    MATERIAL TYPE BAPIMATHEAD-MATERIAL , "Material Number

    IND_SECTOR TYPE BAPIMATHEAD-IND_SECTOR, "Industry Sector

    MATL_TYPE TYPE BAPIMATHEAD-MATL_TYPE , "Material Type

    BASIC_VIEW TYPE BAPIMATHEAD-BASIC_VIEW, "Basic Data View

    SALES_VIEW TYPE BAPIMATHEAD-SALES_VIEW , "Sales View

    PURCHASE_VIEW TYPE BAPIMATHEAD-PURCHASE_VIEW, "Purchasing View

    MRP_VIEW TYPE BAPIMATHEAD-MRP_VIEW ,"Material Requirements Planning (MRP) View

    FORECAST_VIEW TYPE BAPIMATHEAD-FORECAST_VIEW , "Forecasting View

    WORK_SCHED_VIEW TYPE BAPIMATHEAD-WORK_SCHED_VIEW ,"Work Scheduling View

    PRT_VIEW TYPE BAPIMATHEAD-PRT_VIEW , "Production Resources/Tools (PRT) View

    STORAGE_VIEW TYPE BAPIMATHEAD-STORAGE_VIEW , "Storage View

    WAREHOUSE_VIEW TYPE BAPIMATHEAD-WAREHOUSE_VIEW , "Warehouse Management View

    QUALITY_VIEW TYPE BAPIMATHEAD-QUALITY_VIEW, "Quality Management View

    ACCOUNT_VIEW TYPE BAPIMATHEAD-ACCOUNT_VIEW , "Accounting View

    COST_VIEW TYPE BAPIMATHEAD-COST_VIEW , "Costing View

    *****<<<<<<<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>

    MATL_GROUP TYPE BAPI_MARA-MATL_GROUP, "Materialgroup

    OLD_MAT_NO TYPE BAPI_MARA-OLD_MAT_NO, "Old material number

    BASE_UOM TYPE BAPI_MARA-BASE_UOM, "Base Unit of Measure

    BASE_UOM_ISO TYPE BAPI_MARA-BASE_UOM_ISO ,"Base unit of measure in ISO code

    DOCUMENT TYPE BAPI_MARA-DOCUMENT, "Document number

    DOC_TYPE TYPE BAPI_MARA-DOC_TYPE, "Document type

    DOC_VERS TYPE BAPI_MARA-DOC_VERS, "Document version

    DOC_FORMAT TYPE BAPI_MARA-DOC_FORMAT,"Page format of document

    DOC_CHG_NO TYPE BAPI_MARA-DOC_CHG_NO, "Document change number

    PAGE_NO TYPE BAPI_MARA-PAGE_NO, "Page number of document

    PROD_MEMO TYPE BAPI_MARA-PROD_MEMO , "Production/Inspection Memo

    PAGEFORMAT TYPE BAPI_MARA-PAGEFORMAT, "Page Format of Production Memo

    SIZE_DIM TYPE BAPI_MARA-SIZE_DIM, "Size/dimensions

    BASIC_MATL TYPE BAPI_MARA-BASIC_MATL, "Basic Material

    STD_DESCR TYPE BAPI_MARA-STD_DESCR, "Industry Standard Description

    DSN_OFFICE TYPE BAPI_MARA-DSN_OFFICE, "Laboratory/design office

    NET_WEIGHT TYPE BAPI_MARA-NET_WEIGHT, " "Net weight

    UNIT_OF_WT TYPE BAPI_MARA-UNIT_OF_WT, "Weight Unit

    DIVISION TYPE BAPI_MARA-DIVISION, "Division

    CAD_ID TYPE BAPI_MARA-CAD_ID, "Competitor

    PROD_ALLOC TYPE BAPI_MARA-PROD_ALLOC, "Procurement rule

    HAZMATPROF TYPE BAPI_MARA-HAZMATPROF, "Source of Supply

    HIGH_VISC TYPE BAPI_MARA-HIGH_VISC, "Allowed packaging weight

    LOOSEORLIQ TYPE BAPI_MARA-LOOSEORLIQ, "Long material number

    PERIOD_IND_EXPIRATION_DATE TYPE BAPI_MARA-PERIOD_IND_EXPIRATION_DATE,"Expiration Dat

    ITEM_CAT TYPE BAPI_MARA-ITEM_CAT, "General item category group

    EXTMATLGRP TYPE BAPI_MARA-EXTMATLGRP, "External Material Group

    *****CLIENT DATA INITIAL>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    MATL_GROUPX TYPE BAPI_MARAX-MATL_GROUP, "Materialgroup

    OLD_MAT_NOX TYPE BAPI_MARAX-OLD_MAT_NO, "Old material number

    BASE_UOMX TYPE BAPI_MARAX-BASE_UOM, "Base Unit of Measure

    BASE_UOM_ISOX TYPE BAPI_MARAX-BASE_UOM_ISO, "Base unit of measure in ISO code

    DOCUMENTX TYPE BAPI_MARAX-DOCUMENT, "Document number

    DOC_TYPEX TYPE BAPI_MARAX-DOC_TYPE, "Document type

    DOC_VERSX TYPE BAPI_MARAX-DOC_VERS, "Document version

    DOC_FORMATX TYPE BAPI_MARAX-DOC_FORMAT,"Page format of document

    DOC_CHG_NOX TYPE BAPI_MARAX-DOC_CHG_NO, "Document change number

    PAGE_NOX TYPE BAPI_MARAX-PAGE_NO, "Production/Inspection Memo

    PROD_MEMOX TYPE BAPI_MARAX-PROD_MEMO, "Page Format of Production Memo

    SIZE_DIMX TYPE BAPI_MARAX-SIZE_DIM, "Size/dimensions

    BASIC_MATLX TYPE BAPI_MARAX-BASIC_MATL, "Basic Material

    STD_DESCRX TYPE BAPI_MARAX-STD_DESCR, "Industry Standard Description

    DSN_OFFICEX TYPE BAPI_MARAX-DSN_OFFICE, "Laboratory/design office

    NET_WEIGHTX TYPE BAPI_MARAX-NET_WEIGHT, " "Net weight

    UNIT_OF_WTX TYPE BAPI_MARAX-UNIT_OF_WT, "Weight Unit

    DIVISIONX TYPE BAPI_MARAX-DIVISION, "Division

    PROD_HIERX TYPE BAPI_MARA, "Competitor

    CAD_IDX TYPE BAPI_MARAX-PROD_HIER, "Procurement rule

    ALLWD_VOLX TYPE BAPI_MARAX-ALLWD_VOL, "Allowed packaging

    PVALIDFROMX TYPE BAPI_MARAX-PVALIDFROM, "Date from which the cross-plant material status

    SVALIDFROMX TYPE BAPI_MARAX-SVALIDFROM, "Date from which the X-distr.-chain material stat

    PROD_ALLOCX TYPE BAPI_MARAX-PROD_ALLOC,

    HIGH_VISCX TYPE BAPI_MARAX-HIGH_VISC,"Indicator: Highly Viscous

    LOOSEORLIQX TYPE BAPI_MARAX-LOOSEORLIQ, "Indicator: In Bulk/Liquid

    INV_MAT_NO_EXTERNALX TYPE BAPI_MARAX-INV_MAT_NO_EXTERNAL,

    EXTMATLGRPX TYPE BAPI_MARAX-EXTMATLGRP, " External Material Group

    ****<<<<<<<<<<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    PLANT TYPE BAPI_MARC-PLANT, " Plant

    MRP_TYPE TYPE BAPI_MARC-MRP_TYPE, "MRP Type

    REORDER_PT TYPE BAPI_MARC-REORDER_PT, "Reorder Point

    SAFETY_STK TYPE BAPI_MARC-SAFETY_STK, "Safety stock

    MINLOTSIZE TYPE BAPI_MARC-MINLOTSIZE, "Minimum lot size

    ****<<<<<<<<<<<<<<PLANTDATA INITIAL>>>>>>>>>>>>>>>>>>>>>>

    PLANTX TYPE BAPI_MARCX-PLANT, " Plant

    MRP_TYPEX TYPE BAPI_MARCX-MRP_TYPE, "MRP Type

    REORDER_PTX TYPE BAPI_MARCX-REORDER_PT, "Reorder Point

    SAFETY_STKX TYPE BAPI_MARCX-SAFETY_STK, "Safety stock

    MINLOTSIZEX TYPE BAPI_MARCX-MINLOTSIZE, "Minimum lot size

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>

    F_PLANT TYPE BAPI_MPOPX-PLANT, " Plant

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>>>>

    F_PLANTX TYPE BAPI_MPOPX-PLANT, " Plant

    *<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>>>>>>>>>>>>>>>>

    P_PLANT TYPE BAPI_MPGD-PLANT, " Plant

    *<<<<<<<<<<<<<<<PLANNING DATA INITAIAL >>>>>>>>>>>>>>>

    P_PLANTX TYPE BAPI_MPGDX-PLANT, " Plant

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>>>>>>>>>>>

    S_PLANT TYPE BAPI_MARD-PLANT, " Plant

    S_STGE_LOC TYPE BAPI_MARD-STGE_LOC,

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>

    S_PLANTX TYPE BAPI_MARDX-PLANT, " Plant

    S_STGE_LOCX TYPE BAPI_MARDX-STGE_LOC, "Storage Location

    *<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>

    SALES_ORG TYPE BAPI_MVKE-SALES_ORG, "Sales Organization

    DISTR_CHAN TYPE BAPI_MVKE-DISTR_CHAN, "Distribution Channel

    *<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>

    SALES_ORGX TYPE BAPI_MVKEX-SALES_ORG, "Sales Organization

    DISTR_CHANX TYPE BAPI_MVKEX-DISTR_CHAN, "Distribution Channel

    *****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

    LANGU TYPE BAPI_MAKT-LANGU , "Language Key

    LANGU_ISO TYPE BAPI_MAKT-LANGU_ISO , "Language according to ISO 639

    MATL_DESC TYPE BAPI_MAKT-MATL_DESC , "Material Description

    *****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>>>>>>>>>

    ALT_UNIT TYPE BAPI_MARM-ALT_UNIT,

    "Alternative Unit of Measure for Stockkeeping Unit

    ALT_UNIT_ISO TYPE BAPI_MARM-ALT_UNIT,

    "Alternative Unit of Measure for Stockkeeping Unit

    ******<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>>>>>>>>>>

    UNIT TYPE BAPI_MARMX-ALT_UNIT,

    "Alternative Unit of Measure for Stockkeeping Unit

    UNIT_ISO TYPE BAPI_MARMX-ALT_UNIT_ISO,

    "Alternative unit of measure to stockkeeping unit in ISO code

    *****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

    APPLOBJECT TYPE BAPI_MLTX-APPLOBJECT, "Texts: application object

    TEXT_NAME TYPE BAPI_MLTX-TEXT_NAME, "Name

    TEXT_ID TYPE BAPI_MLTX-TEXT_ID, "Text ID

    S_LANGU TYPE BAPI_MLTX-LANGU, "Language key

    TEXT_LINE TYPE BAPI_MLTX-TEXT_LINE, "Text line

    END OF GT_FT_ITAB,

    TEXT(243), " Return Message

    WA_HEAD LIKE THEAD, " SalesText Header Info

    ITAB_TLINE LIKE STANDARD TABLE OF TLINE WITH HEADER LINE, " SalesText

    ERROR_REC TYPE I, " Error Records Counter

    SUCCESS_REC TYPE I, " Successful Records Counter

    TOT_REC TYPE I. " Total Records Counter

    • selection block for EXCEL UPLOAD FILE>>>>>>>>>>>>>>>>>>>>>>>>

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

    PARAMETERS FILE TYPE IBIPPARMS-PATH OBLIGATORY .

    SELECTION-SCREEN END OF BLOCK B1.

    *<<<<AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .>>>>>>>>>>>>

    AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .

    CALL FUNCTION 'F4_FILENAME'

    EXPORTING

    PROGRAM_NAME = SYST-CPROG

    DYNPRO_NUMBER = SYST-DYNNR

    IMPORTING

    FILE_NAME = FILE.

    **<<<<<<<<<<<<<<<<<START-OF-SELECTION.>>>>>>>>>>>>>>>>>>>>>>>>>>>

    START-OF-SELECTION.

    CALL FUNCTION 'WS_UPLOAD' "#EC *

    EXPORTING

    FILENAME = FILE

    FILETYPE = 'DAT'

    TABLES

    DATA_TAB = GT_FT_ITAB

    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

    NO_AUTHORITY = 10

    OTHERS = 11.

    IF SY-SUBRC <> 0 .

    MESSAGE E000.

    ENDIF.

    SKIP 3.

    FORMAT COLOR COL_HEADING INVERSE ON.

    WRITE 40 TEXT-001.

    FORMAT COLOR COL_HEADING INVERSE OFF.

    SKIP 1.

    FORMAT COLOR COL_NEGATIVE INVERSE ON.

    WRITE :/3 TEXT-002, 13 SY-MANDT , 104 TEXT-003, 111 SY-UNAME,

    /3 TEXT-004, 13 SY-DATUM , 104 TEXT-005, 111 SY-UZEIT.

    FORMAT COLOR COL_NEGATIVE INVERSE OFF.

    SKIP 3.

    LOOP AT GT_FT_ITAB.

    HEADER-MATERIAL = GT_FT_ITAB-MATERIAL . " 'M-32'.

    HEADER-IND_SECTOR = GT_FT_ITAB-IND_SECTOR . " 'C'.

    HEADER-MATL_TYPE = GT_FT_ITAB-MATL_TYPE . " 'FERT'.

    HEADER-BASIC_VIEW = GT_FT_ITAB-BASIC_VIEW . " 'X'.

    HEADER-SALES_VIEW = GT_FT_ITAB-SALES_VIEW. " 'X'.

    HEADER-PURCHASE_VIEW = GT_FT_ITAB-PURCHASE_VIEW . " 'X'.

    HEADER-MRP_VIEW = GT_FT_ITAB-MRP_VIEW . " 'X'.

    HEADER-FORECAST_VIEW = GT_FT_ITAB-FORECAST_VIEW . " 'X'.

    HEADER-WORK_SCHED_VIEW = GT_FT_ITAB-WORK_SCHED_VIEW ." 'X'.

    HEADER-PRT_VIEW = GT_FT_ITAB-PRT_VIEW . " 'X'.

    HEADER-STORAGE_VIEW = GT_FT_ITAB-STORAGE_VIEW . " 'X'.

    HEADER-WAREHOUSE_VIEW = GT_FT_ITAB-WAREHOUSE_VIEW . " 'X'.

    HEADER-QUALITY_VIEW = GT_FT_ITAB-QUALITY_VIEW . " 'X'.

    HEADER-ACCOUNT_VIEW = GT_FT_ITAB-ACCOUNT_VIEW . " 'X'.

    HEADER-COST_VIEW = GT_FT_ITAB-COST_VIEW . " 'X'.

    *<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    GT_CLIENTDATA-MATL_GROUP = GT_FT_ITAB-MATL_GROUP . " '01'.

    GT_CLIENTDATA-OLD_MAT_NO = GT_FT_ITAB-OLD_MAT_NO . " '1000'.

    GT_CLIENTDATA-BASE_UOM = GT_FT_ITAB-BASE_UOM . " 'EA'.

    GT_CLIENTDATA-BASE_UOM_ISO = GT_FT_ITAB-BASE_UOM_ISO ." 'EA'.

    GT_CLIENTDATA-DOCUMENT = GT_FT_ITAB-DOCUMENT . "'MATERIAL'.

    GT_CLIENTDATA-DOC_TYPE = GT_FT_ITAB-DOC_TYPE . " 'A'.

    GT_CLIENTDATA-DOC_VERS = GT_FT_ITAB-DOC_VERS . " '5'.

    GT_CLIENTDATA-DOC_FORMAT = GT_FT_ITAB-DOC_FORMAT . " '5'.

    GT_CLIENTDATA-DOC_CHG_NO = GT_FT_ITAB-DOC_CHG_NO . " 'A4'.

    GT_CLIENTDATA-PAGE_NO = GT_FT_ITAB-PAGE_NO . " '1'.

    GT_CLIENTDATA-PROD_MEMO = GT_FT_ITAB-PROD_MEMO . " 'MEMO'.

    GT_CLIENTDATA-PAGEFORMAT = GT_FT_ITAB-PAGEFORMAT . " '1'.

    GT_CLIENTDATA-SIZE_DIM = GT_FT_ITAB-SIZE_DIM . " '50/50'.

    GT_CLIENTDATA-BASIC_MATL = GT_FT_ITAB-BASIC_MATL . " 'BASIS MATERIAL1'.

    GT_CLIENTDATA-STD_DESCR = GT_FT_ITAB-STD_DESCR . " 'MATERIAL DESC'.

    GT_CLIENTDATA-DSN_OFFICE = GT_FT_ITAB-DSN_OFFICE . " '001'.

    GT_CLIENTDATA-NET_WEIGHT = GT_FT_ITAB-NET_WEIGHT . " 1000.

    GT_CLIENTDATA-UNIT_OF_WT = GT_FT_ITAB-UNIT_OF_WT . " 'KG'.

    GT_CLIENTDATA-TRANS_GRP = '0001'.

    GT_CLIENTDATA-DIVISION = GT_FT_ITAB-DIVISION . " '01'.

    GT_CLIENTDATA-QTY_GR_GI = '9000'.

    GT_CLIENTDATA-CAD_ID = GT_FT_ITAB-CAD_ID . " 'X'.

    GT_CLIENTDATA-ALLWD_VOL = '9000'.

    GT_CLIENTDATA-PROD_ALLOC = GT_FT_ITAB-PROD_ALLOC . " 'PA01'.

    GT_CLIENTDATA-HAZMATPROF = GT_FT_ITAB-HAZMATPROF . " '001'.

    GT_CLIENTDATA-HIGH_VISC = GT_FT_ITAB-HIGH_VISC . " 'X'.

    GT_CLIENTDATA-LOOSEORLIQ = GT_FT_ITAB-LOOSEORLIQ . " 'X'.

    GT_CLIENTDATA-PERIOD_IND_EXPIRATION_DATE = GT_FT_ITAB-PERIOD_IND_EXPIRATION_DATE . " 'D'.

    GT_CLIENTDATA-ITEM_CAT = 'NORM' . "GT_FT_ITAB-ITEM_CAT . " 'NORM'.

    GT_CLIENTDATA-EXTMATLGRP = GT_FT_ITAB-EXTMATLGRP . " '01'.

    **<<<<<<<<CLIENT DATA INITIAL>>>>>>>>>>>>>

    GT_CLIENTDATAX-MATL_GROUP = 'X'.

    GT_CLIENTDATAX-OLD_MAT_NO = GT_FT_ITAB-OLD_MAT_NO . " 'X'.

    GT_CLIENTDATAX-BASE_UOM = GT_FT_ITAB-BASE_UOM . " 'X'.

    GT_CLIENTDATAX-BASE_UOM_ISO = GT_FT_ITAB-BASE_UOM_ISO . "'X'.

    GT_CLIENTDATAX-DOCUMENT = GT_FT_ITAB-DOCUMENT . "'X'.

    GT_CLIENTDATAX-DOC_TYPE = GT_FT_ITAB-DOC_TYPE . "'X'.

    GT_CLIENTDATAX-DOC_VERS = GT_FT_ITAB-DOC_VERS . "'X'.

    GT_CLIENTDATAX-DOC_FORMAT = GT_FT_ITAB-DOC_FORMAT . "'X'.

    GT_CLIENTDATAX-DOC_CHG_NO = GT_FT_ITAB-DOC_CHG_NO . "'X'.

    GT_CLIENTDATAX-PAGE_NO = GT_FT_ITAB-PAGE_NO . "'X'.

    GT_CLIENTDATAX-PROD_MEMO = GT_FT_ITAB-PROD_MEMO . "'X'.

    GT_CLIENTDATAX-PAGEFORMAT = 'X'.

    GT_CLIENTDATAX-SIZE_DIM = GT_FT_ITAB-SIZE_DIM . "'X'

    GT_CLIENTDATAX-BASIC_MATL = GT_FT_ITAB-BASIC_MATL. "'X'.

    GT_CLIENTDATAX-STD_DESCR = GT_FT_ITAB-STD_DESCR . "'X'.

    GT_CLIENTDATAX-DSN_OFFICE = GT_FT_ITAB-DSN_OFFICE . "'X'.

    GT_CLIENTDATAX-NET_WEIGHT = GT_FT_ITAB-NET_WEIGHT . "'X'.

    GT_CLIENTDATAX-UNIT_OF_WT = GT_FT_ITAB-UNIT_OF_WT . "'X'.

    GT_CLIENTDATAX-DIVISION = GT_FT_ITAB-DIVISION . "'X'.

    GT_CLIENTDATAX-PROD_HIER = GT_FT_ITAB-PROD_HIERX . "'X'.

    GT_CLIENTDATAX-CAD_ID = GT_FT_ITAB-CAD_ID . "'X'.

    GT_CLIENTDATAX-ALLWD_VOL = GT_FT_ITAB-ALLWD_VOLX . "'X'.

    GT_CLIENTDATAX-PROD_ALLOC = GT_FT_ITAB-PROD_ALLOCX . "'X'.

    GT_CLIENTDATAX-HAZMATPROF = 'X'.

    GT_CLIENTDATAX-HIGH_VISC = GT_FT_ITAB-HIGH_VISCX . "'X'.

    GT_CLIENTDATAX-LOOSEORLIQ = GT_FT_ITAB-LOOSEORLIQX . "'X'.

    GT_CLIENTDATAX-ITEM_CAT = 'X'.

    GT_CLIENTDATAX-INV_MAT_NO_EXTERNAL = GT_FT_ITAB-INV_MAT_NO_EXTERNALX . "'X'.

    GT_CLIENTDATAX-EXTMATLGRP = GT_FT_ITAB-EXTMATLGRPX . " 'X'.

    GT_CLIENTDATAX-TRANS_GRP = 'X'.

    GT_CLIENTDATAX-QTY_GR_GI = 'X'.

    GT_CLIENTDATAX-ALLWD_VOL = 'X'.

    ***<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    GT_PLANTDATA-PLANT = GT_FT_ITAB-PLANT . " '0001'.

    GT_PLANTDATA-MRP_TYPE = GT_FT_ITAB-MRP_TYPE . "'ND'.

    GT_PLANTDATA-PUR_GROUP = '001'. "Purchasing Group

    GT_PLANTDATA-PROC_TYPE = 'F'. "Procurement Type

    GT_PLANTDATA-SPPROCTYPE = '10'. "Special procurement type

    • GT_PLANTDATA-REORDER_PT = GT_FT_ITAB-REORDER_PT . "8000.

    GT_PLANTDATA-SAFETY_STK = 2.

    GT_PLANTDATA-LOADINGGRP = '0001'. "Loading group

    GT_PLANTDATA-MINLOTSIZE = GT_FT_ITAB-MINLOTSIZE . "6000.

    **<<<<<<<<PLANT DATA INITIAL>>>>>>>>>>>>>

    GT_PLANTDATAX-PLANT = GT_FT_ITAB-PLANTX. " '0001'.

    GT_PLANTDATAX-MRP_TYPE = GT_FT_ITAB-MRP_TYPEX. " 'X'.

    GT_PLANTDATAX-PUR_GROUP = 'X'. "Purchasing Group

    GT_PLANTDATAX-PROC_TYPE = 'X'. "Procurement Type

    GT_PLANTDATAX-SPPROCTYPE = 'X'. "Special procurement type

    GT_PLANTDATAX-LOADINGGRP = 'X'. "Loading group

    • GT_PLANTDATAX-REORDER_PT = GT_FT_ITAB-REORDER_PTX. " 'X'.

    GT_PLANTDATAX-SAFETY_STK = GT_FT_ITAB-SAFETY_STKX. "'X'.

    GT_PLANTDATAX-MINLOTSIZE = GT_FT_ITAB-MINLOTSIZEX. "'X'.

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>

    GT_FORECASTPARAMETERS-PLANT = GT_FT_ITAB-F_PLANT. " '0001'.

    *<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>>>>

    GT_FORECASTPARAMETERSX = '0001'.

    GT_FORECASTPARAMETERSX-PLANT = GT_FT_ITAB-F_PLANTX. " '0001'.

    *<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>

    *GT_PLANNINGDATA-PLANT = GT_FT_ITAB-P_PLANT. " '0001'.

    GT_PLANNINGDATA-PLANT = '0001'.

    *<<<<<<<<<<<<<<<PLANNING INITIAL >>>>>>>>>>

    GT_PLANNINGDATAX-PLANT = '0001'.

    *GT_PLANNINGDATA-PLANT = GT_FT_ITAB-P_PLANTX. " '0001'.

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>

    GT_STORAGELOCATIONDATA-PLANT = GT_FT_ITAB-S_PLANT. "'0001'.

    GT_STORAGELOCATIONDATA-STGE_LOC = GT_FT_ITAB-S_STGE_LOC."'0001'.

    *<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>

    *GT_STORAGELOCATIONDATAX-PLANT = '0001'.

    *GT_STORAGELOCATIONDATAX-STGE_LOC = '0001'.

    GT_STORAGELOCATIONDATAX-PLANT = GT_FT_ITAB-S_PLANTX. "'0001'.

    GT_STORAGELOCATIONDATAX-STGE_LOC = GT_FT_ITAB-S_STGE_LOCX."'0001'.

    **<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>

    GT_SALESDATA-SALES_ORG = '0001'.

    GT_SALESDATA-DISTR_CHAN = '01'.

    • GT_SALESDATA-SALES_UNIT = 'DZ'.

    GT_SALESDATA-ITEM_CAT = 'NORM'.

    *<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>

    GT_SALESDATAX-SALES_ORG = '0001'.

    GT_SALESDATAX-DISTR_CHAN = '01'.

    • GT_SALESDATAX-SALES_UNIT = 'X'.

    GT_SALESDATAX-ITEM_CAT = 'X'.

    ******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>

    GT_WAREHOUSENUMBERDATA-WHSE_NO = '001'.

    GT_WAREHOUSENUMBERDATA-STGE_TYPE = '001'.

    ******<<<<<<<WAREHOUSENUMBERDATAX>>>>>>>>

    GT_WAREHOUSENUMBERDATX-WHSE_NO = '001'.

    GT_WAREHOUSENUMBERDATX-STGE_TYPE = '001'.

    ******<<<<<<<STORAGETYPEDATA>>>>>>>>

    GT_STORAGETYPEDATA-WHSE_NO = '001'.

    GT_STORAGETYPEDATA-STGE_TYPE = '001'.

    ******<<<<<<<STORAGETYPEDATAX>>>>>>>>

    GT_STORAGETYPEDATAX-WHSE_NO = '001'.

    GT_STORAGETYPEDATAX-STGE_TYPE = '001'.

    *****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

    MATERIAL_DESC-LANGU = SY-LANGU.

    MATERIAL_DESC-LANGU_ISO = 'IN'.

    MATERIAL_DESC-MATL_DESC = GT_FT_ITAB-MATL_DESC . "'TEST_BAPI'.

    APPEND MATERIAL_DESC.

    *****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>>>>>>>>>

    GT_UNITSOFMEASURE-ALT_UNIT = GT_FT_ITAB-ALT_UNIT. " 'EA' .

    GT_UNITSOFMEASURE-ALT_UNIT_ISO = GT_FT_ITAB-ALT_UNIT_ISO. " 'EA'.

    GT_UNITSOFMEASURE-GROSS_WT = '9000'. "Gross weight

    GT_UNITSOFMEASURE-UNIT_OF_WT = 'KG'. "Weight Unit

    APPEND GT_UNITSOFMEASURE.

    *****<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>>>>>>>>>>

    GT_UNITSOFMEASUREX-ALT_UNIT = 'EA' .

    GT_UNITSOFMEASUREX-ALT_UNIT_ISO = 'EA'.

    GT_UNITSOFMEASUREX-GROSS_WT = 'X'. "Gross weight

    GT_UNITSOFMEASURE-UNIT_OF_WT = 'X'. "Weight Unit

    APPEND GT_UNITSOFMEASUREX.

    *****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

    GT_MATERIALLONGTEXT-APPLOBJECT = GT_FT_ITAB-APPLOBJECT." 'MVKE'.

    GT_MATERIALLONGTEXT-TEXT_NAME = 'M-44 000101' .

    • GT_FT_ITAB-MATERIAL . "'M-32 000101'

    GT_MATERIALLONGTEXT-TEXT_ID = '0001'.

    GT_MATERIALLONGTEXT-LANGU = SY-LANGU.

    GT_MATERIALLONGTEXT-TEXT_LINE = ' TEST DATA'.

    • <GT_FT_ITAB-TEXT_LINE. " 'TEST M-32'.

    APPEND GT_MATERIALLONGTEXT.

    • ***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

    GT_VALUATIONDATA-VAL_AREA = '0001'.

    GT_VALUATIONDATA-PRICE_CTRL = 'V'.

    GT_VALUATIONDATA-MOVING_PR = '750.00'.

    GT_VALUATIONDATA-STD_PRICE = '800.00' .

    GT_VALUATIONDATA-PRICE_UNIT = 1.

    GT_VALUATIONDATA-VAL_CLASS = 7920.

    GT_VALUATIONDATA-TAXPRICE_1 = 1.

    *****<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

    GT_VALUATIONDATAX-VAL_AREA = '0001'.

    GT_VALUATIONDATAX-PRICE_CTRL = 'X'.

    GT_VALUATIONDATAX-MOVING_PR = 'X'.

    GT_VALUATIONDATAX-STD_PRICE = 'X'.

    GT_VALUATIONDATAX-PRICE_UNIT = 'X'.

    GT_VALUATIONDATAX-VAL_CLASS = 'X'.

    GT_VALUATIONDATAX-TAXPRICE_1 = 'X'.

    GT_CLIENTDATA-ALLOWED_WT = 9000.

    GT_CLIENTDATA-ALLWD_VOL = 9000.

    GT_CLIENTDATAX-ALLOWED_WT = 'X' .

    GT_CLIENTDATAX-ALLWD_VOL = 'X'.

    GT_INTERNATIONALARTNOS-UNIT = 'KG'.

    APPEND GT_INTERNATIONALARTNOS.

    GT_TAXCLASSIFICATIONS-DEPCOUNTRY = 'DE'.

    GT_TAXCLASSIFICATIONS-TAX_TYPE_1 = 'MWST'.

    GT_TAXCLASSIFICATIONS-TAXCLASS_1 = '1'.

    APPEND GT_TAXCLASSIFICATIONS.

    GT_PRTDATA-PLANT = '0001'.

    GT_PRTDATAX-PLANT = '0001'.

    APPEND: GT_PRTDATAX, GT_PRTDATA.

    *****

    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

    EXPORTING

    HEADDATA = HEADER

    CLIENTDATA = GT_CLIENTDATA

    CLIENTDATAX = GT_CLIENTDATAX

    PLANTDATA = GT_PLANTDATA

    PLANTDATAX = GT_PLANTDATAX

    FORECASTPARAMETERS = GT_FORECASTPARAMETERS

    FORECASTPARAMETERSX = GT_FORECASTPARAMETERSX

    PLANNINGDATA = GT_PLANNINGDATA

    PLANNINGDATAX = GT_PLANNINGDATAX

    STORAGELOCATIONDATA = GT_STORAGELOCATIONDATA

    STORAGELOCATIONDATAX = GT_STORAGELOCATIONDATAX

    VALUATIONDATA = GT_VALUATIONDATA

    VALUATIONDATAX = GT_VALUATIONDATAX

    WAREHOUSENUMBERDATA = GT_WAREHOUSENUMBERDATA

    WAREHOUSENUMBERDATAX = GT_WAREHOUSENUMBERDATX

    SALESDATA = GT_SALESDATA

    SALESDATAX = GT_SALESDATAX

    STORAGETYPEDATA = GT_STORAGETYPEDATA

    STORAGETYPEDATAX = GT_STORAGETYPEDATAX

    • FLAG_ONLINE = ' '

    • FLAG_CAD_CALL = ' '

    • NO_DEQUEUE = ' '

    IMPORTING

    RETURN = ITAB_RETURN

    TABLES

    MATERIALDESCRIPTION = MATERIAL_DESC

    UNITSOFMEASURE = GT_UNITSOFMEASURE

    UNITSOFMEASUREX = GT_UNITSOFMEASUREX

    INTERNATIONALARTNOS = GT_INTERNATIONALARTNOS

    MATERIALLONGTEXT = GT_MATERIALLONGTEXT

    TAXCLASSIFICATIONS = GT_TAXCLASSIFICATIONS

    RETURNMESSAGES = GT_RETURNMESSAGES

    PRTDATA = GT_PRTDATA

    PRTDATAX = GT_PRTDATAX

    • EXTENSIONIN =

    • EXTENSIONINX =

    .

    IF ITAB_RETURN-TYPE EQ 'E'.

    ERROR_REC = ERROR_REC + 1.

    FORMAT COLOR COL_NEGATIVE INVERSE ON.

    CONCATENATE 'Message ID: ' iTAB_RETURN-ID 'Message No: ' ITAB_RETURN-NUMBER

    'Error: ' iTAB_RETURN-MESSAGE INTO

    TEXT SEPARATED BY SPACE .

    WRITE:/ TEXT.

    FORMAT COLOR COL_NEGATIVE INVERSE OFF.

    ELSEIF iTAB_RETURN-TYPE EQ 'S'.

    WA_HEAD-TDOBJECT = 'MVKE' .

    CONCATENATE ITAB_RETURN-MESSAGE_V1 ' 000101'

    INTO iTAB_RETURN-MESSAGE_V1 .

    WA_HEAD-TDNAME = ITAB_RETURN-MESSAGE_V1. "'M-40 000101'. "

    WA_HEAD-TDID = '0001' .

    WA_HEAD-TDSPRAS = SY-LANGU.

    ITAB_TLINE-TDFORMAT = '00'.

    ITAB_TLINE-TDLINE = 'TEST 12221' .

    APPEND ITAB_TLINE .

    CALL FUNCTION 'SAVE_TEXT'

    EXPORTING

    CLIENT = SY-MANDT

    HEADER = WA_HEAD

    INSERT = 'X'

    SAVEMODE_DIRECT = 'X'

    OWNER_SPECIFIED = ' '

    • LOCAL_CAT = ' '

    • IMPORTING

    • FUNCTION =

    • NEWHEADER =

    TABLES

    LINES = ITAB_TLINE

    EXCEPTIONS

    ID = 1

    LANGUAGE = 2

    NAME = 3

    OBJECT = 4

    OTHERS = 5

    .

    FORMAT COLOR COL_POSITIVE INVERSE ON.

    WRITE:/ ITAB_RETURN-MESSAGE .

    FORMAT COLOR COL_POSITIVE INVERSE OFF.

    ENDIF.

    IF ITAB_RETURN-TYPE EQ 'S'.

    SUCCESS_REC = SUCCESS_REC + 1.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

    EXPORTING

    WAIT = 'X'

    IMPORTING

    RETURN = GT_RETURN.

    ENDIF.

    APPEND ITAB_RETURN.

    CLEAR: WA_HEAD, ITAB_TLINE[].

    CLEAR: ITAB_RETURN[],TEXT.

    ENDLOOP.

    TOT_REC = ERROR_REC + SUCCESS_REC.

    SKIP 3.

    FORMAT COLOR COL_TOTAL INVERSE ON.

    WRITE: /38 TEXT-008 , TOT_REC.

    FORMAT COLOR COL_TOTAL INVERSE OFF.

    FORMAT COLOR COL_NEGATIVE INVERSE ON.

    WRITE: /38 TEXT-007 , ERROR_REC.

    FORMAT COLOR COL_NEGATIVE INVERSE OFF.

    FORMAT COLOR COL_TOTAL INVERSE ON.

    WRITE: /38 TEXT-009 , SUCCESS_REC.

    FORMAT COLOR COL_TOTAL INVERSE OFF.

    OOPS ALV

    OOPS - Events.

    Editable ALV

    Tree

    TabStrip

    Multigrid

    Check this for basic concepts of OOPS

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/abap%20objects/abap%20code%20sample%20to%20learn%20basic%20concept%20of%20object-oriented%20programming.doc

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20to%20display%20data%20in%20alv%20grid%20using%20object%20oriented%20programming.doc

    Tabstrip

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20for%20tab%20strip%20in%20alv.pdf

    Editable ALV

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20to%20edit%20alv%20grid.doc

    Tree

    http://www.sapdevelopment.co.uk/reporting/alv/alvtree/alvtree_usrint.htm

    http://sappoint.com/abap/

    for SAPscripts

    For follg., refer http://www.henrikfrank.dk/abapuk.html

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.