Brefely explain function module

hi
this is ramireddy.

hi ram,
Function modules are procedures that are defined in function groups (special ABAP programs with type F) and can be called from any ABAP program. Function groups act as containers for function modules that logically belong together,Function modules allow you to encapsulate and reuse global functions in the R/3 System. They are stored in a central library,Unlike subroutines, you do not define function modules in the source code of your program.
3 types.
1)normal function module
2)remote function module
Difference between FM and subroutines
difference between function module and subroutines
function module vs loacal subroutines
3)update function module
reward points if helpful.

Similar Messages

Pls explain me the use and purpose of following Function modules

pls explain me the use and purpose of following Function modules
1. G_MAX_PERIOD_AND_OFFSET_GET
2. DEQUEUE_E_TABLE
3. FI_COMPANY_CODE_CHECK
4. G_PERIOD_GET
5. alv_display_function
6. G_SET_GET_ID_FROM_NAME
thanks ,
phyrose

1. G_MAX_PERIOD_AND_OFFSET_GET
For given No. of period & periods it gives the offset
2. DEQUEUE_E_TABLE
To Unlock the table records
3. FI_COMPANY_CODE_CHECK
To validate Company Code

4. G_PERIOD_GET
Returns no. of Posting period & Special period for give company code, posting date & ledger
5. alv_display_function -
No such FM exists

6. G_SET_GET_ID_FROM_NAME - Use this module to derive the internal set Id from the name that appears on the user interface, for example, in order then to import the set (see the function group documentation).
The function module first determines a candidate list of sets based on the set name and the class that might have been specified that could match the set name. The class can also be masked (e.g. 000+ for all FI-SL sets, including dynamic sets).

Can anybody explain me creating Generic Datasource using Function module?

Hi,
can anybody explain me creating Generic Datasource using Function module?
Thax in advance,
Ravi.

Generic Extraction via Function Module
/people/siegfried.szameitat/blog/2005/09/29/generic-extraction-via-function-module
1. Create s structure with the fields that you need from the 4 tables . Activate.
2. Goto SE 80 Select The Function Group , Copy , Select the Function module
" RSAX_BIW_GET_DATA_SIMPLE " and Give a New name starting With
Y or Z .
3. SE37 ->Your Function module name -> Change , In table tab give your structure
name by deleting the associated type given in " E_T_DATA " .
4. Now select source code and Do the coding . Give Data source name in Coding .
In your case you have to take data from more that 1 table .
5. Activate the Function Group .
6. In RSO2 Create the Data source , Give the Function Module Name , And Save.
7. RSA3 -> Give data source name and Check for the Records .
Creation of custom datasource. (Using function module)
is an example
1.Create a function group .
2. Structure ZTEST123
ZMATNR MATNR CHAR 18 0 Material Number
ZMTART MTART CHAR 4 0 Material type
ZMBRSH MBRSH CHAR 1 0 Industry sector
ZMATKL MATKL CHAR 9 0 Material group
ZBISMT BISMT CHAR 18 0 Old material number
ZMAKTX MAKTX CHAR 40 0 Material description
3. Create function module (i.e. ZTEST.) .
FM - YMARA_DATA_TRNS
FUNCTION YMARA_DATA_TRNS.
""Local Interface:
*" IMPORTING
*" VALUE(I_REQUNR) TYPE SRSC_S_IF_SIMPLE-REQUNR
*" VALUE(I_DSOURCE) TYPE SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*" VALUE(I_MAXSIZE) TYPE SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*" VALUE(I_INITFLAG) TYPE SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*" VALUE(I_READ_ONLY) TYPE SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*" TABLES
*" I_T_SELECT TYPE SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*" I_T_FIELDS TYPE SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*" E_T_DATA STRUCTURE ZTEST123 OPTIONAL
*" EXCEPTIONS
*" NO_MORE_DATA
*" ERROR_PASSED_TO_MESS_HANDLER
data : ZTEST123 type ZTEST123 occurs 0 with header line.
Maximum number of lines for DB table
STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
S_COUNTER_DATAPAKID LIKE SY-TABIX.
DATA: begin of t_mara occurs 0,
ZMATNR type MATNR,
ZMTART type MTART,
ZMBRSH type MBRSH,
ZMATKL type MATKL,
ZBISMT type BISMT,
end of t_mara.
DATA: begin of t_makt occurs 0,
ZMATNR type MATNR,
ZMAKTX type MAKTX,
end of t_makt.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
IF I_INITFLAG = SBIWA_C_FLAG_ON.
Check DataSource validity
CASE I_DSOURCE.
WHEN 'ZZMARA_DATA'.
WHEN OTHERS.
IF 1 = 2. MESSAGE E009(R3). ENDIF.
this is a typical log call. Please write every error message like this
LOG_WRITE 'E' "message type
'R3' "message class
'009' "message number
I_DSOURCE "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDCASE.
Fill parameter buffer for data extraction calls
S_S_IF-REQUNR = I_REQUNR.
S_S_IF-DSOURCE = I_DSOURCE.
S_S_IF-MAXSIZE = I_MAXSIZE.
ELSE. "Initialization mode or data extraction ?
Data transfer: First Call OPEN CURSOR + FETCH
Following Calls FETCH only
First data package -> OPEN CURSOR
IF S_COUNTER_DATAPAKID = 0.
Determine number of database records to be read per FETCH statement
from input parameter I_MAXSIZE. If there is a one to one relation
between DataSource table lines and database entries, this is trivial.
In other cases, it may be impossible and some estimated value has to
be determined.
select MATNR
MTART
MBRSH
MATKL
BISMT
from mara up to 10 rows
into table t_mara.
if not t_mara[] is initial.
select MATNR
maktx
from makt
into table t_makt
for all entries in t_mara
where matnr = t_mara-zmatnr.
endif.
loop at t_mara.
read table t_makt with key zmatnr = t_mara-zmatnr.
ZTEST123-zmatnr = t_mara-zmatnr.
ZTEST123-ZMTART = t_mara-ZMTART.
ZTEST123-ZBISMT = t_mara-ZBISMT.
ZTEST123-ZMBRSH = t_mara-ZMBRSH.
ZTEST123-ZMATKL = t_mara-ZMATKL.
ZTEST123-zmaktx = t_makt-zmaktx.
append ZTEST123.
clear ZTEST123.
endloop.
clear E_T_DATA.
refresh E_T_DATA.
E_T_DATA[] = ZTEST123[].
ENDIF.
S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
ENDIF. "Initialization mode or data extractio
ENDFUNCTION.
3. Create the data source using transaction (RSO2).
4. If structure exists for the table parameter of your function module then ok else create a structure for the table parameter E_T_DATA.
5. Test the datasource in R/3 using transaction RSA3.
6. Transfer the data source to BW System and replicate it in the BW-System.

Explain the Function module 'RHPP_COMMON_QUALI_READ'

Please explain me ,how the functional module 'RHPP_COMMON_QUALI_READ' works.Also mention the input parameters and output that is expected.

ThisFM calls the standard Evaluation Path QREQPROF which you could perhaps substitute to a custom one

Please explain the function module BITMAP_CREATE

hi all
can any one explain the function module BITMAP_CREATE .
i need to get create a bmp file . which i need it from the report GFW_PROG_PIE of screen 100.
cheers
senthil

Hi,
if you need to create a bpm-file, why not use the MIME-repository (SE80)?
Roy

Function module - object - workflow(complicated to explain:))

Hello,
I have a problem.
I created in se37 the function ZRR_ACTORS. I have as the import parameter PRNUMBER with type BAPIEBANC-PREQ_NO. As an export parameter i have RECIPIENT with type BAPIEBANC-REASON_BLOCKING( i have not found an appropriate type for the recipient that works in a function module for the object, so i used this..i do not think that is the problem).
The code is:
data:begin of gs_eban,
menge type eban-menge,
preis type eban-preis,
end of gs_eban,
gt_eban like table of gs_eban,
gv_sum type i,
gv_aux type SWD_MRCPNT.
select menge preis from eban into TABLE gt_eban where banfn = prnumber.
loop at gt_eban into gs_eban.
gv_sum = gv_sum + gs_eban-menge * gs_eban-preis.
endloop.
if gv_sum > 20.
 select single recipient from zteam_approvers into gv_aux where zuser = 'xxxx.
 else.
 select single recipient from zteam_approvers into gv_aux where zuser = 'yyyy'.
 endif.
recipient = gv_aux.
As you probably see, i am sending this function the purchase requisition number. In the function I am calculating the value of the purchase requisition. If the value is bigger then 20 i want the recipient to be the email adress of the user xxxx. Else the other email. zteam_approvers is a table with users and their emails.
When i test this function everything is ok.
I created subtype for object BUS2015(purchase requisition), called ZBUS2015. Here i created a method which uses the function ZRR_ACTORS. I released it and after that i selected in swo1 BUS2015 and delegated ZBUS2015. So now when i test object BUS2015, i can use method ZRR_ACTORS which contains the function module ZRR_ACTORS.
If i test this object, the method ZRR_ACTORS works fine. I give the method the number of the purchase requisition and it returns me the user xxxx or yyyy.
Now, i created a workflow. In this workflow i want to send an email to the user xxxx or yyyy. So i have to execute the function ZRR_ACTORS. I create an activity(zrr_activity) in the new workflow. In it, i create a new task(zrr_task) in the activity with object category BUS2105 and method ZRR_ACTORS. I am setting this method as a background method, because after the execution of the function i want to create a Send email step, with the recipient being the one of the emails.
My problem is the binding. In the workflow container i set the PRNUMBER as an import parameter and the Recipient as an export parameter.
In the binding of the step(zrr_activity) i set the following bindings:
Workflow STEP
&PRNUMBER& -> &PRNUMBER&
&BUS2105& -> &_WI_OBJECT_ID&
&RECIPIENT& <- &RECIPIENT
If i click in the activity, in the task i created(zrr_task), in the object method i set the bindings:
Task Method
&PRNUMBER& -> &PRNUMBER
&RECIPIENT& <- &RECIPIENT&
I run the workflow. Now i enter the PRNUMBER 0010000420, but it remains 10000420 (maybe this i because of the type PREQ_NO.) and execute.The task has the status In Process. I click on Workflow log, then on list with technical details, and then in the container, i see the Recipient is empty.
So, i think the function did not work properly. What do you think?
Thank you very much,
Efren
Edited by: Efren23 on May 30, 2011 7:31 PM

Hi Efren,
Go to transaction ST22 and check for any dump.
The work item is in process, so there will be a dump in the system.
The Function module parameters could be a problem.
ST22 transaction will give you details about the dump.
Thanks,
Viji.

How to debug a RFC function module remotely from another R/3 system?

Hi experts,
   I have RFC function module in one R/3 system. I am calling this from another R/3 system that is cross apps (Xapps).
   This function module is Synchronous.
Is it possible to debug this function module from cross apps?
Can somebody give me the steps?
Thanks & Regards
Gopal

Hi Shree,
   Can you explain it bit more?
   Do I have to call the function module with "IN BACKGROUND TASK"?
   Or is it that I have to just put external breakpoint in the function module?
   Please help
Thanks
Gopa

Function modules

Guys, Can someone tell me the difference between writing function modules and writing routines and when to use each? I know how to get to routines screen to write those routines but I have no clue about function modules. If someone can tell me how to write them or direct me to a document that explains the process will be much appreciated.
Thanks,
RG

hi,
chk out the links
Enhancements in SAP BW
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/59069d90-0201-0010-fd81-d5e11994d8b5
Customer Enhancements in SAP NetWeaver BI (Exits, BAdIs and ABAP in the SAP NetWeaver BI Back End)
http://www.sap.com/community/pub/showdetail.epx?itemID=5257
Ramesh

Function modules used in CG02

Hi,
Does anyone know the standard function modules or tables related to the transaction CG02.
I have a requirement to fetch the plating data of certain specifications.The plating data is being displayed on the transaction.but we don't know from where it is being fed or stored.
Your suggestions would immensely help.
Thanks and Regards
Hema.

As I don't have this Tcode configured in my system
OK.
In session 1.
Goto ST05 tcode and the click on Activate Trace
In session 2.
You execute your transaction CG02 and navigate to the place where the data you are looking for.
Back to session 1.
Click on deacticate Trace
Click on Display trace
This will display the database table triggered while you are executing in Session 2.
Hope am able to explain you....Have a try and let me know incase of any issues..

Enhancement points option: Function modules or BADI

Hi, I am on ECC 6.0 and I need to validate and set some requirement in customer sales area data when user input the document output message in Documents tab strip screen 7003 of sapmf02d in transaction XD01 or XD02.
I found that there is function module EXIT_SAPMF02D_001 that I probably can use to create an implicit enhancement point to validate table T_KNVD or I can use BADI customer_add_data. Can someone suggest which way is better and why? I am new to this so could someone show me screen by screen on how to create and implement BADI.
I am confusing about should I create a ZBADI or using existing BADI customer_add_data. If I use existing BADI how can I add my own method with my own code.
Thanks.

Thanks. Could you explain to me how does the custom BADI get call to execute my code? Say
I have a customer document screen 7326 (Customer Master Subscreen SD Documents in program SAPMF02D). What I want is when user click save, I want to do some validation on the output message that they enter and issue some warning or error messages.
I am on ECC 6.0 so I can create a BADI from Enhancement spot not from SE18. SAP has a BADI called CUSTOMER_ADD_DATA with class CL_EX_CUSTOMER_ADD_DATA and interface IF_EX_CUSTOMER_ADD_DATA.
When I create a ZBADI_CUST, which interface class I put in the IF_EX_CUSTOMER_ADD_DATA
or a ZIF_EX_XX so that I can create my own method? How does the BADI get called when I am in transaction XD02 and click the save button? Could you kindly show me step by step the procedure.
Thanks.

Function Module Does not exist

Hello Experts,
I am trying to run the initialization for the Billing conditions 2lis_13_vdkon datasource.
Job is getting cancelled and the following error messages are coming when i check the job log in source system
Job started
Step 001 started (program SBIE0001, variant &0000000006238, user ID BASIS
Asynchronous transmission of info IDoc 2 in task 0001 (0 parallel tasks)
DATASOURCE = 2LIS_13_VDKON
RLOGSYS    = BWDCLNT900
REQUNR     = REQU_DHKONXGA1B82HZ49O94KQ03C4
UPDMODE    = C
LANGUAGES = *
*          Current Values for Selected Profile Parameters               *
* abap/heap_area_nondia......... 2000683008
* abap/heap_area_total.......... 2000683008
* abap/heaplimit................ 40894464
* zcsa/installed_languages...... ED
* zcsa/system_language.......... E
* ztta/max_memreq_MB............ 2047
* ztta/roll_area................ 3000320
* ztta/roll_extension........... 2000683008
Function module /BI0/QI2LIS_13_VDKON does not exist
You can only use LIKE and TYPE to specify types in RFC
Internal session terminated with a runtime error (see ST22)
Job cancelled
even when i check in ST22
Category
ABAP Programming Error
Runtime Errors
IMPORT_ALIGNMENT_MISMATCH
Except.
CX_SY_IMPORT_MISMATCH_ERROR
ABAP Program
SAPLMCEX
Application Component LO-LIS
Date and Time
06.05.2014 12:30:28
Error analysis
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_SY_IMPORT_MISMATCH_ERROR', was
not caught in
procedure "MCEX_BW_LO_API" "(FUNCTION)", nor was it propagated by a RAISING
clause.
Since the caller of the procedure could not have anticipated that the
exception would occur, the current program is terminated.
The reason for the exception is:
When importing object "MC13VD0KON_TAB", the structure did not match the
structure of the target object. The error occurred in component
no. 21.
This may be due to one of the following reasons:
- the structure is actually different (the next field has, for
example, a different data type) or
- the same sequence of components were exported and imported,
but the fields were from other include units.
How to correct the error
There is a probably a new version of the program active that does
not match the dataset. The data may not have been converted.
It is also possible that the field type of the imported field
has been changed in the Data Dictionary.
Try to eliminate the error by regenerating the program "SAPLMCEX". To
do this, proceed as follows:
Call Transaction SE38 in the R/3 System, enter the program
name "SAPLMCEX" and then choose "Generate".
If the error occurred in your own ABAP program or in an SAP
program you modified, try to remove the error.
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"IMPORT_ALIGNMENT_MISMATCH" "CX_SY_IMPORT_MISMATCH_ERROR"
"SAPLMCEX" or "LMCEXU06"
"MCEX_BW_LO_API"
If you cannot solve the problem yourself and want to send an error
please help me in this regards
Quick response will be appreciated.
Thanks in advance

Hi Ram,
no upgrades recently
they have taken backup from production server.
now i am facing this prob in development server.
when i am trying to check in RSA3 it is throwing same short dump
as u said i did all the re activations still i am facing the same issue.
please give me some other sol...
thanks,
srikanth Putta'

Function module "GM_DOCUMENT_REVERSE" not found. after Patch Update

Hi Abapers/Basis
After patch update i am not able to do FBCJ reversal entry getting below error message.
Runtime Errors         CALL_FUNCTION_NOT_FOUND
Exception              CX_SY_DYN_CALL_ILLEGAL_FUNC
Date and Time          25.05.2011 14:43:26
Short text
     Function module "GM_DOCUMENT_REVERSE" not found.
What happened?
     The function module "GM_DOCUMENT_REVERSE" is called,
     but cannot be found in the library.
     Error in the ABAP Application Program
     The current ABAP program "SAPLRWCL" had to be terminated because it has
     come across a statement that unfortunately cannot be executed.
What can you do?
     Note down which actions and inputs caused the error.
     To process the problem further, contact you SAP system
     administrator.
     Using Transaction ST22 for ABAP Dump Analysis, you can look
     at and manage termination messages, and you can also
Error analysis
    An exception occurred that is explained in detail below.
    The exception, which is assigned to class 'CX_SY_DYN_CALL_ILLEGAL_FUNC', was
     not caught in
    procedure "CALL_DISPATCHER_STORNO_R" "(FORM)", nor was it propagated by a
     RAISING clause.
    Since the caller of the procedure could not have anticipated that the
    exception would occur, the current program is terminated.
    The reason for the exception is:
    The program "SAPLRWCL" contains the CALL FUNCTION statement.
    The name of the function module to be called is "GM_DOCUMENT_REVERSE".
    No function module exists with the name "GM_DOCUMENT_REVERSE".
    All function modules are listed in the Function Library (SE37).
    Possible reasons:
    a) Wrong name specified. Pay particular attention to
       upper/lower case and underscores ("_").
       or
    b) Transport error
    c) In the case of an enqueue/dequeue module,
       the lock object may not have been activated
       (ABAP/4 Dictionary).
How to correct the error
    Check the last transports to the SAP System.
    Is the program "SAPLRWCL" currently being changed?
    If an enqueue/dequeue module is involved, is the activation
    of the lock object missing in the ABAP/4 Dictionary?
    If the error occures in a non-modified SAP program, you may be able to
    find an interim solution in an SAP Note.
    If you have access to SAP Notes, carry out a search with the following
    keywords:
    "CALL_FUNCTION_NOT_FOUND" "CX_SY_DYN_CALL_ILLEGAL_FUNC"
    "SAPLRWCL" or "LRWCLF10"
    "CALL_DISPATCHER_STORNO_R"
    Function modules with names similar to "GM_DOCUMENT_REVERSE":
    GM_DOCUMENT_CLOSE
    GM_DOCUMENT_RECORD
    GM_DOCUMENT_DELETE
    GM_DOCUMENT_POST
    GM_DOCUMENT_CHECK
    G_DOCUMENT_RECORD
    GJ_DOCUMENT_RECORD
    GM_DOCUMENT_PROJECT
    GET_DOCUMENTS
    GM_DOCUMENT_DISPLAY
    If you cannot solve the problem yourself and want to send an error
    notification to SAP, include the following information:
If you cannot solve the problem yourself and want to send an error
notification to SAP, include the following information:
1. The description of the current problem (short dump)
   To save the description, choose "System->List->Save->Local File
(Unconverted)".
2. Corresponding system log
   Display the system log by calling transaction SM21.
   Restrict the time interval to 10 minutes before and five minutes
after the short dump. Then choose "System->List->Save->Local File
(Unconverted)".
3. If the problem occurs in a problem of your own or a modified SAP
program: The source code of the program
   In the editor, choose "Utilities->More
Utilities->Upload/Download->Download".
Moderator message: please don't just dump your dumps, search for SAP notes or open a call with SAP instead.
Edited by: Thomas Zloch on May 25, 2011 2:16 PM

Hi Karthik,
Thank you for ur reply.
I did not implement any user exit/ badi. Dump is saying that my smarform function module does not exist in the se37 library.
I have excuted my form through se38, that time is working fine. When i tried through output type it is going to dump.
Regards,
Kusuma.

Function Module-ABAP Logic

Hi Experts,
The following is the ABAP Code used in Function Module to extract Master Data from R/3 to BW.Could please convert that into human language (Explain logic of code)
FUNCTION MDEX_MATERIAL_MD .
""Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_REQUNR) TYPE SBIWA_S_INTERFACE-REQUNR OPTIONAL
*" VALUE(I_CHABASNM) TYPE SBIWA_S_INTERFACE-CHABASNM OPTIONAL
*" VALUE(I_MAXSIZE) TYPE SBIWA_S_INTERFACE-MAXSIZE OPTIONAL
*" VALUE(I_INITFLAG) TYPE SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*" VALUE(I_UPDMODE) TYPE SBIWA_S_INTERFACE-UPDMODE OPTIONAL
*" VALUE(I_DATAPAKID) TYPE SBIWA_S_INTERFACE-DATAPAKID OPTIONAL
*" VALUE(I_S_TIMEINT) TYPE SBIWA_S_TIMEINT OPTIONAL
*" VALUE(I_RLOGSYS) TYPE SRSC_S_INTERFACE-RLOGSYS OPTIONAL
*" VALUE(I_PRIVATE_MODE) OPTIONAL
*" TABLES
*" I_T_SELECT TYPE SBIWA_T_SELECT OPTIONAL
*" I_T_FIELDS TYPE SBIWA_T_FIELDS OPTIONAL
*" E_T_BIW_MARA_S STRUCTURE BIW_MARA_S OPTIONAL
*" E_T_BIW_MARC_S STRUCTURE BIW_MARC_S OPTIONAL
*" E_T_BIW_MARD_S STRUCTURE BIW_MARD_S OPTIONAL
*" E_T_BIW_MVKE_S STRUCTURE BIW_MVKE_S OPTIONAL
*" E_T_BIW_MARM_S STRUCTURE BIW_MARM_S OPTIONAL
*" EXCEPTIONS
*" NO_MORE_DATA
*" ERROR_PASSED_TO_MESS_HANDLER
function acts as a S-API-compatible interface for the SD-extractor
MATERIAL_DYNAM_DATA_SELECTION
STATICS: L_FIRST_CALL TYPE SBIWA_FLAG,
 L_NO_SELECT TYPE C.
DATA: L_SUBRC TYPE SBIWM_SUBRC.
DATA: L_T_CHABASCMP LIKE RSSOSFIELD OCCURS 0 WITH HEADER LINE,
 L_S_REQUEST TYPE RSAP_S_REQUEST,
 L_SLOGSYS LIKE TBDLS-LOGSYS,
 L_RODCHABGEN LIKE RODCHABGEN,
 L_LINES TYPE I,
 L_TX_SELECT TYPE SBIWA_TX_SELECT,
 L_T_SELECT TYPE SBIWA_T_SELECT,
 L_S_SELECT TYPE SBIWA_S_SELECT.
DATA: L_T_MARA LIKE MARA OCCURS 10 WITH HEADER LINE,
 L_T_MARC LIKE MARC OCCURS 10 WITH HEADER LINE,
 L_T_MARD LIKE MARD OCCURS 10 WITH HEADER LINE,
 L_T_MVKE LIKE MVKE OCCURS 10 WITH HEADER LINE,
 L_T_MARM LIKE MARM OCCURS 10 WITH HEADER LINE.
DATA: L_S_MATNR_MATERIAL_KEYS LIKE PRE03,
 L_S_WERKS_MATERIAL_KEYS LIKE PRE01,
 L_S_LGORT_MATERIAL_KEYS LIKE PRE08,
 L_S_VTLIN_MATERIAL_KEYS LIKE PRE10.
 Variable to read compound information "note383430 insED08052001
DATA: i_chabasnm_cmp TYPE sbiwa_s_interface-chabasnm.
"note383430 insED08052001
IF I_INITFLAG = 'X'.
Initialization: check input parameters
 buffer input parameters
 prepare data selection
Invalid second initialization call -> error exit
 IF NOT G_FLAG_INTERFACE_INITIALIZED IS INITIAL.
 IF 1 = 2. MESSAGE E008(R3). ENDIF.
 LOG_WRITE 'E' "message type
 'R3' "message class
 '008' "message number
 ' ' "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 ELSE.
 G_FLAG_INTERFACE_INITIALIZED = SBIWA_C_FLAG_ON.
 ENDIF.
Check for supported update mode
 CASE I_UPDMODE.
 WHEN SBIWA_C_UPDMODE_FULL.
 WHEN SBIWA_C_UPDMODE_DELTAINIT.
 WHEN SBIWA_C_UPDMODE_DELTA.
 WHEN OTHERS.
 IF 1 = 2. MESSAGE E011(R3). ENDIF.
 LOG_WRITE 'E' "message type
 'R3' "message class
 '011' "message number
 I_UPDMODE "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 ENDCASE.
Initialize variable to read compound information
 i_chabasnm_cmp = i_chabasnm. "note383430 insED08052001
**Check InfoObject validity and set IO-dependent parameters
 G_TAB1_FLG = G_TAB2_FLG = G_TAB3_FLG = G_TAB4_FLG = ' '.
 g_tab5_flg = ' '. "note417314 insED04072001
 G_NO_MARM = 'X'.
 CASE I_CHABASNM.
 WHEN '0MATERIAL'.
 G_TAB1_FLG = 'X'.
 G_TABLENAME = 'MARA'.
 WHEN '0ARTICLE'. "note383430 insED30042001
 G_TAB1_FLG = 'X'. "note383430 insED30042001
 G_TABLENAME = 'MARA'. "note383430 insED30042001
 i_chabasnm_cmp = '0MATERIAL'. "note383430 insED08052001
 WHEN '0ME_MATERIAL'. "note759687
 G_TAB1_FLG = 'X'. "note759687
 G_TABLENAME = 'MARA'. "note759687
 i_chabasnm_cmp = '0MATERIAL'. "note759687
 WHEN '0MAT_PLANT'.
 G_TAB2_FLG = 'X'.
 G_TABLENAME = 'MARC'.
 WHEN '0ART_PLANT'. "note383430 insED30042001
 G_TAB2_FLG = 'X'. "note383430 insED30042001
 G_TABLENAME = 'MARC'. "note383430 insED30042001
 i_chabasnm_cmp = '0MAT_PLANT'. "note383430 insED08052001
 WHEN '0MAT_ST_LOC'.
 G_TAB3_FLG = 'X'.
 G_TABLENAME = 'MARD'.
 WHEN '0ART_ST_LOC'. "note383430 insED30042001
 G_TAB3_FLG = 'X'. "note383430 insED30042001
 G_TABLENAME = 'MARD'. "note383430 insED30042001
 i_chabasnm_cmp = '0MAT_ST_LOC'. "note383430 insED08052001
 WHEN '0MAT_SALES'.
 G_TAB4_FLG = 'X'.
 G_TABLENAME = 'MVKE'.
 when '0ART_SALES'. "note383430 insED30042001 "delED
 g_tab4_flg = 'x'. "note383430 insED30042001 "delED
 g_tablename = 'MVKE'. "note383430 insED30042001 "delED
 WHEN '0ART_SALES'. "insED
 G_TAB4_FLG = 'X'. "insED
 G_TABLENAME = 'MVKE'. "insED
 i_chabasnm_cmp = '0MAT_SALES'. "note383430 insED08052001
 WHEN '0MAT_UNIT'.
 G_TAB1_FLG = 'X'. "note417314 delED04072001
 g_tab5_flg = 'X'. "note417314 insED04072001
 G_TABLENAME = 'MARM'.
 G_NO_MARM = ' '.
 WHEN OTHERS.
 IF 1 = 2. MESSAGE E009(R3). ENDIF.
 LOG_WRITE 'E' "message type
 'R3' "message class
 '009' "message number
 I_CHABASNM "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 ENDCASE.
** fill parameter buffer for data extraction calls
 G_S_EXTR_IF-REQUNR = I_REQUNR.
 G_S_EXTR_IF-CHABASNM = I_CHABASNM.
 G_S_EXTR_IF-MAXSIZE = I_MAXSIZE.
 G_S_EXTR_IF-INITFLAG = I_INITFLAG.
 G_S_EXTR_IF-UPDMODE = I_UPDMODE.
 G_S_EXTR_IF-DATAPAKID = I_DATAPAKID.
 g_s_interface-read_opt =.
 G_S_INTERFACE-MAX_MATNR = I_MAXSIZE.
 g_s_interface-max_lifnr =.
 g_s_interface-max_kunnr =.
 g_s_interface-max_werks =.
 CASE I_UPDMODE.
 WHEN SBIWA_C_UPDMODE_DELTA.
 ** settings for delta data transfer
 ** get additional information about current extraction
 CALL FUNCTION 'RSAN_LOGSYS_DETERMINE'
 EXPORTING
 I_CLIENT = SY-MANDT
 IMPORTING
 E_LOGSYS = L_SLOGSYS.
 L_S_REQUEST-SNDPRN = L_SLOGSYS.
 L_S_REQUEST-RCVPRN = I_RLOGSYS.
*----- Fill Content release so get_rodchabgen will work ok -
 PERFORM GET_BWBCRL IN PROGRAM SAPLRSAP "OSS 1054070/2000
 USING L_S_REQUEST-RCVPRN "OSS 1054070/2000
 CHANGING L_SUBRC. "OSS 1054070/2000
 PERFORM GET_RODCHABGEN IN PROGRAM SAPLRSAP
 USING L_RODCHABGEN
 I_CHABASNM
 L_S_REQUEST.
 ** get base characteristic information
 PERFORM DETERMINE_COMPOSITES IN PROGRAM SAPLRSAM
 TABLES L_T_CHABASCMP
 USING I_CHABASNM.
 USING i_chabasnm_cmp. "note383430 insED08052001
 ** Get information about modified data objects
 PERFORM FILL_MD_SELECT_ENTRYTABLE IN PROGRAM SAPLRSAP
 TABLES L_T_CHABASCMP
 USING L_RODCHABGEN-MSGTYP
 I_CHABASNM
 CHANGING L_TX_SELECT
 L_SUBRC.
 DESCRIBE TABLE L_TX_SELECT LINES L_LINES.
 IF L_LINES = 0.
 L_NO_SELECT = 'X'.
 ENDIF.
 ** fill key-table for extractor
 REFRESH G_T_MATNR_MATERIAL_KEYS.
 REFRESH G_T_WERKS_MATERIAL_KEYS.
 REFRESH G_T_LGORT_MATERIAL_KEYS.
 REFRESH G_T_VTLIN_MATERIAL_KEYS.
 refresh g_t_marm_material_keys. "note417314 insED04072001
 LOOP AT L_TX_SELECT INTO L_T_SELECT.
 CASE I_CHABASNM.
 WHEN '0MATERIAL' OR '0ARTICLE' "note383430 insED30042001
 OR '0ME_MATERIAL'.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'MATNR'.
 L_S_MATNR_MATERIAL_KEYS-MATNR = L_S_SELECT-LOW.
 APPEND L_S_MATNR_MATERIAL_KEYS TO G_T_MATNR_MATERIAL_KEYS.
 WHEN '0MAT_PLANT' OR '0ART_PLANT'. "note383430 insED30042001
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'MATNR'.
 L_S_WERKS_MATERIAL_KEYS-MATNR = L_S_SELECT-LOW.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'WERKS'.
 L_S_WERKS_MATERIAL_KEYS-WERKS = L_S_SELECT-LOW.
 APPEND L_S_WERKS_MATERIAL_KEYS TO G_T_WERKS_MATERIAL_KEYS.
 WHEN '0MAT_ST_LOC' OR '0ART_ST_LOC'.
 "note383430 insED30042001
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'MATNR'.
 L_S_LGORT_MATERIAL_KEYS-MATNR = L_S_SELECT-LOW.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'WERKS'.
 L_S_LGORT_MATERIAL_KEYS-WERKS = L_S_SELECT-LOW.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'LGORT'.
 L_S_LGORT_MATERIAL_KEYS-LGORT = L_S_SELECT-LOW.
 APPEND L_S_LGORT_MATERIAL_KEYS TO G_T_LGORT_MATERIAL_KEYS.
 WHEN '0MAT_SALES' OR '0ART_SALES'. "note383430 insED30042001
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'MATNR'.
 L_S_VTLIN_MATERIAL_KEYS-MATNR = L_S_SELECT-LOW.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'VKORG'.
 L_S_VTLIN_MATERIAL_KEYS-VKORG = L_S_SELECT-LOW.
 READ TABLE L_T_SELECT
 INTO L_S_SELECT
 WITH KEY FIELDNM = 'VTWEG'.
 L_S_VTLIN_MATERIAL_KEYS-VTWEG = L_S_SELECT-LOW.
 APPEND L_S_VTLIN_MATERIAL_KEYS TO G_T_VTLIN_MATERIAL_KEYS.
 ENDCASE.
 ENDLOOP.
 IF L_SUBRC <> 0.
 IF 1 = 2. MESSAGE E009(R3). ENDIF.
 LOG_WRITE 'E' "message type
 'R3' "message class
 '009' "message number
 I_CHABASNM "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 EXIT.
 ENDIF.
 ** settings for full data transfer or delta init.
*----- Selektionsbedingungen müssen immer übernommen werden -
 WHEN sbiwa_c_updmode_full "DEL"TH090800
 OR sbiwa_c_updmode_deltainit. "DEL"TH090800
 REFRESH g_t_sel_table. "DEL"TH090800
 LOOP AT i_t_select INTO l_s_select. "DEL"TH090800
 g_s_sel_table-table = g_tablename. "DEL"TH090800
 g_s_sel_table-field = l_s_select-fieldnm. "DEL"TH090800
 MOVE-CORRESPONDING l_s_select TO g_s_sel_table. "DEL"TH090800
 APPEND g_s_sel_table TO g_t_sel_table. "DEL"TH090800
 ENDLOOP. "DEL"TH090800
 WHEN OTHERS.
 ENDCASE.
*----- Selektionsbedingungen müssen immer übernommen werden -
 REFRESH G_T_SEL_TABLE. "INS"TH090800
 LOOP AT I_T_SELECT INTO L_S_SELECT. "INS"TH090800
 G_S_SEL_TABLE-TABLE = G_TABLENAME. "INS"TH090800
 G_S_SEL_TABLE-FIELD = L_S_SELECT-FIELDNM. "INS"TH090800
 MOVE-CORRESPONDING L_S_SELECT TO G_S_SEL_TABLE. "INS"TH090800
 APPEND G_S_SEL_TABLE TO G_T_SEL_TABLE. "INS"TH090800
 ENDLOOP. "INS"TH090800
 REFRESH G_T_FIELDS.
 APPEND LINES OF I_T_FIELDS TO G_T_FIELDS.
ELSE. "Initialization mode or data extraction ?
 IF ( G_MORE_DATA_EXISTS = ' ' ) AND ( G_COUNTER_DATAPAKID NE 0 ).
 RAISE NO_MORE_DATA.
 EXIT.
 ENDIF.
 IF G_S_EXTR_IF-UPDMODE = SBIWA_C_UPDMODE_DELTA.
 IF NOT L_NO_SELECT IS INITIAL.
 RAISE NO_MORE_DATA.
 ENDIF.
 ENDIF.
 IF ( G_MORE_DATA_EXISTS = 'X' ) OR ( G_COUNTER_DATAPAKID = 0 ).
 REFRESH L_T_MARA.
 REFRESH L_T_MARC.
 REFRESH L_T_MARD.
 REFRESH L_T_MVKE.
 REFRESH L_T_MARM.
 CALL FUNCTION 'MATERIAL_DYNAM_DATA_SELECTION'
 EXPORTING
 NO_MARM_DATA = G_NO_MARM
 READ_MARA_DATA = G_TAB1_FLG
 READ_MARC_DATA = G_TAB2_FLG
 READ_MARD_DATA = G_TAB3_FLG
 READ_MVKE_DATA = G_TAB4_FLG
 read_marm_data = g_tab5_flg "note417314 insED04072001
 JOIN_OPTION = 'O'
 IN_MAX_MATNR = G_S_INTERFACE-MAX_MATNR
 TABLES
 IN_SELECT_FIELDS = G_T_SEL_TABLE
 IN_MATNR_KEYS = G_T_MATNR_MATERIAL_KEYS
 IN_WERKS_KEYS = G_T_WERKS_MATERIAL_KEYS
 IN_VTLIN_KEYS = G_T_VTLIN_MATERIAL_KEYS
 IN_LGORT_KEYS = G_T_LGORT_MATERIAL_KEYS "insED22032001
 in_marm_keys = g_t_marm_material_keys "note417314
 "insED04072001
 OUT_MARA_TAB = L_T_MARA
 OUT_MARC_TAB = L_T_MARC
 OUT_MARD_TAB = L_T_MARD
 OUT_MVKE_TAB = L_T_MVKE
 OUT_MARM_TAB = L_T_MARM
 CHANGING
 MORE_DATA_EXISTS = G_MORE_DATA_EXISTS
 EXCEPTIONS
 WRONG_INPUT_DATA = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
 IF 1 = 2. MESSAGE E011(R3). ENDIF.
 LOG_WRITE 'E' "message type
 'R3' "message class
 '011' "message number
 SY-SUBRC "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 ENDIF.
 G_COUNTER_DATAPAKID = G_COUNTER_DATAPAKID + 1.
 LOOP AT L_T_MARA.
 MOVE-CORRESPONDING L_T_MARA TO E_T_BIW_MARA_S.
 APPEND E_T_BIW_MARA_S.
 ENDLOOP.
 LOOP AT L_T_MARC.
 MOVE-CORRESPONDING L_T_MARC TO E_T_BIW_MARC_S.
 provide additional attributes not contained in MARC
 PERFORM MARC_ADD_ATTRIBUTES CHANGING E_T_BIW_MARC_S
 L_SUBRC.
 IF L_SUBRC <> 0.
 IF 1 = 2. MESSAGE E501(R§). ENDIF.
 "insED03082001 begin note216922
 log_write 'W' "message type
 'R§' "message class
 '501' "message number
 e_t_biw_marc_s-werks "message variable 1
 ' '. "message variable 2
 "insED03082001 end note216922
 "delED03082001 begin note216922
 LOG_WRITE 'E' "message type
 'R§' "message class
 '501' "message number
 E_T_BIW_MARC_S-WERKS "message variable 1
 ' '. "message variable 2
 RAISE ERROR_PASSED_TO_MESS_HANDLER.
 "delED03082001 end note2169222
 ENDIF.
 APPEND E_T_BIW_MARC_S.
 ENDLOOP.
 LOOP AT L_T_MARD.
 MOVE-CORRESPONDING L_T_MARD TO E_T_BIW_MARD_S.
 APPEND E_T_BIW_MARD_S.
 ENDLOOP.
 LOOP AT L_T_MVKE.
 MOVE-CORRESPONDING L_T_MVKE TO E_T_BIW_MVKE_S.
 APPEND E_T_BIW_MVKE_S.
 ENDLOOP.
 LOOP AT L_T_MARM.
 MOVE-CORRESPONDING L_T_MARM TO E_T_BIW_MARM_S.
 APPEND E_T_BIW_MARM_S.
 ENDLOOP.
 ENDIF.
ENDIF.
ENDFUNCTION.
Thanks

Hi,
This might not be the right forum for this. You can post your question in more relevant forum like Netweaver-Exchange Infrastructure.

Is there any BAPI or function module to delete entries from a table (VBAK)

Hi Everybody,
this is my first thread in SDN...
my problem follows...
A report is be created that selects all sales orders created by e-Sales that are more than 20 minutes old and still have a delivery block:
tables:
VBAK sales document: header data
selection fields:
VBAK-LIFSK ≠ <BLANK>
VBAK-ERNAM = userID used by e-Sales / IVE
 (EP-BATCH / EAI-BATCH)
VBAK-ERDAT <= Current system Date
VBAK-ERZET <= Current system Time - 20 minutes
These orders should be deleted from SAP system.
This report should be scheduled to run regularly every 10 minutes.
my doubt : is ther any BAPI or Function module to delete entries from a standard table...if no what is the way to delete the enteries from a std table...
best replies will be rewarded....
regards
Reddy

Hi Vasanth ,
thanks for your reply.
i tried in the same manner what u mentioned.
but how to pass only one parameter to the functionmodule..
here in this case we have to pass only update flag as 'D'..
i did the same it giving dump..
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_SY_DYN_CALL_ILLEGAL_TYPE', was
not caught and
therefore caused a runtime error.
The reason for the exception is:
The call to the function module "BAPI_SALESORDER_CHANGE" is incorrect:
In the function module interface, you can specify only
fields of a specific type and length under "ORDER_HEADER_INX".
Although the currently specified field
"INT_ORDER_HEADER_INX" is the correct type, its length is incorrect.
my pgm :
*& Report YNEW_ORDER_DELETION
REPORT ynew_order_deletion.
TABLES:vbak.
PARAMETERS:
 p_lifsk LIKE vbak-lifsk DEFAULT '02'.
SELECT-OPTIONS:
 s_lifsk FOR vbak-lifsk DEFAULT '10',
 s_ernam FOR vbak-ernam,
 s_erdat FOR vbak-erdat,"DEFAULT sy-datum.
 s_erzet FOR sy-uzeit.
*PARAMETERS:
p_erzet LIKE sy-uzeit.
 s_erdat like vbak-erdat,
 s_erzet like vbak-erzet.
DATA:
 BEGIN OF int_final OCCURS 0,
 w_vbeln TYPE vbak-vbeln,
 END OF int_final.
DATA:
int_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: int_order_header_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE.
DATA:
wf_time TYPE sy-uzeit.
INITIALIZATION.
s_ernam-low = 'KULKARMA'.
s_ernam-sign = 'I'.
s_ernam-option = 'EQ'.
APPEND s_ernam.
s_ernam-low = 'EAI-BATCH'.
s_ernam-sign = 'I'.
s_ernam-option = 'EQ'.
APPEND s_ernam.
wf_time = sy-uzeit - 1200.
p_erzet = sy-uzeit - 1200.
p_erzet-low = wf_time.
APPEND s_erzet.
int_order_header_inx-updateflag = 'D'.
APPEND int_order_header_inx.
START-OF-SELECTION.
SELECT vbeln FROM vbak
 INTO TABLE int_final
 WHERE lifsk EQ p_lifsk
 AND ernam IN s_ernam
 AND erdat IN s_erdat
 AND erzet IN s_erzet.
IF sy-subrc = 0.
 LOOP AT int_final.
 CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
 EXPORTING
 salesdocument = int_final-w_vbeln
ORDER_HEADER_IN =
 order_header_inx = int_order_header_inx
SIMULATION =
BEHAVE_WHEN_ERROR = ' '
INT_NUMBER_ASSIGNMENT = ' '
LOGIC_SWITCH =
NO_STATUS_BUF_INIT = ' '
 TABLES
 return = int_return
ORDER_ITEM_IN =
ORDER_ITEM_INX =
PARTNERS =
PARTNERCHANGES =
PARTNERADDRESSES =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
SCHEDULE_LINES =
SCHEDULE_LINESX =
ORDER_TEXT =
ORDER_KEYS =
CONDITIONS_IN =
CONDITIONS_INX =
EXTENSIONIN =
 ENDLOOP.
 LOOP AT int_return.
 WRITE:/ int_return-type,
 int_return-id,
 int_return-number,
 int_return-message.
 ENDLOOP.
ENDIF.
please help me ..its a very urgent issue to be solved...
am waiting for ur reply...
regards
gangareddy

Function Module to identify released transports

Hi,
We required one function module or table where we can find the released transports in target system.
Suppose if we release one transport in developement, before importing to target system i want to identify the released trasport details in test system.
Thanks in advance
Raju

First Thanks for your replies
Actually we required one way (function moudle or table) to find the released trasnports in target system.
As i explained earlier, suppose if i releae one request in development system, we want to find the that released transport test system, before importing to test system.
Thnaks,
Raju

Brefely explain function module

Similar Messages

Maybe you are looking for