Select option how to pass in Function Module

Hi Friends
how to pass direct select-option values in a Function Module and later how to retrive the values from FM as well ?
Regards
Meeta

Hello Meeta
You may use a generic table type like RSELOPTION or RSDSSELOPT_T. However, this requires that you shuffle the data from twice from your specific select-options to this generic select-option and vice versa.
A much simpler way is to import the name of the report from which you want to retrieve its select-options into the function module and within the fm just call fm RS_REFRESH_FROM_SELECTOPTIONS.
Regards
Uwe

Similar Messages

How to create the select option for the Plant in screen (Module pool)

HI,
I am developing one module pool program and I have below requirement,
currently plant is acting like PARAMETER and the now it should be changed to select option.
how to create the select option in the screen
Thanks and regarding,
Malla
Moderator message - Cross post locked
Edited by: Rob Burbank on Dec 16, 2009 1:41 PM

Steps to get SELECT-OPTIONS in module pool programs.
1.Start one dialog program with SAPMZ_001.
Place the below code in the TOP include of the dialog program.
TABLES marc.
SELECTION-SCREEN BEGIN OF SCREEN 3200 AS SUBSCREEN.
SELECT-OPTIONS: werks FOR marc-werks.
SELECTION-SCREEN END OF SCREEN 3200.
2 .Create one screen 3000.
Go to Layout of the screen and Define subscreen area on the screen and Name it as l_subscreen.
Place the below code in the Flow logic of the screen.
PROCESS BEFORE OUTPUT.
CALL SUBSCREEN l_subscreen INCLUDING 'SAPMZ_001' '3200'.
PROCESS AFTER INPUT.
CALL SUBSCREEN l_subscreen.
Activate all.
Create Transaction code for the dialog program .
Execute the transaction code. You will see the select-option for werks how we see on Selection-screen.

How to use the function module ....

hi
how to use the function module ssf_function_module_name in smartforms

Hi..
If you are using this Function module, you can get the generated function module name of smartform dynamically. It is good progrmaming practice to get the fucntion module name dynamically because there might be some problems if you are hard coding in program.
This will return the name of the function module and then from the exporting parameters you can use the fucntion module name to pass parameters to Smartforms.
Check this link.I am expalining here how to use this function module.
https://wiki.sdn.sap.com/wiki/pages/pointstab/viewpageversion.action?pageId=36109&version=2
Calling SMARTFORMS from your ABAP program
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming
http://sapr3.tripod.com
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
MOVE-CORRESPONDING MKPF TO INT_MKPF.
APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSMARTFORM'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
if sy-subrc <> 0.
WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
GS_MKPF = INT_MKPF
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
<b>Reward points if useful</b>
Regards
Ashu

Wt parameters to pass in function module for particular kunnr fld

wt parameters to pass in function module f4if_int_table_value_request which is mostly preferred in reports instead of search help
for eg i use select-options s_kunnr for kna1-kunnr & prepare i internal table it_kna1.
den how 2 pass s_kunnr fld & it_kna1 in dat above FM for creating f4 functionality for particular s_kunnr fld on selection-screen.
plz send me d code urgently

Check below code....
SELECT carrid carrname
                FROM scarr
                INTO CORRESPONDING FIELDS OF TABLE itab_carrid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield        = 'CARRID'
            value_org       = 'S'
       TABLES
            value_tab       = itab_carrid
       EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.
IF sy-subrc <> 0.
ENDIF.

How to use SD_VBAK_ARRAY_READ functional module

hello
can you please tell me how to use SD_VBAK_ARRAY_READ functional module. that means what i have to pass and what i should get.
Please help me

Hi Ravi,
i want to display vkorg,kunnr,and some other fields from the VBAK. User enters VKORG and some other fields but VKORG is compulsory.
so i written the code like this.
TYPES :BEGIN OF TEITAB_VBAK,
       VKORG type VBAK-VKORG,
       KUNNR TYPE VBAK-KUNNR,
       VBELN TYPE VBAK-VBELN,
       AUDAT TYPE VBAK-AUDAT,
       VDATU TYPE VBAK-VDATU,
       ERNAM TYPE VBAK-ERNAM,
       END OF TEITAB_VBAK.
DATA: ITAB_VBAK TYPE TABLE OF TEITAB_VBAK,
      WA_VBAK TYPE TEITAB_VBAK.
SELECT-OPTIONS: s_VKORG FOR P_VKORG OBLIGATORY,         " Sales Organization
                s_KUNNR FOR P_KUNNR,         " Sold-to party.
                s_VBELN FOR P_VBELN,         " Sales Document.
                s_MATNR FOR P_MATNR,         " Material number.
                s_AUDAT FOR P_AUDAT,         " Document Date (Date Received/Sent).
                s_VDATU FOR P_VDATU,         " Requested delivery date.
                s_ERNAM FOR P_ERNAM,         " Name of Person who Created the Object.
                s_VKAUS FOR P_VKAUS.         " Usage indicator.
SELECT VKORG KUNNR VBELN AUDAT VDATU ERNAM
FROM VBAK
INTO CORRESPONDING FIELDS OF TABLE ITAB_VBAK
WHERE VKORG IN S_VKORG AND AUART EQ 'ZRA'.
CALL FUNCTION 'SD_VBAK_ARRAY_READ'
EXPORTING
I_BYPASSING_BUFFER          = ' '
I_REFRESH_BUFFER            =
TABLES
    IT_VBAK_KEY                 =
ET_VBAK                     =
EXCEPTIONS
RECORDS_NOT_FOUND           = 1
RECORDS_NOT_REQUESTED       = 2
OTHERS                      = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
so i confused where to call this fucntional module and what to pass. That means call this functional module before the select query or after the select query and what to pass.
i am new in ABAP.
Please help me to solve this problem .

How many types of function modules are there

hi gurus,
how many types of function modules are there...
what type of function module bapi is....
i don't know much about that...
pls help me...
regards,
praveen

hi
hope it will help you.
<REMOVED BY MODERATOR>
Function Modules Used in Script:
In the Driver Program we must use all or some of the function modules that are listed below to transfer the data.
Open_Form
Close_Form
Start_Form
Write_Form
Write_Form_Lines
End_Form
Control_Form
Read_Form_elements
Read_Form_Lines
Any driver program must contain Open_Form, Close_Form and Write_Form. Other function modules are optional.
OPEN_FORM: This function module opens layout set printing. One must call this function module before he uses any of other layout set function modules like Write_Form, Start_Form, Control_Form etc., You need specify a layout set name in the export parameters of this function module. If nothing is passed to Open_Form then one should use Start_Form function module to open layout set before starting the output. The layout set opened by Open_Form should be closed by Close_Form function module, other wise output doesnt appear. We can use any number of Open_Form, Close_Form functions in one single program. But Close_Form must be there for every Open_Form in the program.
Some of the important export parameters we have to pass to Open_Form function module.
Form: Enter the Layout set name here, which then controls the output formatting. If nothing is specified then we must use Start_Form for opening layout set.
Language: Layout sets are Language dependent. Enter the desired language here. If the entered layout set is not in that language, then the function tries to open the Form entered in its original language. The default value is SY-LANGU.
Device: SAP Script can format a text on different device types. The device can be PRINTER or TELEX, TELEFAX, ABAP and SCREEN.
Dialog: Use parameter DIALOG to determine whether to display a dialog box before printing, in which the user can set several spool parameters for print formatting. Possible values: SPACE displays no print parameter screen. 'X' display print parameter screen. Default value: 'X'
Options: Use parameter OPTIONS to set several options for print formatting. The parameter has the structure ITCPO. The user can change some of the defined settings on the print control screen. The default value for Options is . We will discuss about ITCPO structure in detail later.
Other Export, Import and Exceptions are self-explanatory.
Close_Form: The function module closes the layout set opened using OPEN_FORM. The system executes any terminating processing steps for the last opened layout set. No Export parameters for this Function Module.
Start_Form: In-between the function modules OPEN_FORM and CLOSE_FORM, we can use different layout sets. This allows us to combine several different layout sets into one print output. However, we can combine only those layout sets that have the same page format. To switch layout sets, use the function module START_FORM. If another layout set is still open, we must close it first using END_FORM. If we specify no layout set name when calling START_FORM, the system restarts the last open layout set. If after OPEN_FORM no layout set was activated yet, the system leaves the function module with the exception UNUSED. Some of the important export parameters for this function module are
Form: The parameter contains the name of the layout set you want to use for printing. If you specify no layout set here, the system restarts the last active layout set.
Language: Layout sets are language-dependent. Enter the desired language here. If the layout set does not exist in this language, the system tries to call the layout set in its original language. If the parameter LANGUAGE is empty, the system uses the language of the last active layout set.
Startpage: Usually, SAP script starts with the page specified as start page in the layout set definition. If we want to start output with another layout set page, enter the name of the desired layout set page here. If the desired page is not defined, the system uses the start page defined in the layout set.
Program: To replace program symbols, SAP script must know which active program contains the work areas for the values to be passed. If we omit the parameter, the system searches for the field values in the program that was specified in the parameter OPTIONS (field TDPROGRAM) of OPEN_FORM. If we enter a program name, the system replaces the program symbols with the values from this program up to the next END_FORM.
Exceptions and other Export, Import parameters are self-explanatory.
Write_Form: The system outputs the layout set element specified in parameter ELEMENT into the currently opened layout set. In the parameter WINDOW we can specify the name of a window for the output. Remember that the layout set element must be defined in this window. The parameter FUNCTION specifies how to merge the text lines to be output with any existing contents in the window. In this case, there are differences between the different window types or areas. Some of the important export parameters used in Write_Form.
Element: Specify the name of the text element you want to output into the layout set window specified in the parameter WINDOW. The element must be defined in that layout set window. If you specify no element, the system uses the default element, if one is defined in the layout set.
Window: Specify the name of the window into which you want to output the layout set element specified in the parameter ELEMENT. Default value for Window is MAIN.
Function: The parameter determines how to output the text element into the respective window. The output type depends on the window type and area:
Window Type: MAIN Area: BODY
SET/APPEND: Appends to previous output.
Window Type: Main Area: Top/Bottom and
Window Type: Other than Main and all areas
SET : Delete the old element contents and prints the new elements
APPEND: Appends the new content to existing elements.
Type: The system interprets this parameter only for output to the main window. The parameter determines the area of the main window into which we want to output the element. Possible values: 'TOP' header area
'BODY' main area
'BOTTOM' footer area
Default value: 'BODY'
Write_Form_Lines: This function module outputs the text lines in table LINES into the specified layout set window. The text lines must have the SAP script ITF format. From the data in the text header, the system uses only the field TDSTYLE to apply the formatting attributes defined in the specified style for this text. If the field is empty, the system uses the identically named formatting attributes (character and paragraph formats) of the layout set.
Use parameter WINDOW to specify into which of the windows defined in the layout set we want to output the text. We can specify any window used in the layout set. The parameter FUNCTION determines how to merge the text lines to be output with any existing contents in the window. There are differences between the different window types or areas.
Header: This parameter contains the header of the text module we want to output in the current layout set. For the formatting process, the system uses only the entries in the header fields TDSTYLE and TDFORM. Structure: THEAD
WINDOW: Enter the name of the window into which we want to output the layout set element specified in parameter ELEMENT. Default value: 'MAIN'
FUNCTION: This parameter determines how to output the text element into the respective window. The output type depends on the window type and area: Window type MAIN, area BODY: 'SET' append to previous output 'APPEND' same as SET. DELETE' no effect. Window type MAIN, areas TOP and BOTTOM; all other windows: 'SET' delete old window or area contents and output the element 'APPEND' append the element to the existing elements 'DELETE' no effect Default value: 'SET'
TYPE: The system interprets this parameter only for output to the main window. The parameter determines the area of the main window into which you want to output the element. Possible values: 'TOP' header area 'BODY' main area 'BOTTOM' footer area Default value: 'BODY'
END_FORM: END_FORM ends the currently open layout set and executes the required termination processing. After calling this function module, no more layout set is active. For further output, we must start a new layout set using START_FORM. No Export parameters.
CONTROL_FORM: Use this function module to pass SAP Script Control Commands to the layout set. The Control command is passed through the export parameter COMMAND in quotes.
READ_FORM_ELEMENTS: This function module fills a table with all text elements that appear in one layout set. If we specify no layout set name, the system includes all elements of the currently open layout set. If we specify a layout set, the system uses the information about the active version of the layout set, retrieved from the database. Here we have two export parameters, Form and Language and a table parameter Elements.
READ_FORM_LINES: Use this function module to transfer the lines of a layout set element into an internal table. If we specify no layout set name, the system transfers the text lines of the currently open layout set. If we specify a layout set, the system uses the text lines of the active version of the layout set from the database. The Export parameters are Form, Language, Window and Element. If we pass these 4 parameters the function module returns a table with the lines from layout set.
Function modules are one element. There are no types. However sometimes an RFC enabled function module is referred to as RFC Function module, but really it is just a function module. Also BAPIs are function modules, but are usually referred to as just BAPI as opposed to BAPI Function module.
There is no different function module types , but calling the function module will be different.
check this function calls syntax
1. Calls a function module:
CALL FUNCTION func.
2. Call a function module in a different mode (asynchronous Remote Function Call):
CALL FUNCTION func STARTING NEW TASK taskname.
3. Call a function module in the update task:
CALL FUNCTION func IN UPDATE TASK.
4. Call a function module in a remote system (Remote Function Call, RFC ):
CALL FUNCTION func DESTINATION dest.
5. Asynchronous call to a function module with transactional processing (transactional Remote Function Call):
CALL FUNCTION func IN BACKGROUND TASK.
qRFC with output queue
6. Call a function module that can be activated in the context of enhancements:
CALL CUSTOMER-FUNCTION func.
Cheers,
Chandru
Edited by: Alvaro Tejada Galindo on Feb 27, 2008 11:53 AM

How to down lode function module & how to uploaded

Dear friends,
Iam trying 2 transport request 4m development 2 production ,
unknowing i deleted customized function module,
Same functional module was in other client plz guide me how to downloaded functional module & how to up lode ,
How to down lode function module & how to uploaded
Regards,
Reddy

Hello,
Create a request of type Transport of Copies.
Go to transaction SE03 , select the option Include Objects in a Transport Request, select the object, include in your request and liberate it.
Then copy the DATA and COFILE of this request to your destination system and import it in transaction STMS.
Take a look at this: Transport error!
Regards,

How to keep multiple function modules under one Web service

Hi Experts,
I have Three RFC function modules and i need to create one web service for these three RFC function modules. I know How to crearte a web service for one function module.
please suggest me How to keep multiple function modules under one Web service.
Thanks in advance
Lakshminarayana

Hi Lakshmi,
The best way to do it is to assign all the three RFC Enabled FM's to one function group. Later on the top menu in Utilities you get an option to Create a Webservice from a Function Group.
You can create one single Webservice using all the the 3 FM's.
I hope this helps.
Thanks,
Manu

How to use read_text function module

Hi how to use read_text function module to read purchase order header text .what are all tht things to pass in ID,Name and Object
thanks,
Mahe

Dear,
Use below code.
DATA:IT_LINE LIKE TLINE OCCURS 0 WITH HEADER LINE,
V_TDNAME LIKE THEAD-TDNAME.
V_TDNAME = PO_NUMBER.
CALL FUNCTION 'READ_TEXT'
EXPORTING
*   CLIENT                        = SY-MANDT
    ID                            = 'F01'
    LANGUAGE                      = 'EN'
    NAME                          = V_TDNAME
    OBJECT                        = 'EKKO'
TABLES
    LINES                         = IT_LINE.
Thanks and Regards,

How to develope custom function modules in SAP R/3 system to maintain c...

How to develope custom function modules in SAP R/3 system to maintain cross
referencing tables for sales order number.

Hi Raja,
Steps to crate FM..
Follow these steps..
Go to the T: code SE37
First You Create Function Group
On That u specify
Function Group Name..............
Short Text..............................
save...
Go to SE 37
Specify the Function Module Name: Eg: Z_Bapi_Materialmaster
Short Text.......
Save...
Next Go to Attributes..
Select Radio button : Remote enabled model
Go to Parameters..
Click Import...
Give Parameter Type Associate type S.t
next Click Export...
Give Parameter Type Associate type S.t
Next Click Tables Button..
Specify tables..
Next click source code button..
Write Source code here..
Eg : Select statements Etc..
Finally we should be select the Radio button Enable remorely
https://www.sdn.sap.com/irj/sdn/wiki?path=/pages/viewpage.action?pageId=39728
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/abap/bapi%2bstep%2bby%2bstep
Hope this information is useful to you..
Reward points if it is usefulll....
Thanks ,
Satya Kumar..

How to use BAPI_MATERIAL_AVAILABILITY Function Module....

Hi Experts,
I want to know actual free available quantity (ATP Qty.) for mass materials,
How to use BAPI_MATERIAL_AVAILABILITY function module ?
I have select all material from MARA and inserted in itab.
LOOP AT ITAB.
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
EXPORTING
    PLANT                    =
    MATERIAL                 =
    UNIT                     =
CHECK_RULE               =
STGE_LOC                 =
BATCH                    =
CUSTOMER                 =
DOC_NUMBER               =
ITM_NUMBER               =
WBS_ELEM                 =
STOCK_IND                =
DEC_FOR_ROUNDING         =
DEC_FOR_ROUNDING_X       =
READ_ATP_LOCK            =
READ_ATP_LOCK_X          =
IMPORTING
ENDLEADTME               =
AV_QTY_PLT               =
DIALOGFLAG               =
RETURN                   =
TABLES
    WMDVSX                   =
    WMDVEX                   =
I dont know how to use it.
pl. guide us.
Yusuf

Hi,
       data: iwmdvsx type table of bapiwmdvs with header line,
       iwmdvex type table of bapiwmdve with header line.
parameters: p_matnr type mara-matnr,
            p_werks type marc-werks,
            p_meins type mara-meins.
call function 'BAPI_MATERIAL_AVAILABILITY'
exporting
    plant            = p_werks
    material         = p_matnr
    unit             = p_meins
CHECK_RULE       =
STGE_LOC         =
BATCH            =
CUSTOMER         =
DOC_NUMBER       =
ITM_NUMBER       =
WBS_ELEM         =
STOCK_IND        =
IMPORTING
ENDLEADTME       =
AV_QTY_PLT       =
DIALOGFLAG       =
RETURN           =
tables
    wmdvsx           = iwmdvsx
    wmdvex           = iwmdvex.
check sy-subrc = 0.
Text
ATP information
Functionality
Using this function module, you can determine the receipt quantity still available for a particular material in a certain plant according to ATP logic (MRPII).
The availability check is carried out on transferring the material number, the plant and the input table (WMDVSX). The scope of the check, that is, which stocks, receipts and issues are to be included in the check is defined by the combination of checking group (material master) and cheking rule. In the function module, the system uses the checking rule defined in Sales & Distribution (A). You can overrule this checking rule by using an interface or a user-exit (exit_saplw61v_001). A similar procedure is also valid for the plant parameters. The customer number in the user-exit means that the plant selection can be controlled via the customer. If no plant parameters are given via the interface, the system uses the parameter 'WRK' saved in the user's fixed values.
The results of the availability check are recorded in the output table (WMDVEX). This table contains dates and available receipt quantities (ATP quantities). The results of the check depends on the following entries:
If no date and no quantity is transferred, the system displays the ATP situation from today's date into the future as the result.
If only a date and no quantity is transferred, the system displays the ATP situation from the corresponding date as the result.
If both a date and a quantity are transferred, the system calculates the availability situation for the quantity specified.
In the last two cases, the parameter 'DIALOGFLAG' is supplied. This can result in the following:
' ' (blank)   <=> quantity completely available
'X'           <=> only partial quantity available or not available at
                  all
'N'           <=> Material not included in the availability check
                  (Material not relevant to the availability check)
The system also displays the end of the replenishment lead time (ENDLEADTME).
regards

How to debug a function module using in the generic datasource?

Hi all,
We have created a generic data source using function modulle and have been extracting the data for a single customer it contains single records but it has pulled out more than 10,000 records. how to debug the function module used in the data source.
since we schedule for extraction in bi and back ground job gets triggered in ecc for extraction,
i know in se37 we can select the function module name and then debug but still need to check while the bacground job is trigered through bi.
Thanks

Yes you can debug the Function Module.
Open the function module in SE37 and put a break point in the code where you want to check from, then come to RSA3 and give the datasource name and check the Debug check box on this screen, once you click on the start button it will take you the place where you have placed the break point in the FM, by pressing F5 you can see the flow of the FM.
Let me know whether this solves your issue.

How to use this function module on abap hr GET_PDSNR_RANGE

how to use this function module on abap hr GET_PDSNR_RANGE
thankx.

PASS INETRNAL TABLE WITH SOME DATA TO TABELLE FOR GENERATING PDSNR SEQUENCE

How to use the function module /IRM/IPBB_AGREEMENT_CREATE.

Hi all,
Please help me how to use the function module /IRM/IPBB_AGREEMENT_CREATE.
It is a Vistex fuction module which is used to create Sales contract in SAP-Vistex. If anyone has use the function module and do have the sample code please share it.
Thanks.

FORM create_agreement TABLES pt_agreement
                                       CHANGING po_agreement .
CONSTANTS: c_strt_knumh TYPE knumh VALUE '0000000000'.
DATA: lc_kona TYPE /irm/s_gkona,
        lc_cbasp TYPE /irm/s_ipcbasp,
      lt_cbapr TYPE /irm/t_ipcbapr,         "Partners
      lc_cbapr TYPE /irm/s_ipcbapr,
      lt_cbadt TYPE /irm/t_ipcbadt,        "Dates
      lc_cbadt TYPE /irm/s_ipcbadt,
      lt_cbafs TYPE /irm/t_ipcbafs,
      lc_cbafs TYPE /irm/s_ipcbafs,
      lt_cbacn TYPE /irm/t_ipcbacn,
      lc_cbacn TYPE /irm/s_ipcbacn,
      lt_cbacl TYPE /irm/t_ipcbacl,
      lc_cbacl TYPE /irm/s_ipcbacl,
      lt_cbtpv TYPE /irm/t_ipagtpv,
      lc_cbtpv TYPE /irm/s_ipagtpv,
      lt_texts TYPE text_lh,
      lc_texts TYPE itclh,
      lt_cbasd TYPE /irm/t_ipcbasd,
      lc_cbasd TYPE /irm/s_ipcbasd,
      lc_agreement    TYPE /irm/s_ipcbasp_doc,
      lc_e_log_number TYPE balognr,
      lt_messages     TYPE /irm/t_gprolog.
DATA: lt_vake      TYPE cond_vakevb_t,
        lc_vake      TYPE LINE OF cond_vakevb_t,
        lt_konh      TYPE /irm/t_gkonh,
        lc_konh      TYPE LINE OF /irm/t_gkonh,
        lt_konp      TYPE /irm/t_gkonp,
        lc_konp      TYPE LINE OF /irm/t_gkonp,
        lt_konw      TYPE /irm/t_gkonwu,
        lc_konw      TYPE LINE OF /irm/t_gkonwu,
        lt_konm      TYPE /irm/t_gkonmu,
        lc_konm      TYPE LINE OF /irm/t_gkonmu,
        lt_komg      TYPE /irm/t_gkomg_index,
        lc_komg      TYPE LINE OF /irm/t_gkomg_index,
        lt_user_data TYPE /irm/t_gpraxfu_index,
        lc_user_data TYPE LINE OF /irm/t_gpraxfu_index.
DATA: lc_updt(1) TYPE c.
DATA: lc_knumh TYPE knumh.
DATA: BEGIN OF lc_str_knumh,
         hd(2) TYPE c VALUE '$$',
         inc_num(8) TYPE c,
        END OF lc_str_knumh.
DATA: blank_agree_key TYPE knuma VALUE '~~~~~~~~~~'.
FIELD-SYMBOLS <konh_line> LIKE LINE OF lt_konh.
FIELD-SYMBOLS <konp_line> LIKE LINE OF lt_konp.
DATA: lc_rule TYPE type_key_rule.
READ TABLE pt_agreement INTO lc_rule INDEX 1.
SELECT SINGLE * FROM kona
        WHERE vkorg   = lc_rule-vkorg
        AND    vtweg   = '10'
        AND    spart   = '10'
        AND    boart   = 'ZPS1'
        AND    botext = lc_rule-sap_agkey.
IF sy-subrc = 0.
   lc_updt = 'U'.
ELSE.
lc_updt = 'I'.
ENDIF.
LOOP AT pt_agreement INTO lc_rule.
    MOVE sy-tabix TO lc_str_knumh-inc_num.
    CONDENSE lc_str_knumh-inc_num NO-GAPS.
    WHILE lc_str_knumh-inc_num+7(1) = ' '.
      CONCATENATE '0' lc_str_knumh-inc_num INTO lc_str_knumh-inc_num.
      CONDENSE lc_str_knumh-inc_num NO-GAPS.
    ENDWHILE.
    CONCATENATE '$$' lc_knumh INTO lc_knumh.
    MOVE lc_str_knumh TO lc_knumh.
   MOVE c_strt_knumh TO lc_knumh.
    CLEAR: lc_konh, lc_konp, lc_komg.
    MOVE: lc_rule-vkorg    TO lc_komg-komg-vkorg,
          '10'             TO lc_komg-komg-vtweg,
          '10'             TO lc_komg-komg-spart,
          p_waers          TO lc_komg-komg-waerk,
          '1300'           TO lc_komg-komg-bukrs,
          lc_rule-lifnr    TO lc_komg-komg-lifnr,
          lc_knumh         TO lc_komg-knumh,
          lc_knumh         TO lc_konh-knumh,
          lc_knumh         TO lc_konp-knumh,
          lc_rule-datab    TO lc_konh-datab,
          lc_rule-datbi    TO lc_konh-datbi.
    CASE lc_rule-tablnam.
      WHEN 'A701'.                   "Every Agreement will have a A701 rule -
        "Therefore we acn setup the header using A701
        MOVE: 'New       ' TO lc_kona-knuma,
              lc_rule-vkorg TO lc_kona-vkorg,
              '10'          TO lc_kona-vtweg,
              '10'          TO lc_kona-spart,
              'ZPS1'        TO lc_kona-boart,
              'C'           TO lc_kona-abtyp,
              'V'           TO lc_kona-kappl,
              p_waers       TO lc_kona-waers,
              lc_rule-knuma_ag TO lc_kona-abrex,
              'ZPS2'        TO lc_kona-kobog,
              lc_rule-datab TO lc_kona-datab,
              lc_rule-datbi TO lc_kona-datbi,
              lc_rule-sap_agkey TO lc_kona-botext,
              '1300'        TO lc_kona-bukrs,
              'I'           TO lc_kona-updkz.
        MOVE: 'New       ' TO lc_cbasp-knuma_ag,
              'ZPS1'        TO lc_cbasp-boart_ag,
              p_waers       TO lc_cbasp-waers,
              'A'           TO lc_cbasp-setl_mth,
              'B'           TO lc_cbasp-setl_typ,
              'A2'          TO lc_cbasp-ident,
              'E'           TO lc_cbasp-setlm,
              'ZPDA'        TO lc_cbasp-pargr,
              'X'           TO lc_cbasp-npric,
              'LF'          TO lc_cbasp-stprl,
              lc_rule-lifnr TO lc_cbasp-stpar,
              lc_rule-contract_rev TO lc_cbasp-rvnum,
              'I'           TO lc_cbasp-updkz.
        CONCATENATE: blank_agree_key
               lc_rule-lifnr        INTO lc_konh-vakey.
        MOVE: lc_rule-lifnr TO lc_konp-lifnr.
      WHEN 'A703'.
        CONCATENATE: blank_agree_key
                     lc_rule-kunnr      INTO lc_konh-vakey.
        MOVE lc_rule-kunnr TO lc_komg-komg-kunnr.
      WHEN 'A709'.
        CONCATENATE: blank_agree_key
        lc_rule-zzprodh1 lc_rule-zzprodh2 lc_rule-zzprodh3
               lc_rule-zzprodh4 lc_rule-zzprodh5 INTO lc_konh-vakey.
        CONCATENATE: lc_rule-zzprodh1 lc_rule-zzprodh2 lc_rule-zzprodh3
               lc_rule-zzprodh4 lc_rule-zzprodh5 INTO lc_komg-komg-prodh.
      WHEN 'A710'.
        CONCATENATE: blank_agree_key
            lc_rule-matkl   INTO lc_konh-vakey.
        MOVE lc_rule-matkl TO lc_komg-komg-matkl.
      WHEN 'A711'.
        CONCATENATE: blank_agree_key
             lc_rule-matnr   INTO lc_konh-vakey.
        MOVE lc_rule-matnr TO lc_komg-komg-matnr.
        IF lc_rule-kschl = 'ZPPL'.
          MOVE: 'C'              TO lc_konp-krech,
                'CAD'              TO lc_konp-konwa.
          lc_konp-kbetr = lc_rule-net_po_price * 1.
        ENDIF.
      WHEN 'A717'.
      WHEN 'A718'.
        CONCATENATE: blank_agree_key
             lc_rule-zzextwg INTO lc_konh-vakey.
        MOVE lc_rule-zzextwg TO lc_komg-komg-zzextwg.
     WHEN 'A719'.
       CONCATENATE: blank_agree_key
            lc_rule-werks INTO lc_konh-vakey.
       MOVE lc_rule-werks TO lc_komg-komg-werks.
     WHEN 'A721'.
       CONCATENATE: blank_agree_key
             lc_rule-kunnr lc_rule-werks INTO lc_konh-vakey.
       MOVE: lc_rule-kunnr TO lc_konp-kunnr,
             lc_rule-kunnr TO lc_komg-komg-kunnr.
      WHEN 'A722'.
        CONCATENATE: blank_agree_key
                     lc_rule-vkbur INTO lc_konh-vakey.
        MOVE lc_rule-vkbur TO lc_komg-komg-vkbur.
      WHEN 'A724'.
        CONCATENATE: blank_agree_key
                      lc_rule-kunnr lc_rule-vkbur INTO lc_konh-vakey.
        MOVE: lc_rule-kunnr TO lc_konp-kunnr,
              lc_rule-kunnr TO lc_komg-komg-kunnr,
              lc_rule-vkbur TO lc_komg-komg-vkbur.
    ENDCASE.
    MOVE: 'A'                  TO lc_konh-kvewe,
          lc_rule-tablnam+1(3) TO lc_konh-kotabnr,
          lc_rule-kappl        TO lc_konh-kappl,
          lc_rule-kschl        TO lc_konh-kschl.
    REPLACE ALL OCCURRENCES OF '~' IN lc_konh-vakey WITH ' '.
    APPEND lc_konh TO lt_konh.
    CLEAR lc_konh.
*--- Add in the KONP.Do we need to add
    MOVE: lc_rule-kappl        TO lc_konp-kappl,
          lc_rule-kschl        TO lc_konp-kschl,
          'G'                  TO lc_konp-krech.
    IF lc_rule-kschl+3(1) = '%'.
      MOVE: 'A'              TO lc_konp-krech,
            '%'              TO lc_konp-konwa.
      lc_konp-kbetr = lc_rule-rebate_perc * 1.
    ENDIF.
    APPEND lc_konp TO lt_konp. CLEAR lc_konp.
    APPEND lc_komg TO lt_komg. CLEAR lc_komg.
ENDLOOP.
IF lc_updt = 'I'.
    CALL FUNCTION '/IRM/IPCB_AGREEMENT_CREATE'
      EXPORTING
      I_MESSAGES_DISPLAY        = ' '
      I_SAVE_MESSAGES           = ' '
      I_COMMIT_WORK             = 'X'
      I_CALL_FROM_WS            = ' '
        is_kona                   = lc_kona
        is_cbasp                  = lc_cbasp
        it_cbapr                  = lt_cbapr
        it_cbadt                  = lt_cbadt
        it_cbafs                  = lt_cbafs
        it_cbacn                  = lt_cbacn
        it_cbacl                  = lt_cbacl
        it_cbtpv                  = lt_cbtpv
        it_texts                  = lt_texts
        it_cbasd                  = lt_cbasd
      IMPORTING
        es_agreement              = lc_agreement
        e_log_number              = lc_e_log_number
      TABLES
        t_messages                = lt_messages
     CHANGING
      CT_VAKE                   = lt_vake
      ct_konh                   = lt_konh
      ct_konp                   = lt_konp
      CT_KONW                   = lt_konw
      CT_KONM                   = lt_konm
       ct_komg                   = lt_komg
      CT_USER_DATA              = lt_usr_data
      EXCEPTIONS
        no_documents_to_process   = 1
        no_authorization          = 2
        creation_failed           = 3
        new_pricing_not_maitained = 4
        OTHERS                    = 5.
    IF sy-subrc <> 0.
Implement suitable error handling here
    ELSE.
      MOVE: lc_agreement-knuma_ag TO po_agreement,
            lc_agreement-knuma_ag TO lc_kona-knuma.
    ENDIF.
    APPEND LINES OF lt_messages TO gt_messages.
ELSE.
    MOVE-CORRESPONDING kona TO lc_kona.
ENDIF.
LOOP AT lt_konh ASSIGNING <konh_line>.
    MOVE lc_kona-knuma TO <konh_line>-vakey+0(10).
   move '&'           to <konh_line>-knumh+0(1).
ENDLOOP.
LOOP AT lt_konp ASSIGNING <konp_line>.
   MOVE lc_kona-knuma TO <konp_line>-vakey+0(10).
    move '&'           to <konh_line>-knumh+0(1).
ENDLOOP.
lc_kona-updkz = 'U'.
lc_cbasp-updkz = 'U'.
CLEAR lt_messages.
CALL FUNCTION '/IRM/IPCB_AGREEMENT_CHANGE'
    EXPORTING
    I_MESSAGES_DISPLAY      = ' '
    I_SAVE_MESSAGES         = ' '
    I_COMMIT_WORK           = 'X'
    I_INIT_DATA             = 'X'
      is_kona                 = lc_kona
      is_cbasp                = lc_cbasp
     it_cbapr                = lt_cbapr
     it_cbadt                = lt_cbadt
     it_cbafs                = lt_cbafs
     it_cbacl                = lt_cbacl
     it_cbacn                = lt_cbacn
    IT_FIELDS               =
     it_texts                = lt_texts
   IMPORTING
     e_log_number            = lc_e_log_number
     TABLES
       t_messages              = lt_messages
    CHANGING
      cs_agreement            = lc_agreement
    CT_VAKE                 = lt_vake
      ct_konh                 = lt_konh
      ct_konp                 = lt_konp
    CT_KONW                 = lt_konw
    CT_KONM                 = lt_konm
      ct_komg                 = lt_komg
    CT_USER_DATA            = lt_usr_data
    EXCEPTIONS
      no_documents_to_process = 1
      no_authorization        = 2
      change_failed           = 3
      agreement_locked        = 4
      OTHERS                  = 5.
IF sy-subrc <> 0.
Implement suitable error handling here
ENDIF.
APPEND LINES OF lt_messages TO gt_messages.
ENDFORM.                    " CREATE_AGREEMENT

2.....how to convert normal function module into remote enabled function mo

Hi...
2.....how to convert normal function module into remote enabled function module?
thanks and regards,
k.swaminath.

Hi,
In the attributes tab select radio button as remote enabled instead of normal..
u can call the remote enabled fm as...
CALL FUNCTION <Function module> destination <destination name>
Regards,
Nagaraj

Select option how to pass in Function Module

Similar Messages

Maybe you are looking for