Unable to send table to function module using RFC

Hi all,
I'm trying to send a table from XI to a function module using RFC. I tested the process first using indivdual parameters. At this point there were no problems. Now I changed the import parameter of
the FM into a table and imported the changes into XI. I changed the Message mapping and tested it with multiple records. When I run the process XI calls the FM but the FM doesn't receive any data. I tested this by puting a break-point in the FM. There are no errors in the XML Messages Monitor. I found this message in the Communication Channel Monitoring:
Short Log:
Server 0 10_39293 Receiver channel 'CC_BackendIn' for party '', service 'BS_Backend' (internal name 'RfcClient[CC_BackendIn]')
Client data: {jco.client.lang=EN, jco.client.snc_mode=0, jco.client.client=610, jco.client.passwd=******, jco.webas.ignore_jdsr_error=1, jco.client.user=Admin, jco.client.sysnr=10, jco.client.ashost=192.168.51.8}
Repository data: {jco.client.lang=EN, jco.client.snc_mode=0, jco.client.client=610, jco.client.passwd=******, jco.webas.ignore_jdsr_error=1, jco.client.user=Admin, jco.client.sysnr=10, jco.client.ashost=192.168.51.8}
Current pool size: 0, maximum pool size : 1
Channel History
- OK: 2009-02-18 01:35:14 CET: Message processed for interface MIIA_BapiIn
Any ideas?
Thanks for your help!
Regards,
Ivo van Ee

Hi everyone,
thanks for your prompt response! I tested the mapping in XI and didn't find any error here. So I concentrated on the receiver side. There were some communication channels running on the server that were generating errors. I stopped alle the communication channels and started just the two communication channels for this process. This time the table was successfully exported to the function module! Problem solved. Still not sure what caused the problem in the first place, but everything is working fine now.
Thanks for your help.
Regards,
Ivo

Similar Messages

What is the function module used to send an email

hi
what is the function module used to send an email

Hello,
Try this, It will help you. Sure.
Regards,
Rakesh.
CLASS cl_abap_char_utilities DEFINITION LOAD.
CONSTANTS:
con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.
TYPES: BEGIN OF typ_item,
         asno(10) TYPE c,
         matnr TYPE mseg-matnr,
         maktx TYPE makt-maktx,
         menge TYPE mseg-menge,
         meins TYPE mseg-meins,
         END OF typ_item.
DATA: wrk_menge(17) TYPE c.
DATA: sum_srno TYPE i VALUE 0.
DATA: wrk_srno TYPE n.
*Internal tables
DATA: it_std_objhdr TYPE TABLE OF solisti1.
DATA: it_std_objcnt TYPE TABLE OF solisti1.
DATA: it_std_rcvlst TYPE TABLE OF somlreci1.
DATA: it_std_objtxt TYPE TABLE OF solisti1..
DATA: it_std_objpack TYPE TABLE OF sopcklsti1 .
DATA: it_std_cntbin TYPE TABLE OF solisti1.
DATA: it_std_items TYPE TABLE OF typ_item.
DATA: is_items LIKE LINE OF it_std_items.
* DATA: it_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE.
* DATA: wa_attachment TYPE solisti1.
* Internal structures
DATA: is_docdata LIKE sodocchgi1.
DATA: is_objhdr LIKE LINE OF it_std_objhdr.
DATA: is_objcnt LIKE LINE OF it_std_objcnt.
DATA: is_rcvlst LIKE LINE OF it_std_rcvlst.
DATA: is_objtxt LIKE LINE OF it_std_objtxt.
DATA: is_objpack LIKE LINE OF it_std_objpack.
DATA: is_cntbin LIKE LINE OF it_std_cntbin.
*Work variables
DATA: wrk_lines TYPE i.
is_docdata-obj_descr = 'Movement of parts to processor'.
*Cover letter of the mail
is_objtxt = 'Dear Sir,'.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = ' '.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = text-001.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = text-002.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = text-003.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = ' '.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = 'Thanks n Regards,'.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = ' '.
APPEND is_objtxt TO it_std_objtxt.
is_objtxt = 'abc MOTORS'.
APPEND is_objtxt TO it_std_objtxt.
* Write Packing List (Main)
DESCRIBE TABLE it_std_objtxt LINES wrk_lines.
READ TABLE it_std_objtxt INTO is_objtxt INDEX wrk_lines.
is_docdata-doc_size = ( wrk_lines - 1 ) * 255 + STRLEN( is_objtxt ).
CLEAR is_objpack-transf_bin.
is_objpack-head_start = 1.
is_objpack-head_num   = 0.
is_objpack-body_start = 1.
is_objpack-body_num   = wrk_lines.
is_objpack-doc_type   = 'RAW'.
APPEND is_objpack TO it_std_objpack.
BREAK-POINT.
*loop for selecting the data into contents bin//// Excel.
CONCATENATE 'SRNO' 'ASN no:' 'PARTNO' 'PART DESCRIPTION'
              'QUANTITY' 'UNIT' INTO is_cntbin
SEPARATED BY con_tab.
CONCATENATE con_cret is_cntbin INTO is_cntbin.
APPEND is_cntbin TO it_std_cntbin.
LOOP AT it_std_items INTO is_items.
    sum_srno = sum_srno + 1.
    wrk_menge = is_items-menge.
    wrk_srno = sum_srno.
    CONCATENATE wrk_srno is_items-asno is_items-matnr is_items-maktx
    wrk_menge is_items-meins
    INTO is_cntbin SEPARATED BY con_tab.
    CONCATENATE con_cret is_cntbin INTO is_cntbin.
    APPEND is_cntbin TO it_std_cntbin.
ENDLOOP.
*To be implemented later
* CONCATENATE 'EBELN' 'EBELP' 'AEDAT' 'MATNR'
* INTO it_attach SEPARATED BY con_tab.
* CONCATENATE con_cret it_attach INTO it_attach.
* APPEND it_attach.
* LOOP AT it_ekpo INTO wa_charekpo.
*    CONCATENATE wa_charekpo-ebeln wa_charekpo-ebelp
*    wa_charekpo-aedat wa_charekpo-matnr
*    INTO it_attach SEPARATED BY con_tab.
*    CONCATENATE con_cret it_attach INTO it_attach.
*    APPEND it_attach.
* ENDLOOP.
*ENDFORM. " BUILD_XLS_DATA_TABLE
DESCRIBE TABLE it_std_cntbin LINES wrk_lines.
READ TABLE it_std_cntbin INTO is_cntbin INDEX wrk_lines.
is_objpack-doc_size   = ( wrk_lines - 1 ) * 255 +
                           STRLEN( is_cntbin ).
is_objpack-transf_bin = 'X'.
is_objpack-head_start = 1.
is_objpack-head_num   = 0.
is_objpack-body_start = 1.
is_objpack-body_num   = wrk_lines.
is_objpack-doc_type   = 'XLS'.
is_objpack-obj_name   = 'Document File'.
is_objpack-obj_descr = 'Document File'.
APPEND is_objpack TO it_std_objpack.
*Start of testing code
IF sy-uname = 'DEVELOPER'.
    is_rcvlst-receiver = sy-uname.
    is_rcvlst-rec_type = 'B'.
    is_rcvlst-express = 'X'.
    APPEND is_rcvlst TO it_std_rcvlst.
    CLEAR is_rcvlst.
ENDIF.
*End of testing code
*Creating the recepient list
is_rcvlst-receiver = '[email protected]'.
is_rcvlst-rec_type = 'U'.
is_rcvlst-express = 'X'.
is_rcvlst-com_type = 'INT'.
APPEND is_rcvlst TO it_std_rcvlst.
is_rcvlst-receiver = '[email protected]'.
is_rcvlst-copy     = 'X'.
is_rcvlst-rec_type = 'U'.
is_rcvlst-express = 'X'.
is_rcvlst-com_type = 'INT'.
APPEND is_rcvlst TO it_std_rcvlst.
BREAK-POINT.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data                    = is_docdata
   put_in_outbox                    = 'X'
   commit_work                      = 'X'
* IMPORTING
*   SENT_TO_ALL                      =
*   NEW_OBJECT_ID                    =
    TABLES
      packing_list                     = it_std_objpack
*   OBJECT_HEADER                    =
   contents_bin                     = it_std_cntbin
   contents_txt                     = it_std_objtxt
*   CONTENTS_HEX                     =
*   OBJECT_PARA                      =
*   OBJECT_PARB                      =
      receivers                        = it_std_rcvlst
* EXCEPTIONS
*   TOO_MANY_RECEIVERS               = 1
*   DOCUMENT_NOT_SENT                = 2
*   DOCUMENT_TYPE_NOT_EXIST          = 3
*   OPERATION_NO_AUTHORIZATION       = 4
*   PARAMETER_ERROR                  = 5
*   X_ERROR                          = 6
*   ENQUEUE_ERROR                    = 7
*   OTHERS                           = 8
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
COMMIT WORK.

Table to find out the function modules used in a particular program

Hi,
Is there any standard table to find out the function modules used in a particular program?
Such as there is a table D010TAB to find out the tables used in a program .

Hello
There is no exist such table.
But try this snippet:
REPORT ZSEARCH.
PARAMETERS: P_NAME LIKE D010SINF-PROG.
DATA: PROGTXT(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA: TMP(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA: FUNCT TYPE RS38L_FNAM OCCURS 0 WITH HEADER LINE.
DATA: INCL TYPE RSEUINC OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'RS_GET_ALL_INCLUDES'
     EXPORTING PROGRAM    = P_NAME
     TABLES    INCLUDETAB = INCL.
LOOP AT INCL.
READ REPORT INCL-MASTER INTO TMP.
APPEND LINES OF TMP TO PROGTXT.
REFRESH TMP.
ENDLOOP.
READ REPORT P_NAME INTO TMP.
APPEND LINES OF TMP TO PROGTXT.
LOOP AT PROGTXT.
IF PROGTXT CS 'CALL FUNCTION'.
    SEARCH PROGTXT FOR ''''.
    IF SY-SUBRC = 0.
      DO.
        SHIFT PROGTXT LEFT BY 1 PLACES.
        IF PROGTXT(1) = ''''.
          SHIFT PROGTXT LEFT BY 1 PLACES.
          DO.
            SHIFT PROGTXT RIGHT BY 1 PLACES.
            IF PROGTXT+71(1) = ''''.
              SHIFT PROGTXT RIGHT BY 1 PLACES.
              CONDENSE PROGTXT.
              FUNCT = PROGTXT. COLLECT FUNCT. EXIT.
            ENDIF.
          ENDDO.
          EXIT.
        ENDIF.
      ENDDO.
    ENDIF.
ENDIF.
ENDLOOP.
SORT FUNCT.
LOOP AT FUNCT.
WRITE: FUNCT. NEW-LINE.
ENDLOOP.

List of function module used for cluster table

hi,
I want to know the list of all function module used th extract data from cluster table such as such MONI, STXL.
thanks,
john dias

When inside SE11 for MONI, lets say, press the where-used list button and select the option for FUNCTION MODULE INTERFACES to see a list of FMs that take a structure of type MONI as input/output parameter. Although this will not give an exhaustive list of FMs, it will assist you to a good extent.
Additionally, you can try FM APPLICATION_DATA_GET.
For STXL, take a look at FM READ_TEXT and associated include file LSTXDUXX for more functions in this function group SAPLSTXD.
Regards
Message was edited by: Shehryar Khan
Message was edited by: Shehryar Khan

How to find function modules used in maintenance table views

Hi,
How do I find the function modules used in maintenance table views?
I'm using SM30 and trying to open the custom table but there is an error message saying CREATE DATA PROCESSING FUNCTION MODULE.
Thanks.
Kath

hi
in se80 select functon group and put your table function group name there and click display. it will show you the function modules used for that tables.
Regards
Madhu

Role of Changing & Tables in Functional Module Tab

Hi, Experts of Abap
Please tell me how Changing Tab & Tables Tab help us
IN ABAP DEVELOPMENT
thanks
Rajeev

Well, it sounds to me that these parameters are self explaining, but let me give a try anyway.
Changing: You can use this parameter to import some data into your functionmodule, change it and send it back to the caller. This way you don't need an import and export parameter.
Tables: In the early days, you could only transfer tabular data into a function module using the TABLES parameter. So instead of transferring (import and/or export) one record, you can now pass several records to the function module.
BTW: You could als use the F1 help for this, search on help.sap.com, or search SCN first, before even thinking about posting a standard question like this.

Function module to get the name of all the function module used

I want to populate a internal table with the name of all function module used in the submitted program?? Is there any function module which return the name of all the function module used?

Hi Priya
Try this one RPY_FUNCTIONMODULE_READ.
Ranga

Vendor-Customer balances in group currency-table/structure/function module?

Hi All,
Which table/structure/function module can be used to get balances for vendors and customers in group currency? We just wnat to extract balances in group currency so FBL1N and FBL5N are not options. Is there any SAP report which can provide these balances for both vendors and customers?
Thanks and regards,
Pinky

Hi Pinky,
I came across one report S_ALR_87012079 - Transaction Figures: Account Balance, Program RFSRRCUA, which extracts Account Balances of Vendor. Once the report is executed, you can do Currency Translation from one currency to different currencies. In the output screen, in the Top Menu, select 'Settings -> Currency' and you can convert to another currency. I am not sure, if this helps you. If this helps, kindly update your comments here.
Thank you.
Suresh Jayanthi.

Passing dynamic table to function module

Hi all,
actully i have to pass dynamic internal table from function module.
for that i use syntax
move <dyn_table> to data_tab.
but now my question is that in fm parameters what is the type spec & associated type for data_tab in fm parameters.
regards,
anuj

Hi
Good
Here is a simple example of passing an internal table "itab" to a function module "REUSE_ALV_LIST_DISPALY".
It displays the internal table data into a list format.
data : itab like ztest213 occurs 0 with header line.
tables : ztest213 .
select * from ztest213 into table itab.
loop at itab.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
i_structure_name = 'ztest213'
IS_LAYOUT =
IT_FIELDCAT =
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = itab
exceptions
program_error = 1
others = 2
if sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endloop.
Thanks
mrutyun^

How to find the names of Function Module used in the program

Hi all,
can you people help me with this issue.I want to the names of all the Function Module used in the program along with their parameters into an internal table.It will be helpful for your suggestions.
Kind Regards,
Edited by: Prasenjit Sengupta on Nov 20, 2008 7:39 AM

Take structure of internal table as
TYPES : BEGIN OF TY_FM,
        FUNCNAME TYPE RS38L_FNAM, "Name of Function Module
        PARAMETER TYPE RS38L_PAR_, "Parameter name
        PARAMTYPE TYPE RS38L_KIND, " Parameter type
        R3STATE TYPE R3STATE,      "ABAP: Program Status (Active, Saved, Transported...)
        STRUCTURE TYPE RS38L_TYP, "Associated Type of an Interface Parameter
        DEFAULTVAL TYPE RS38L_DEFO,"Default value for import parameter
        REFERENCE TYPE RS38L_REFE, "Call by reference
        OPTIONAL TYPE RS38L_OPTI, "Optional parameters
        TYPE TYPE RS38L_TYPE,      "Reference Structure is an ABAP/4 Type
        END OF TY_FM.
DATA : IT_FM TYPE TABLE OF TY_FM WITH HEADER LINE.

WOrkflow related table and zfunction modules used in a particular workflow

hi gurus,
we need to develop a tool to findout the custom WF, custom BOR and workflow related Zfunction modules used in a particular workflows in the client system.
Eg-
I have a custom workflow i need to find the list of all zfunction modules , z includes used in that Workflow.
please suggest us the table names which stores ZFunction module or z includes used in particular workflow
Regards,
Hari

The only way to do this is to read through the source code of all the objects accessed within workflow and look for the relevant ABAP statements that access Z tables or function modules.
[This wiki|https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/utilitytosearchABAPsourcecodeandTextelementsfora+string] should get you started on that part.
As far as the objects are concerned, this is another story altogether. Something as simple as using an SAP standard object attribute in work item text could actually be a delegated subtypes with a redefined virtual attribute.
So you need to scan everything: all tasks in a workflow and methods, as well as all container elements of each step. You will also need to navigate the object hierarchy to deal with delegation and subtypes. Then you need to consider propagation, what about Zfunction modules called by Zfunction modules in workflow? What if the method submits a report - you would need to scan that report and everything else that it calls and so on.
This could be a fiendish challenge but sounds like a fun project. Good luck!

Which are function modules used to convert into XML format in SAP 4.6c Ver

which are function modules used to convert into XML format in SAP 4.6c Ver

Hi,
check this program , I think this will help you
TYPE-POOLS: ixml.
TYPES: BEGIN OF xml_line,
data(256) TYPE x,
END OF xml_line.
data : itab like catsdb occurs 100 with header line.
data : file_location type STRING.
data : file_name like sy-datum.
data : file_create type STRING.
file_name = sy-datum .
file_location = 'C:\xml\'.
concatenate file_location file_name into file_create.
concatenate file_create '.XML' into file_create.
DATA: l_xml_table TYPE TABLE OF xml_line,
l_xml_size TYPE i,
l_rc TYPE i.
select * from catsdb into table itab.
append itab .
CALL FUNCTION 'SAP_CONVERT_TO_XML_FORMAT'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '
I_XML_DOC_NAME =
IMPORTING
PE_BIN_FILESIZE = l_xml_size
TABLES
i_tab_sap_data = itab
CHANGING
I_TAB_CONVERTED_DATA = l_xml_table
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 24
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
bin_filesize = l_xml_size
filename = file_create
filetype = 'BIN'
CHANGING
data_tab = l_xml_table
EXCEPTIONS
OTHERS = 24.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
write : 'INTERNAL TABLE DATA IS SUCCESSFULLY DOWNLOADED TO LOCATION', file_create .
Thanks.

Exporting Custom table through function module

<b>How can i Export Custom table through function module.</b> when we add some table in the function module table tab it asks for a ref. table which is some table in database .. but i want to add some custom table with some user defined column names..how can i do this
<b>n plz tell me how to loop thru select options</b>
i have to loop thru select option and assign all the values to a variable.
plz help me out
Message was edited by:
Karan Chopra

Hi Karan,
Do one thing, Just in the tables tab give the name of the table and don't write anything else. no TYPE and no ANY.
Hope it will resolve issue.
reward points if useful.
Regards,
Atish

What are the function modules used in CRM_ORDER_STATUS

Hi,
what are the function modules used in CRM_ORDER_STATUS(BADI) IN THIS METHOD AFTER_CHANGE...

Hi,
http://scn.sap.com/thread/3202739
AFTER_CHANGE
ABAP ABAP Code
Follow-Up Action After Status Change
BEFORE_CHANGE
ABAP ABAP Code
Checks for Status Changeability
Sample code to set date on status change ------
INCLUDE crm_direct.
   DATA : ls_status       TYPE crmt_status_wrk.
   DATA : lv_process_type TYPE crmt_process_type.
   DATA : lit_appointment TYPE crmt_appointment_wrkt.
   DATA : wa_appointment TYPE crmt_appointment_wrk.
   DATA : ls_appoint      TYPE crmt_appointment_com.
   DATA : lt_appoint      TYPE crmt_appointment_comt.
   DATA : ls_input_field TYPE crmt_input_field.
   DATA : lt_input_field TYPE crmt_input_field_tab.
   DATA : ls_fieldnames   TYPE crmt_input_field_names.
   DATA : lt_fieldnames   TYPE crmt_input_field_names_tab.
   DATA : lt_exception    TYPE crmt_exception_t.
   DATA : lv_timestamp    TYPE sc_tstfro.
   DATA : lt_header_guid TYPE crmt_object_guid_tab.
   DATA : lt_req_objects TYPE crmt_object_name_tab.
   ls_status = is_status_wrk.
*Get process type
   CALL FUNCTION 'CRM_INTLAY_GET_PROCESS_TYPE'
     EXPORTING
       iv_orderadm_h_guid = ls_status-guid
     IMPORTING
       ev_process_type    = lv_process_type.
* Check process type
   IF lv_process_type = 'ZZZ'.
     INSERT ls_status-guid INTO TABLE lt_header_guid.
     INSERT gc_object_name-appointment INTO TABLE lt_req_objects.
**Get appoinment data
     CALL FUNCTION 'CRM_ORDER_READ'
       EXPORTING
         it_header_guid            = lt_header_guid
         iv_mode                     = gc_mode-display
         it_requested_objects   = lt_req_objects
       IMPORTING
         et_appointment       = lit_appointment
       EXCEPTIONS
         document_not_found   = 1
         error_occurred       = 2
         document_locked      = 3
         no_change_authority = 4
         no_display_authority = 5
         no_change_allowed    = 6
         OTHERS               = 7.
     IF sy-subrc NE 0.
       EXIT.
     ENDIF.
*read item level data
     READ TABLE lit_appointment INTO wa_appointment WITH KEY ref_kind = 'B'.
     IF sy-subrc = 0.
*      *Time-stamp set to as per current date and time.
       CONVERT DATE sy-datum TIME sy-uzeit INTO TIME STAMP lv_timestamp
         TIME ZONE sy-zonlo.
*Fill appoinment structure
       ls_appoint-ref_guid = wa_appointment-ref_guid."appoinment gid
       ls_appoint-ref_kind = 'B'."Item
       ls_appoint-ref_handle = '0000000000'.
       ls_appoint-appt_type = 'ZSERV_CLOSE'."c_appt_type .
       ls_appoint-timestamp_from = lv_timestamp.
       ls_appoint-timezone_from   = 'GMTUK'."time zone
       ls_appoint-mode = ''.
       ls_appoint-rule_name   = 'TODAY'.
       INSERT ls_appoint INTO TABLE lt_appoint.
       ls_input_field-ref_guid = wa_appointment-ref_guid.
       ls_input_field-ref_kind = 'B'.
       ls_input_field-objectname = 'APPOINTMENT'.
       ls_input_field-logical_key = 'ZSTATUS_NEW'.
*Fill input fields
       ls_fieldnames-fieldname = 'TIMESTAMP_FROM'.
       INSERT ls_fieldnames INTO TABLE ls_input_field-field_names.
       INSERT ls_input_field INTO TABLE lt_input_field.
       CLEAR lt_fieldnames[].CLEAR ls_fieldnames. CLEAR ls_input_field.
*To update date
       CALL FUNCTION 'CRM_APPT_MAINTAIN_MULTI_OW'
         EXPORTING
           iv_ref_guid        = wa_appointment-ref_guid
           iv_ref_kind        = 'B'
           it_appointment_com = lt_appoint
         CHANGING
           ct_input_fields    = lt_input_field
         EXCEPTIONS
           OTHERS             = 1.
     ENDIF.
   ENDIF.
Standard BADI Order_Save will take care to save into database.
Regards,
Sumeet

What are the function modules used in interactive ALV and parameters?

what are the function modules used in interactive ALV and parameters?

hi sunil
check these links,
About ALV:
http://www.geocities.com/mpioud/Abap_programs.html
ALV Group Heading
http://www.sap-img.com/fu037.htm
and few more,
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
also run the folowing code and see
check this sample code.you will be well versed with all the events of a interactive alv report.mark points if useful.
*& Report ZALV4_INTERACTIVE *
*& interactive alvs *
REPORT ZALV4_INTERACTIVE NO STANDARD PAGE HEADING
MESSAGE-ID ZMSG
LINE-COUNT 37(3)
LINE-SIZE 134.
TYPE-POOLS : SLIS.
TABLES DECLARATION ********************
TABLES : VBRK, " BILLING MASTERS TABLE
VBRP. " BILLING ITEM TABLE
TYPES DECLARATION ********************
TYPES : BEGIN OF TY_VBRK, " types for billing masters table
VBELN TYPE VBRK-VBELN, " billing document
WAERK TYPE VBRK-WAERK, " document currency
VKORG TYPE VBRK-VKORG, " sales organization
FKDAT TYPE VBRK-FKDAT, " billing date
BUKRS TYPE VBRK-BUKRS, " company code
BUTXT TYPE T001-BUTXT, " company name
NETWR TYPE VBRK-NETWR, " net currency value
LINE_COLOR(4) TYPE C,
END OF TY_VBRK.
TYPES : BEGIN OF TY_VBRP, " types for billing document item data
POSNR TYPE VBRP-POSNR, " billing item
FKIMG TYPE VBRP-FKIMG, " actual invoiced quantitty
VRKME TYPE VBRP-VRKME, " sales unit
NETWR TYPE VBRP-NETWR, " net currency value
MATNR TYPE VBRP-MATNR, " material number
ARKTX TYPE VBRP-ARKTX, " short text for sales order item
END OF TY_VBRP.
FIELD CATALOG ********************
DATA : WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.
LAYOUT DECLARATION ********************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
WA_LAYOUT1 TYPE SLIS_LAYOUT_ALV.
EVENTS DECLARATION ********************
DATA : TY_EVENTS TYPE SLIS_ALV_EVENT,
IT_EVENTS TYPE SLIS_T_EVENT.
PF STATUS ********************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
USER COMMAND ********************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
R_UCOMM LIKE SY-UCOMM.
INTERNAL TABLES ********************
DATA : IT_VBRK TYPE TABLE OF TY_VBRK, "internal table for billing master
IT_VBRP TYPE TABLE OF TY_VBRP, "internal table for billing item
*internal table for field catalog
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.
WORK AREA ********************
DATA : WA_VBRK LIKE LINE OF IT_VBRK, "work area for billing master
WA_VBRP LIKE LINE OF IT_VBRP. "work area for billing item
VARIABLE DECLARATION ********************
DATA : V_DATE TYPE SY-DATUM, " variable to store date values
V_VBELN TYPE VBRK-VBELN, " variable for billing document
V_FKDAT TYPE VBRK-FKDAT, " variable for billing date
V_FLAG(1). " variable for flag
SELECTION SCREEN ********************
SELECT-OPTIONS : S_VBELN FOR VBRK-VBELN , " Billing document
S_FKDAT FOR VBRK-FKDAT, " Billing date
S_MATNR FOR VBRP-MATNR. " Material number
PARAMETERS : R1 RADIOBUTTON GROUP G1, "whole item details
R2 RADIOBUTTON GROUP G1. "selected item details
INITIALIZATION ********************
INITIALIZATION.
V_FLAG = 'X'.
V_DATE = SY-DATUM - 20.
S_FKDAT-SIGN = 'I'.
S_FKDAT-OPTION = 'EQ'.
S_FKDAT-LOW = V_DATE.
S_FKDAT-HIGH = SY-DATUM.
APPEND S_FKDAT.
SELECTION SCREEN VALIDATION ********************
AT SELECTION-SCREEN.
PERFORM CONVERSION. " performs data conversion for input
PERFORM VBELN_VALIDATE. " validating the billing document
PERFORM FKDAT_VALIDATE. " validating the billing date
START OF SELECTION ********************
START-OF-SELECTION.
SET TITLEBAR 'AAAA'.
PERFORM VBRK_POPULATE. " populating the billing master detais
PERFORM FIELDCATALOG. " designing the field catalog
PERFORM EVENTS. " performing the events for top of page
PERFORM DISP_BASICLIST." displaying the basic list
*& Form VBELN_VALIDATE
text validating the billing document
--> p1 text
<-- p2 text
FORM VBELN_VALIDATE .
IF S_VBELN IS INITIAL.
MESSAGE E000 WITH 'Make entries in all required fields'.
ELSE.
SELECT SINGLE VBELN
FROM VBRK
INTO V_VBELN
WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE I000 WITH 'BILLING DOCUMENT DOESNT EXIST'.
ENDIF.
ENDIF.
ENDFORM. " VBELN_VALIDATE
*& Form FKDAT_VALIDATE
text validating the billing date
--> p1 text
<-- p2 text
FORM FKDAT_VALIDATE .
SELECT SINGLE FKDAT
FROM VBRK
INTO V_FKDAT
WHERE FKDAT IN S_FKDAT.
IF SY-SUBRC <> 0.
MESSAGE I000 WITH 'BILLING DATE DOESNT EXIST'.
ENDIF.
ENDFORM. " FKDAT_VALIDATE
*& Form VBRK_POPULATE
text populating the billing master details
--> p1 text
<-- p2 text
FORM VBRK_POPULATE .
DATA : LD_COLOR(1) TYPE C.
LD_COLOR = 5.
SELECT VBRK~VBELN
VBRK~WAERK
VBRK~VKORG
VBRK~FKDAT
VBRK~BUKRS
VBRK~NETWR
T001~BUTXT
FROM VBRK INNER JOIN T001
ON VBRKBUKRS = T001BUKRS
INTO CORRESPONDING FIELDS OF TABLE IT_VBRK
WHERE VBRK~VBELN IN S_VBELN AND
VBRK~FKDAT IN S_FKDAT.
LOOP AT IT_VBRK INTO WA_VBRK.
LD_COLOR = LD_COLOR + 1.
IF LD_COLOR = 8.
LD_COLOR = 1.
ENDIF.
CONCATENATE 'C' LD_COLOR '10' INTO WA_VBRK-LINE_COLOR.
MODIFY IT_VBRK FROM WA_VBRK.
ENDLOOP.
ENDFORM. " VBRK_POPULATE
*& Form CONVERSION
text data conversion to take leading zeroes into account
--> p1 text
<-- p2 text
FORM CONVERSION .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = S_VBELN
IMPORTING
OUTPUT = S_VBELN.
ENDFORM. " CONVERSION
*& Form DISP_BASICLIST
text displaying the basic list
--> p1 text
<-- p2 text
FORM DISP_BASICLIST .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = PF_STATUS
I_CALLBACK_USER_COMMAND = USER_COMMAND
I_STRUCTURE_NAME =
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'X'
IS_VARIANT =
IT_EVENTS = IT_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_VBRK
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " DISP_BASICLIST
*& Form FIELDCATALOG
text designing the field catalog
--> p1 text
<-- p2 text
FORM FIELDCATALOG .
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_L = 'BILLING DOCUMENT'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-EMPHASIZE = 'C610'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'WAERK'.
WA_FIELDCAT-SELTEXT_L = 'DOCUMENT CURRENCY'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'VKORG'.
WA_FIELDCAT-SELTEXT_L = 'SALES ORGANIZATION'.
WA_FIELDCAT-EMPHASIZE = 'C610'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'FKDAT'.
WA_FIELDCAT-SELTEXT_L = 'BILLING DATE'.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_L = 'COMPANY CODE'.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'BUTXT'.
WA_FIELDCAT-SELTEXT_L = 'COMPANY NAME'.
WA_FIELDCAT-COL_POS = 6.
WA_FIELDCAT-OUTPUTLEN = 25.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBRK'.
WA_FIELDCAT-FIELDNAME = 'NETWR'.
WA_FIELDCAT-SELTEXT_L = 'NET CURRENCY VALUE'.
WA_FIELDCAT-COL_POS = 7.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_LAYOUT-ZEBRA = 'X'.
WA_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM. " FIELDCATALOG
*& Form SET_PF_STATUS
text set the pf status
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50658_PFSTATUS' EXCLUDING EXTAB.
ENDFORM. "SET_PF_STATUS
*& Form SET_USER_COMMAND
text set the user command
FORM SET_USER_COMMAND USING R_UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN 'CLICK'.
IF R1 = 'X'.
IF NOT IT_VBRK IS INITIAL.
SELECT POSNR
FKIMG
VRKME
NETWR
MATNR
ARKTX
FROM VBRP
INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
FOR ALL ENTRIES IN IT_VBRK
WHERE VBELN = IT_VBRK-VBELN.
IF SY-SUBRC <> 0.
MESSAGE I000 WITH ' NO BILLING DETAILS FOUND'.
ELSE.
IF V_FLAG = 'X'.
PERFORM DET_FIELDCATALOG.
V_FLAG = ''.
ENDIF.
PERFORM DET_LISTDISPLAY.
ENDIF.
ENDIF.
ENDIF.
IF R2 = 'X'.
READ TABLE IT_VBRK INTO WA_VBRK INDEX RS_SELFIELD-TABINDEX.
IF SY-SUBRC = 0.
SELECT SINGLE POSNR
FKIMG
VRKME
NETWR
MATNR
ARKTX
FROM VBRP
INTO CORRESPONDING FIELDS OF WA_VBRP
WHERE VBELN = WA_VBRK-VBELN.
ENDIF.
APPEND WA_VBRP TO IT_VBRP.
ENDIF.
IF V_FLAG = 'X'.
PERFORM DET_FIELDCATALOG. "designing the field catalog for items
V_FLAG = ''.
ENDIF.
PERFORM DET_LISTDISPLAY. "displaying the secondary list
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'UP'.
LEAVE TO SCREEN 0.
WHEN 'CANCEL'.
CALL TRANSACTION 'SE38'.
ENDCASE.
ENDFORM. "SET_USER_COMMAND
*& Form DET_FIELDCATALOG
text designing the field catalog for item details
--> p1 text
<-- p2 text
FORM DET_FIELDCATALOG .
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'POSNR'.
WA_FIELDCAT1-SELTEXT_L = 'BILLING ITEM'.
WA_FIELDCAT1-COL_POS = 1.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'FKIMG'.
WA_FIELDCAT1-SELTEXT_L = 'INVOICE QUANTITY'.
WA_FIELDCAT1-COL_POS = 2.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'VRKME'.
WA_FIELDCAT1-SELTEXT_L = 'SALES UNIT'.
WA_FIELDCAT1-COL_POS = 3.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'NETWR'.
WA_FIELDCAT1-SELTEXT_L = 'NET CURRENCY VALUE'.
WA_FIELDCAT1-COL_POS = 4.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'MATNR'.
WA_FIELDCAT1-SELTEXT_L = 'MATERIAL NUMBER'.
WA_FIELDCAT1-COL_POS = 5.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-TABNAME = 'IT_VBRP'.
WA_FIELDCAT1-FIELDNAME = 'ARKTX'.
WA_FIELDCAT1-SELTEXT_L = 'SALES ORDER ITEM'.
WA_FIELDCAT1-COL_POS = 6.
WA_FIELDCAT1-OUTPUTLEN = 20.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_LAYOUT1-ZEBRA = 'X'.
ENDFORM. " DET_FIELDCATALOG
*& Form DET_LISTDISPLAY
text displaying the secondary list
--> p1 text
<-- p2 text
FORM DET_LISTDISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT = WA_LAYOUT1
IT_FIELDCAT = IT_FIELDCAT1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = IT_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_VBRP
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR IT_VBRP[].
ENDFORM. " DET_LISTDISPLAY
*& Form EVENTS
text
--> p1 text
<-- p2 text
FORM EVENTS .
CLEAR TY_EVENTS.
TY_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
TY_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND TY_EVENTS TO IT_EVENTS.
ENDFORM. " EVENTS
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
SKIP.
ULINE.
WRITE :/2 ' DATE :', SY-DATUM,
45 'INTELLIGROUP ASIA PVT LTD',
110 'TIME :', SY-UZEIT.
WRITE : /3 'USER :', SY-UNAME,
45 'TITLE :', SY-TITLE,
110 'PAGE :', SY-PAGNO.
ULINE.
SKIP.
ENDFORM. "TOP_OF_PAGE
Cheers
navjot
Reward with points if it is helpful
Message was edited by:
navjot sharma

Unable to send table to function module using RFC

Similar Messages

Maybe you are looking for