Application Development 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: 

Re:BDC,ALV,SCRIPTS and SMARTFORMS

Former Member

‎11-30-2007 3:38 AM

0 Kudos

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

2 REPLIES 2

p291102
Active Contributor

‎11-30-2007 3:46 AM

0 Kudos

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

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

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

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

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.h...

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-sub...

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

Former Member

‎11-30-2007 3:47 AM

0 Kudos

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

**　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%20...

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20...

Tabstrip

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20...

Editable ALV

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20...

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