Issue Related to BDC Program against Recording

Hi,
I have a issue related to BDC Programming.
Here My Transaction is related to VX22.
First I did Recording[SHDB] for This Transaction[VX22].
Then I had added same code from Recording[SHDB] in my Program.
The Transaction which was going through SHDB Correctly, Not Working from My Program.
Can any body tell me the Reason for this.
I am adding SHDB[Recording] as well as Programming Code out here for checking.
If anybody knows the diffrence please reply me.
SHDB - RECORDING
 PERFORM bdc_dynpro USING 'SAPMV52G' '0100'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RV52G-SELKZ'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'VBAK-VBELN'
 record-vbeln_001.
 PERFORM bdc_field USING 'RV52G-SELKZ'
 record-selkz_002. " space
 PERFORM bdc_dynpro USING 'SAPLV52E' '0500'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RV52G-SELKZ(02)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=DETA'.
 PERFORM bdc_field USING 'RV52G-SELKZ(02)'
 record-selkz_02_003.
 PERFORM bdc_dynpro USING 'SAPLV52E' '0520'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'VBEX-MODCO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'VBEX-ALNUM'
 record-alnum_004. "Space
 PERFORM bdc_field USING 'VBEX-EMBGR'
 record-embgr_005. "Space
 PERFORM bdc_field USING 'VBEX-GENNR'
 record-gennr_006. "Space
 PERFORM bdc_field USING 'VBEX-MODCO'
 record-modco_007. "Space
 PERFORM bdc_dynpro USING 'SAPLV52E' '0520'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'VBEX-MODCO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BACK'.
 PERFORM bdc_field USING 'VBEX-GENNR'
 record-gennr_008. "Value passed
 PERFORM bdc_field USING 'VBEX-MODCO'
 record-modco_009. "Value Passed
 PERFORM bdc_dynpro USING 'SAPLV52E' '0500'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 '*VBEX-VBELN'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=SICH'.
 PERFORM bdc_transaction USING 'VX22'.
In Program Code Added:
 CLEAR v_line_item.
PERFORM f_bdc_dynpro USING 'SAPMV52G' '0100'.
PERFORM f_bdc_field USING 'BDC_CURSOR'
 'RV52G-SELKZ'.
PERFORM f_bdc_field USING 'BDC_OKCODE'
 '/00'.
PERFORM f_bdc_field USING 'VBAK-VBELN'
 i_data-vbeln.
PERFORM f_bdc_field USING 'RV52G-SELKZ'
 v_space.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = i_data-sno
 IMPORTING
 output = i_data-sno.
SHIFT i_data-sno LEFT DELETING LEADING space.
CONCATENATE c_line i_data-sno c_cl_b INTO v_line_item.
PERFORM f_bdc_dynpro USING 'SAPLV52E' '0500'.
PERFORM f_bdc_field USING 'BDC_CURSOR'
 v_line_item.
PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=DETA'.
PERFORM f_bdc_field USING v_line_item
 c_x.
PERFORM f_bdc_dynpro USING 'SAPLV52E' '0520'.
PERFORM f_bdc_field USING 'BDC_CURSOR'
 'VBEX-MODCO'.
PERFORM f_bdc_field USING 'BDC_OKCODE'
 '/00'.
PERFORM f_bdc_field USING 'VBEX-ALNUM'
 v_space.
PERFORM f_bdc_field USING 'VBEX-EMBGR'
 v_space.
PERFORM f_bdc_field USING 'VBEX-GENNR'
 v_space.
PERFORM f_bdc_field USING 'VBEX-MODCO'
 v_space.
PERFORM f_bdc_dynpro USING 'SAPLV52E' '0520'.
PERFORM f_bdc_field USING 'BDC_CURSOR'
 'VBEX-MODCO'.
PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=BACK'.
PERFORM f_bdc_field USING 'VBEX-GENNR'
 i_data-gennr.
PERFORM f_bdc_field USING 'VBEX-MODCO'
 'A'.
PERFORM f_bdc_dynpro USING 'SAPLV52E' '0500'.
PERFORM f_bdc_field USING 'BDC_CURSOR'
 '*VBEX-VBELN'.
PERFORM f_bdc_field USING 'BDC_OKCODE'
 '=SICH'.
PERFORM f_bdc_call_transaction USING 'VX22'.
Can Anybody tell me the Diffrence B/N Recording and Program.
only v_line_item is added extra in program to find out specific line item and select that line item that is working Correctly.
Issue#1
The issues in above come in first Initial Screen[100] Where i need to Remove Check for 'RV52G-SELKZ' that is first thing that is not happening.
Next it woking correctly for 500 Screen [By Selecting Correct line item and then Details for it].
Issue#2
Then it is going to Screen 502 where first it need to clear all the enabled field i passed space to them. but still it is showing values in all fields. After Clearing i should Re-Add 2 fields among Those fields.
Then other things will happen.
Can anybody tell me what is reason in program code is not working - I had tried in all 'A/E/N' Modes but it's not working!
If anybody knows reason please help me out.
One More thing i had tried by making PARAMETER ID'S of few fields BLANK. But by this way also it is not working.
 SET PARAMETER ID 'ALN' FIELD v_space.
SET PARAMETER ID 'EMB' FIELD v_space.
SET PARAMETER ID 'GNR' FIELD v_space.
Can anybody give me the solution.
Thanks in advance.
Thanks & Regards,
Prasad.

Hi,
I had tried in Ravi's way also.
I will explain the process once more.
It's a DE-Assign Process - Main purpose is to make the External Licence number blank.
For that process is as follows:
First user will Trigger VX22 transaction,
In the initial screen 100 he will give Sales Order Number[VBELN] then remove Check Box against Blocked Items(Legal Control) Then Press Enter.
It will take user to Change Licen Data [500] Screen.
There from the line items he will select specific line item which is already filled in with ASSIGN process.
He will select check box against that Line item then will hit on Details[F2] from the Tool Bar.
It will take user to 502 screen There he will be deleting all the data in change mode one by one in order of Exp.Ctrl.Class, Grouping, License Number, Change ID Then he will hit on enter then by that Ext.License No which is in display mode - value against that field will get deleted.
Then he will again provide License Number, Change ID and then hit Enter, Enter, Then Back Button then it will take us back to previous screen [500] there he will hit on SAVE button. Then Order will be saved.
ABove is the actual process.
Anybody having the solution for above as BDC is initially not making screen fields blank initially.
how we can do this by SET PARAMETER ID's.
Thanks & Regards,
Prasad.

Similar Messages

BDC Program with recording

Hi All,
I have a requirement to create a bdc program for asset creation with recording. Any have this, please send the step-by-step procedure.
I am very thankful to you in advance.
Thanks,
Nagarjuna.

HI Nagarjuna,
Step by Step approach to ceate simple BDC session program using reusable template.
Batch Data Communication is one of the vital data upload / transaction automation option in many SAP components . I am suggesting here a way out to simplify the programming for a BDC application . It utilizes a template program and gives steps to use it to create your own BDC program on the fly.
This step by step approach can be used to create a Simple BDC program i.e for a transaction which does not have any table control / looping at screen table. The same can also be enhanced to develop a program for transactions involving table controls .
1. Create a new program as executable program using SE38 transaction code.
2. Copy the following template code into your program .
---- Start of Template -
REPORT
NO STANDARD PAGE HEADING
LINE-SIZE 200
LINE-COUNT 300.
*-- DATA DECLARATION--
*---Types
DATA : BEGIN OF t_upload,
FIELD1(10),
FIELD2(2),
FIELD3(18),
FIELD4(35),
END OF t_upload.
*--- Tables
DATA : BEGIN OF i_bdcdata OCCURS 0."to hold the transaction record
INCLUDE STRUCTURE bdcdata.
DATA: END OF i_bdcdata.
DATA: i_upload LIKE STANDARD TABLE OF t_upload," to hold file data.
i_upload1 LIKE STANDARD TABLE OF t_upload." to hold file data.
*--- Work Areas
DATA: wa_upload2 LIKE t_upload,
wa_upload LIKE t_upload,
wa_upload1 LIKE t_upload.
*--- Variables
DATA: v_count1(4) TYPE n,
v_error TYPE c,
v_session(12),
v_field(21) TYPE c,
v_message(60) type 'C'.
*--Constants
DATA: c_open TYPE c VALUE '(',
c_close TYPE c VALUE ')',
c_x TYPE c VALUE 'X'.
*---Initialisation
initialization.
refresh : i_upload , i_upload1 ,i_bdcdata.
-------Selection Screen Design -
*Selection screen for input of upload file address
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
---AT SELECTION SCREEN -
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*--For popup to select file.
PERFORM give_help.
-----START OF SELECTION -
START-OF-SELECTION.
*--Data upload using WS_Upload.
PERFORM get_data.
*-- OPEN SESSION
PERFORM open_group.
*--Insert transactions using BDCDATA table in the session.
PERFORM do_transaction .
*-- Close the session.
PERFORM close_group.
END-OF-SELECTION.
*& Form f_get_data
For data upload from external file.
FORM get_data.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = p_file
filetype = 'DAT'
TABLES
data_tab = i_upload
EXCEPTIONS
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
DELETE I_UPLOAD INDEX 1.
ENDIF.
ENDFORM. " f_get_data
*& Form F_open_group
To open session in session management.
FORM open_group.
v_session = 'TCODE'.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
client = sy-mandt
group = v_session
user = sy-uname
keep = 'X'.
ENDFORM. " F_open_group
*& Form f_do_transaction
Insert transactions in session after passing values to BDCDATA
FORM do_transaction.
LOOP AT i_upload INTO wa_upload .
*---- insert your generated codes from recording at SHDB here
*----- insertion ends
perform bdc_transaction using 'TCODE'.
REFRESH : I_BDCDATA.
CLEAR : WA_UPLOAD.
ENDIF.
ENDLOOP.
ENDFORM. " f_do_transaction
*& Form bdc_dynpro
For appending screen details to BDCDATA
FORM bdc_dynpro USING program dynpro.
CLEAR i_bdcdata.
i_bdcdata-program = program.
i_bdcdata-dynpro = dynpro.
i_bdcdata-dynbegin = 'X'.
APPEND i_bdcdata.
CLEAR i_bdcdata.
ENDFORM. "bdc_dynpro
*& Form bdc_field
For appending field details to bdcdata table
FORM bdc_field USING fnam fval.
CLEAR i_bdcdata.
i_bdcdata-fnam = fnam.
i_bdcdata-fval = fval.
APPEND i_bdcdata.
CLEAR i_bdcdata.
ENDFORM. " bdc_field
*& Form bdc_transaction
For inserting Transaction in the session
FORM bdc_transaction USING tcode.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = tcode
TABLES
dynprotab = i_bdcdata.
ENDFORM. " bdc_transaction
*& Form F_close_group
For closing the session created in Session manager SM35
FORM close_group.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
concatenate 'Session ' v_session 'successfully created' into v_field.
MESSAGE v_field type 'I'..
CALL TRANSACTION 'SM35'.
ENDFORM. "f_close_group
*& Form f_give_help
For user help to select file
FORM give_help.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',.,..'
mode = 'O'
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0 AND NOT sy-msgty IS INITIAL.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f_give_help
---- End of Template -
3.Go to the transaction SHDB in another session ( you can also give TCODE - OSHDB in transaction code window and hit enter ).
4.Create you transaction recording in SHDB . Ensure your transaction recording takes care of input values to all the
fields to which you intend to pass values in the BDC.
5.Once your recording is done correctly create the program from recording in the SHDB transction . You will find the button to create program in SHDB . Choose the option of creating from file when you proceed through the subsequent steps.
6. Define data type t_upload and structure wa_upload in the template program with fields of structure 'RECORD' from the program generated using SHDB recording ( replace the field1, field2 and so on as per your requirement). For your understanding you can remove the suffixes to the
field name but keep the field size unchanged.
7.Copy the coding existing between 'do' and 'enddo' statement from the generated program . Insert the copied code between the loop and endloop code of form 'Do_transaction '. Replace fields of structure 'RECORD' with respective fields of structure wa_upload.Insert constant values wherever possible in transaction recording.You can also handle customised data conversions here.
8.Replace 'TCODE' in the template program with the transaction code you intend to process in this BDC.
9.Please carry out further syntax check and resolve the related issues.
This program will provide for input help to select upload file from local machine. The file needs to be in Tab delimited format and is assumed to have first row as column headers .
On successful creation of session you will be prompted with a Information popup giving the name of session ,and will take you to the SM35 transaction to process your session.
thanks
karthik

Issue in CO01 BDC program

Hi All,
    We have a program for creating Production Order in BDC , But In Some scenario where material requires external processing it is going to PR creation screen where it looks for Two mandatory field Requisitioner and Tracking No. And Since this PR Screen comes after an error , BDC losses the screen control.
   Please let me know if someone can help me out with this issue .
Thanks
Ajay

Hi Arbind,
   Yes Initially i thought problem may be lying there . But the fact is when i Enter the Quanity , start and end date and hit enter it goes to Purchase Requisition Screen with an error message for the mandatory fields . And since these fields are not part of CO01 screen I cant enter it in CO01 , but to wait for the screen for PR And which comes with an error . And because there is error BDC losses control to this and transaction fails .
Regards
Ajay

Issue related Cisco Unified meeting Place recording

Hi All
Need help to resolve this issue
One of our user reported Wher he start listen his recorded meeting first 11:50 minute is empty after that recording start.
So my question is Why first 11:50 minute is empty (or dead space) of recorded meeting.
Meeting place system version is 7.1.2
Thanks
Rahul

Hi Anand,
For MP 8.5 new setup, you don't need a web server. Web server is an optional component only when you are upgrading the system from earlier MP releases.
If you are installing Webex node, it needs to be on a seperate MCS server (however, this is an optional component).
Application server and Express Media Server require only one UCS server if this is single node deployment.
Hardware requirements for application server and Webex node can be found in the following documents:
http://docwiki.cisco.com/wiki/Cisco_Unified_MeetingPlace_Release_8.5_--_Hardware_Requirements#Application_Server_Requirements
http://docwiki.cisco.com/wiki/Cisco_Unified_MeetingPlace_Release_8.5_--_Hardware_Requirements#Cisco_WebEx_Node_Requirements
The complete information about MP 8.5 requirements:
http://docwiki.cisco.com/wiki/Category:Planning_for_Cisco_Unified_MeetingPlace_Release_8.5
HTH,
Natasa

Issue related to BDC for ME52

Hi,
I'm trying to create a BDC for ME52 by SHDB transaction. My requirement is to delete Service Items of a specific Purchase Requisition Item.
I've noticed that the behavior of the ME52 by using SHDB is not the same regarding its direct execution. The called screens is different.
Does anyone know why does that happen?
Thanks in advance,
Tiago.

Hi,
When SHDB record is created, it's displayed the option "No BI mode". When that option is chosen, the sequence of the necessary screens to delete the service items is run, but the bdc mapping generated is quite strange. FVAL fields are filled with subscreen names only.
When ME52 is executed, the sequence of the screens is: 1) Purchase Requisition Number, 2) Purchase Requisition Items and 3) Service Items. From this one it's only necessary to click on the Button ' - ' to delete the service item. However, when I try to do it by SHDB, The button ' - ' calls another screen.
Any help is welcome.
Thanks in advance.
Tiago.

Changes in BDC program to upload data from text/excel file

Hi friends i have obtained the BDc program after recording :
start-of-selection.
perform open_group.
perform bdc_dynpro      using 'SAPLCOIH' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-GSBER'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'AUFPAR-PM_AUFART'
                              'PM01'.
perform bdc_field       using 'CAUFVD-IWERK'
                              '460a'.
perform bdc_field       using 'CAUFVD-GSBER'
                              '2460'.
perform bdc_field       using 'CAUFVD-EQUNR'
                              '10000009'.
perform bdc_dynpro      using 'SAPLCOIH' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'CAUFVD-KTEXT'
                              'abc'.
perform bdc_field       using 'CAUFVD-INGPR'
                              'GM'.
perform bdc_field       using 'CAUFVD-VAPLZ'
                              'RTN_VELR'.
perform bdc_field       using 'CAUFVD-VAWRK'
                              '460A'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-GLTRP'.
perform bdc_field       using 'CAUFVD-GSTRP'
                              '1.8.2010'.
perform bdc_field       using 'CAUFVD-GLTRP'
                              '1.8.2010'.
perform bdc_field       using 'CAUFVD-TPLNR'
                              'RTNP-HIG'.
perform bdc_field       using 'CAUFVD-EQUNR'
                              '10000009'.
perform bdc_field       using 'AFVGD-INDET'
                              '1'.
perform bdc_field       using 'AFVGD-WERKS'
                              '460A'.
perform bdc_field       using 'AFVGD-STEUS'
                              'PMIN'.
perform bdc_field       using 'AFVGD-ARBEH'
                              'H'.
perform bdc_field       using 'AFVGD-DAUNE'
                              'H'.
perform bdc_dynpro      using 'SAPLCOIH' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-KTEXT'.
perform bdc_field       using 'CAUFVD-KTEXT'
                              'abc'.
perform bdc_field       using 'CAUFVD-INGPR'
                              'GM'.
perform bdc_field       using 'CAUFVD-VAPLZ'
                              'RTN_VELR'.
perform bdc_field       using 'CAUFVD-VAWRK'
                              '460A'.
perform bdc_field       using 'CAUFVD-GSTRP'
                              '01.08.2010'.
perform bdc_field       using 'CAUFVD-GLTRP'
                              '01.08.2010'.
perform bdc_field       using 'CAUFVD-TPLNR'
                              'RTNP-HIG'.
perform bdc_field       using 'CAUFVD-EQUNR'
                              '10000009'.
perform bdc_field       using 'AFVGD-LTXA1'
                              'abc'.
perform bdc_field       using 'AFVGD-INDET'
                              '1'.
perform bdc_field       using 'AFVGD-ARBPL'
                              'RTN_VELR'.
perform bdc_field       using 'AFVGD-WERKS'
                              '460A'.
perform bdc_field       using 'AFVGD-STEUS'
                              'PMIN'.
perform bdc_field       using 'AFVGD-ARBEH'
                              'H'.
perform bdc_field       using 'AFVGD-DAUNE'
                              'H'.
perform bdc_transaction using 'IW31'.
perform close_group.
after executing it has two options.one is for call transactioin and other is for with session.Now i want to do the uploading from text file.Please guide me how to achieve that and what should be the order of fields in the text file.I am just a beginner.I know how to do that with LSMW bt trying BDc first time for creating PM orders

You can use class "cl_gui_frontend_services". First you must select file with "file_open_dialog" method and the you can upload file with "gui_upload" method into internal table. Here is a sample: (I didn't try the code but I'm sure you can get it working, there are lots of sample codes about that. You can also search FM "GUI_UPLOAD").
REPORT zreport.
DATA:
gv_subrc TYPE sysubrc,
gv_result TYPE abap_bool,
gt_data_tab type table of zstruc.
PARAMETERS: p_fname LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
    PERFORM file_open_dialog USING space space space space
                        CHANGING p_fname gv_action gv_subrc.
START-OF-SELECTION.
PERFORM gui_upload TABLES gt_data_tab
                 USING p_fname CHANGING gv_subrc.
*** FORMS ***
FORM file_open_dialog USING pv_window_title
                            pv_default_extension
                            pv_default_filename
                            pv_initial_directory
                   CHANGING pv_filename
                            pv_user_action
                            pv_subrc.
DATA:
lt_file_table TYPE filetable,
lv_rc         TYPE i,
lv_initial_directory TYPE string.
IF pv_initial_directory IS INITIAL.
    PERFORM get_desktop_directory CHANGING lv_initial_directory.
ELSE.
    lv_initial_directory = pv_initial_directory.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = pv_window_title
      default_extension       = pv_default_extension
      default_filename        = pv_default_filename
*     file_filter             =
*     with_encoding           =
      initial_directory       = lv_initial_directory
*     multiselection          =
    CHANGING
      file_table              = lt_file_table
      rc                      = lv_rc
      user_action             = pv_user_action
*     file_encoding           =
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5
pv_subrc = sy-subrc.
IF pv_subrc EQ 0.
    READ TABLE lt_file_table INTO pv_filename INDEX 1.
ENDIF.
ENDFORM.
FORM gui_upload TABLES pt_data_tab
                 USING pv_filename
              CHANGING pv_subrc    TYPE sysubrc.
DATA:
lt_data_tab TYPE TABLE OF string,
lv_filename TYPE string.
lv_filename = pv_filename.
CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename                = lv_filename
      filetype                = 'ASC'
     has_field_separator     = 'X'
*     header_length           = 0
*     read_by_line            = 'X'
*     dat_mode                = SPACE
*     codepage                = SPACE
*     ignore_cerr             = ABAP_TRUE
*     replacement             = '#'
*     virus_scan_profile      =
*     show_transfer_status    = 'X'
*   IMPORTING
*     filelength              =
*     header                  =
    CHANGING
      data_tab                = lt_data_tab
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      not_supported_by_gui    = 17
      error_no_gui            = 18
      OTHERS                  = 19
pv_subrc = sy-subrc.
IF pv_subrc EQ 0.
    pt_data_tab[] = lt_data_tab[].
ENDIF.
ENDFORM.

BDC program for Other Goods receipts

Hi all,
I need BDC program for Other goods receipts,
I have data in excel like material, batch id, qty, actual width, length, plant etc. i want to upload this in one short based on the movement type.
Thanks in advance.
Shankar

Hi MP Shankar,
This is a sample BDC program .Use the format to develop your own BDC program.First record your trasnaction and use that recorded program here.Pass your filename here.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_ifile TYPE dxfile-filename.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-002.
PARAMETERS: p_sess RADIOBUTTON GROUP g3 "create session
 DEFAULT 'X' USER-COMMAND bdc,
 p_ctu RADIOBUTTON GROUP g3. "call transaction
SELECTION-SCREEN END OF BLOCK b3.
DATA : BEGIN OF itab OCCURS 0,
 str TYPE string,
 END OF itab,
 l_file TYPE string,
 t_bdcdata TYPE STANDARD TABLE OF bdcdata,
 wa_bdcdata LIKE LINE OF t_bdcdata.
AT SELECTION SCREEN ON VALUE REQUEST
Value request for the filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ifile.
PERFORM help_input_file.
START-OF-SELECTION.
CLEAR l_file.
l_file = p_ifile.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = l_file
 filetype = 'ASC'
 TABLES
 data_tab = itab
 EXCEPTIONS
 file_open_error = 1
 file_read_error = 2
 no_batch = 3
 gui_refuse_filetransfer = 4
 invalid_type = 5
 no_authority = 6
 unknown_error = 7
 bad_data_format = 8
 header_not_allowed = 9
 separator_not_allowed = 10
 header_too_long = 11
 unknown_dp_error = 12
 access_denied = 13
 dp_out_of_memory = 14
 disk_full = 15
 dp_timeout = 16
 OTHERS = 17.
*Start new session
IF p_sess = 'X'.
 PERFORM bdc_open.
ENDIF.
LOOP AT itab.
 PERFORM creat_batch_input.
 PERFORM bdc_insert.
 IF p_ctu = 'X'.
 CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'A'.
 ENDIF.
ENDLOOP.
IF p_sess = 'X'.
 PERFORM bdc_close .
ENDIF.
*& Form bdc_open
 text
--> p1 text
<-- p2 text
FORM bdc_open .
CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 client = sy-mandt
 group = 'ZMUK'
 user = sy-uname
 EXCEPTIONS
 client_invalid = 1
 destination_invalid = 2
 group_invalid = 3
 group_is_locked = 4
 holddate_invalid = 5
 internal_error = 6
 queue_error = 7
 running = 8
 system_lock_error = 9
 user_invalid = 10
 OTHERS = 11.
ENDFORM. " bdc_open
*& Form creat_batch_input
 text
--> p1 text
<-- p2 text
FORM creat_batch_input .
use your own recorded program here.
PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE'
 '=STRT'.
PERFORM bdc_field USING 'RS38M-PROGRAMM'
 itab-str.
PERFORM bdc_field USING 'RS38M-FUNC_EDIT'
 'X'.
PERFORM bdc_dynpro USING 'SAPLSLVC_FULLSCREEN' '0500'.
PERFORM bdc_field USING 'BDC_OKCODE'
 '=&F03'.
PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE'
 '=BACK'.
PERFORM bdc_field USING 'RS38M-PROGRAMM'
 itab-str.
PERFORM bdc_field USING 'RS38M-FUNC_EDIT'
 'X'.
ENDFORM. " creat_batch_input
*& Form bdc_insert
 text
--> p1 text
<-- p2 text
FORM bdc_insert .
CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 tcode = 'SE38'
 TABLES
 dynprotab = t_bdcdata
 EXCEPTIONS
 internal_error = 1
 not_open = 2
 queue_error = 3
 tcode_invalid = 4
 printing_invalid = 5
 posting_invalid = 6
 OTHERS = 7.
ENDFORM. " bdc_insert
*& Form bdc_dynpro
 text
 -->P_0168 text
 -->P_0169 text
FORM bdc_dynpro USING p_program TYPE any
 p_dynpro TYPE any.
CLEAR wa_bdcdata.
wa_bdcdata-program = p_program.
wa_bdcdata-dynpro = p_dynpro.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO t_bdcdata.
ENDFORM. " bdc_dynpro
*& Form bdc_field
 text
 -->P_0179 text
 -->P_0180 text
FORM bdc_field USING p_fnam TYPE any
 p_fval TYPE any.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = p_fnam.
wa_bdcdata-fval = p_fval.
CONDENSE wa_bdcdata-fval.
APPEND wa_bdcdata TO t_bdcdata.
ENDFORM. " bdc_field
*& Form bdc_close
 text
--> p1 text
<-- p2 text
FORM bdc_close .
CALL FUNCTION 'BDC_CLOSE_GROUP'
 EXCEPTIONS
 not_open = 1
 queue_error = 2
 OTHERS = 3.
ENDFORM. " bdc_close
*& Form help_input_file
 text
--> p1 text
<-- p2 text
FORM help_input_file .
DATA: lt_file_table TYPE filetable,
 la_file_table LIKE LINE OF lt_file_table,
 l_rc TYPE i,
 l_pcdsn TYPE cffile-filename.
REFRESH lt_file_table.
CLEAR la_file_table.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
 CHANGING
 file_table = lt_file_table
 rc = l_rc.
READ TABLE lt_file_table INTO la_file_table INDEX 1.
l_pcdsn = la_file_table-filename.
MOVE l_pcdsn TO p_ifile.
ENDFORM. " help_input_file

Issue with BDC program used for FBZ5 (Check Print)

Hi all,
I am having one requirement in Check printing. as per that i have made one Z program which will accept multiple Payment documents. I am passing selected accounting documents to BDC routine for Transaction FBZ5. (As in FBZ5 we can take a print for one Payment document not for multiple)
We can have 3 scenarios in FBZ5
1. Fresh Check printing (First time check printing)
2. Old Check (printing for same Check no)
3. New Check (After voiding older check)
Category 1 and 2 are working fine but i am facing problem in category 3.
For Category 3 : BDC Screen flow is like this
A. Tcode FBZ5 Start program: SAPMFCHK Screen: 750 --> Click on 'Print'
B. Program: SAPLSPO2 Screen: 0100 --> Here specify option 'New Check'
C. Program: SAPMFCHK Screen: 0700
    - This program belongs to new Tcode FCH7
    - Here we have to give Void Reason code
Now issue with Category 3:
While executing BDC in online and background mode my control is terminating at step C mentioned above
Troubleshooting:
I have debugged standard program of FBZ5
1. in Include MFCHKFD0 we can see call to Tcode FCH7 (PERFORM AUFRUF_FCH7.)
2. in form AUFRUF_FCH7 i found code related to BDC
   also there one statement is getting triggered -->   CALL TRANSACTION 'FCH7' USING BDC MODE 'A'.
So there is a BDC call inside my Z BDC program, so is this a reason why my program is not working for above scenario ?
Or can't we handle above scenario in a way mentioned above?

Hi Sandra,
I was trying to upload customer master in fd01 using bdc. The screens were different while recording. So could not perform the upload. Thenone screen was skipped so that the bdc was working fine and the data was uploaded.
This is the flow of the recording.
'SAPMF02D' '0105'.
SAPMF02D' '7105'
SAPMF02D' '0111
SAPMF02D' '0120
SAPMF02D' '0130
SAPMF02D' '0210
SAPMF02D' '0215
SAPMF02D' '0220'
SAPMF02D' '0230'
SAPMF02D' '0610
After the second screen was deleted the bdc worked fine.

Issue while inserting a BDC program in Inbound Proxy.JDBC-- PI-- SAP.

The scenerio is jdbcsender-sappi-inboundproxy(ECC6.0).
The issue is related to SAP Plant Maintenance Module where We have a requirement for creating Maintenance item
programmatically from (SQLDatabase)Legacy Data for one of the interface.
since there are no standard BAPIS/Idocs or function modules available from SAP side for creating the maintenance item. So I
have written BDC program and with the help of submit statement in inbound proxy program, I am calling BDC program for
creation of the maintenance item.
When I tested the program independently on proxy side the Maintenance Item is getting created successfully but when I
executed from end-to-end ie. SQLDATABASE->SAP PI-->SAP. The message is getting strucked into the queue and queue got stopped on SAP.
ECC side and the status of the message is scheduled state on SXMB_MONI transaction of SAP ECC.
As the message is in scheduled state multiple number of Maintenance Items are getting created with the same values.
Has any one of our SAP friends, encountered this type of issue while inserting a BDC program in inbound proxy, please help
in fixing this issue. FYI... I am using sap pi7.0 with service pack 24 and ecc6.0
Waiting for your kind expert guidance...
cheers,
Ram

Raj,
Thanks for the reply. I have tried registering the queues but still the same problem. the message got stuck in the queue of ECC and showing below message in queue.
function module StatusText
SXMS_ASYNC_EXEC connection closed (no data)
I have checked in the forums especially for this issue but no one has provided the answer for this.
Thanks and Regards
Ram

Recording TCode for BDC program

Hi ALL,
I have a problem in recording GS01 tcode.
I have to a table control in GS01 tcode.
After some rows again i need to update the data.
How can i record this and write BDC program for the same.

Hi
To uplaod the data using the table control,if number of line are more then screen.
Then use the P+ in u r code.
let assume that u can see 10 rows on screen.once the count reachs the 10 then do P+ then
new line will come and after P+ clear u r counter.

XK99 lsmw or BDC program to copy vendors doesn´t update db records

Hello people
I am facing a requirement to copy a list of existing vendors into about 10 new company codes. Vendors all exist in the "main" company code, so I figured it would be a good idea to use the XK99 transaction as a basis for a mass upload via lsmw or bdc program.
So
So I performed a recording and applied my logic in lsmw, ran the batch input folder in SM35, seemingly without errors. But to my srprise I saw that no database records had been created in the LFB1 table.
So I tried to incorporate the recording into a bdc program that uses call transaction, but the same thing happens. The batch input seems to be running OK, but no changes are actually made to db....
So I was wondering what could I be doing wrong? I notice one strange thing though. After carrying out the selections in XK99 manually, one needs to mark columns to be transfered and then push the ´Perform mass update´ button and THEN click save. However, when in recording mode, one may click save directly, and no error is given and the recording ends.
However, the select columns operation, if I try to do it during recording, doesnt seem to get captured....
Any ideas of what I might be doing wrong here?
Regards, Jorgen
T    XK99
SAPMMSDL    0200    X
                                                          BDC_OKCODE    =NEXT
                                                         BDC_SUBSCR    SAPMMSDL                                1000SUBTAB
                                                         BDC_CURSOR    MASSTABS-TABTXT(02)
                                                          MASSTABS-MARK(02)    X
SAPLMASS_SEL_DIALOG    0100    X
                                                          BDC_OKCODE    =NEW
                                                         BDC_SUBSCR    SAPLMASS_SEL_DIALOG                     0200SUB_ALL
                                                         BDC_SUBSCR    SAPLMASSFREESELECTIONS                  1000SUB_SEL
                                                          BDC_CURSOR    MASSFREESEL-LOW(01)
                                                         MASSFREESEL-LOW(01)    300011
SAPLMASS_SEL_DIALOG    0100    X
                                                          BDC_OKCODE    /00
                                                         BDC_SUBSCR    SAPLMASS_SEL_DIALOG                     0400SUB_ALL
                                                         BDC_SUBSCR    SAPLMASSFREESELECTIONS                  1000SUB_SEL
                                                          MASSFREESEL-LOW(01)    300011
                                                         MASSFREESEL-LOW(02)    7010
                                                         BDC_SUBSCR    SAPLMASSFREESELECTIONS                  2000SUB_PARA
                                                          BDC_CURSOR    MASSFREESEL_P-LOW(02)
                                                         MASSFREESEL_P-LOW(01)    300011
                                                         MASSFREESEL_P-LOW(02)    7000
SAPLMASS_SEL_DIALOG    0100    X
                                                          BDC_OKCODE    =CRET
                                                         BDC_SUBSCR    SAPLMASS_SEL_DIALOG                     0400SUB_ALL
                                                         BDC_SUBSCR    SAPLMASSFREESELECTIONS                  1000SUB_SEL
                                                          BDC_CURSOR    MASSFREESEL-LOW(01)
                                                         BDC_SUBSCR    SAPLMASSFREESELECTIONS                  2000SUB_PARA
SAPLMASSINTERFACE    0200    X
                                                          BDC_OKCODE    =SAVE
                                                         BDC_SUBSCR    SAPLMASSINTERFACE                       0202FIELDS
                                                         BDC_SUBSCR    SAPLMASSINTERFACE                       0210SUB_HEAD
                                                          BDC_CURSOR    HEADER_STRUC-FIELD2-VALUE-LEFT(01)
                                                         BDC_SUBSCR    SAPLMASSINTERFACE                       0212SUB_DATA

Hello,
first of all Transaction XK99 is more helpful in case of vendor change, not really creation.
It was also intended to cover mass maintenance so it is used instead of LSMW or any other BDC custom program.
I would say that you can go either with LSMW or CALL TRANSACTION custom program, but you should base your recording on XK/FK01 transactions.
Regards,
Grzegorz

How to create a BDC program for given recording.

i have to create a BDC program for uploading a file.
currently i am using call function
CALL FUNCTION 'F4_FILENAME'

just check out the code below it is for updating two transactions
 types Declaration *
types: begin of t_tab1 ,
 vendor(10),
 material(18),
 pur_org(4),
 wglif(18),
 end of t_tab1.
 Data Declaration *
data : begin of it_tab5 occurs 0,
 vendor(10),
 material(18),
 end of it_tab5.
**DATA : BEGIN OF IT_TAB6 OCCURS 0,
 VENDOR(10),
 MATERIAL(18),
 END OF IT_TAB6.
data: it_tab1 type standard table of t_tab1 with header line.
data: wa_tab1 type t_tab1.
data: wa_tab2 type t_tab1.
data: it_tab3 like bdcdata occurs 0 with header line.
data: it_tab4 like bdcdata occurs 0 with header line.
data: it_tab2 type table of bdcmsgcoll with header line.
data: d_file_name like ibipparms-path,
 d_file_name1 type string.
 Start-of-selection *
start-of-selection.
FM for finding the flat file
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
 importing
 file_name = d_file_name.
d_file_name1 = d_file_name.
******FM for uploading data from flat file into internal table
call function 'GUI_UPLOAD'
 exporting
 filename = d_file_name1
 filetype = 'ASC'
HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =
 tables
 data_tab = it_tab5
exceptions
 file_open_error = 1
 file_read_error = 2
 no_batch = 3
 gui_refuse_filetransfer = 4
 invalid_type = 5
 no_authority = 6
 unknown_error = 7
 bad_data_format = 8
 header_not_allowed = 9
 separator_not_allowed = 10
 header_too_long = 11
 unknown_dp_error = 12
 access_denied = 13
 dp_out_of_memory = 14
 disk_full = 15
 dp_timeout = 16
 others = 17.
if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
 End-of-selection *
end-of-selection.
sort it_tab5 by vendor.
loop at it_tab5.
 perform bdc_dynpro using 'SAPLBG00' 0101 .
 perform bdc_field using 'BDC_OKCODE' '/00' .
 perform bdc_dynpro using 'SAPLBG00' 1000 .
 perform bdc_field using 'BDC_OKCODE' '=BUCH' .
 perform bdc_field using 'BDC_SUBSCR'
 'SAPLBG00 1101KOPF_1000'.
 perform bdc_field using 'GBGMK-GAART' '2' .
 perform bdc_field using 'GBGMK-GAERB' 'X' .
 perform bdc_field using 'BDC_SUBSCR'
 'SAPLBG00 1103TAB_SUB_1000'.
 perform bdc_field using 'BDC_CURSOR' 'GBGMP-LSTNR(01)' .
 perform bdc_field using 'GBGMP-LSTNR(01)' it_tab5-material .
 call transaction 'BGM1' using it_tab3 mode 'E' messages into it_tab2
 refresh it_tab3.
 wa_tab1-pur_org = 'ABCP'.
 loop at it_tab2.
 endloop.
 perform bdc_dynpro using 'SAPMM06I' 0100 .
 perform bdc_field using 'BDC_CURSOR' 'EINE-EKORG' .
 perform bdc_field using 'BDC_OKCODE' '/00' .
 perform bdc_field using 'EINA-LIFNR' it_tab5-vendor .
 perform bdc_field using 'EINA-MATNR' it_tab5-material .
 perform bdc_field using 'EINE-EKORG' wa_tab1-pur_org .
 perform bdc_field using 'RM06I-NORMB' 'X' .
 perform bdc_dynpro using 'SAPMM06I' 0101 .
 perform bdc_field using 'BDC_CURSOR' 'EINA-WGLIF' .
 perform bdc_field using 'BDC_OKCODE' '=BU' .
 perform bdc_field using 'EINA-WGLIF' it_tab2-msgv1 .
 call transaction 'ME12' using it_tab3 mode 'E'.
 refresh it_tab3.
 refresh it_tab2.
endloop.
*& Form BDC_DYNPRO
 Start new screen
 -->P_FNAM text
 -->P_FVAL text
form bdc_dynpro using program
 dynpro.
clear it_tab3.
it_tab3-program = program.
it_tab3-dynpro = dynpro.
it_tab3-dynbegin = 'X'.
append it_tab3.
endform. " BDC_DYNPRO
*& Form BDC_FIELD
 Insert field
 -->P_FNAM text
 -->P_FVAL text
form bdc_field using fnam
 fval.
clear it_tab3.
it_tab3-fnam = fnam.
it_tab3-fval = fval.
append it_tab3.
endform. " BDC_FIELD
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 6:20 PM

BDC PROGRAM WITH OUT USING A FM?

Hi Experts,
I need wirte a BDC program for tcode PA30.
i did the screen recording part using tcode-shdb.
i need to use field i recorded as input fields.
Now the main part is how to write code? with out using a class/method?
class/method which i earlier used is class : CL_GUI_FRONTEND_SERVICES.
 method: gui_upload.
am not using ny flat file/xml file to upload?
are there any function modules which i can use?
and how to write code with out using FM?
if any can solve my issue would be very helpful...plz provide code...which would be more helpful.
Thanks in Adv.
Krrish.

Hi,
 If you are migrating employee data, I would suggest you to do it through PA40 transaction rather PA30. systematic screen validations it will go through. If you dont want to use any FM and wanted to do using recording pls find the below code which will update the employee data through PA40 with call transaction method.
SELECTION SCREEN
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_plan TYPE ibipparms-path OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.
TYPES: BEGIN OF ty_error,
 pernr TYPE persno, " Personnel number
 rel_obj_id(12), " Related Object ID
 msg(200) TYPE c, " To store Message
 END OF ty_error.
DATA: i_tplan TYPE STANDARD TABLE OF alsmex_tabline WITH HEADER LINE,
 i_intern TYPE STANDARD TABLE OF alsmex_tabline WITH HEADER LINE,
 i_error TYPE ty_error OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF w_pa000,
 pernr TYPE persno,
 begda TYPE begda,
 END OF w_pa000.
DATA: wa_plan LIKE i_plan,
 wa_messtab TYPE bdcmsgcoll, " Messages
 wa_error TYPE ty_error. " Errors
DATA: it_pa000 LIKE STANDARD TABLE OF w_pa000 WITH HEADER LINE,
 it_pa002 LIKE STANDARD TABLE OF w_pa000 WITH HEADER LINE,
 it_pa001 LIKE STANDARD TABLE OF w_pa000 WITH HEADER LINE.
DATA: g_mode LIKE ctu_params-dismode VALUE 'N',
 g_file TYPE ibipparms-path.
ALV field catalog
DATA : i_fieldcat TYPE slis_t_fieldcat_alv.
 Batchinputdata of single transaction
DATA: i_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
 messages of call transaction
DATA: i_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
 error session opened (' ' or 'X')
Table to hold the return messages
DATA: BEGIN OF i_errmsg OCCURS 10.
 INCLUDE STRUCTURE bapiret2.
DATA: END OF i_errmsg.
ALV List header table
DATA : i_header1 TYPE slis_t_listheader.
ALV List header table
DATA : i_header TYPE slis_listheader.
***ALV Events
DATA: is_layout TYPE slis_layout_alv.
DATA : it_event TYPE slis_alv_event.
DATA : it_event1 TYPE slis_t_event.
To get the F4 help for file
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_plan.
PERFORM get_filename.
START OF SELECTION
START-OF-SELECTION.
Initialise data
PERFORM initialise_events.
Retrieve data from Excel file
PERFORM retreive_data.
Populate final data into an internal table
PERFORM populate_data.
Process the excel file data to create a record for IT0007
PERFORM process_data.
END OF SELECTION
END-OF-SELECTION.
PERFORM final_output.
*& Form GET_FILENAME
FORM get_filename .
*Function module used for F4 help
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 IMPORTING
 file_name = p_plan.
ENDFORM. " GET_FILENAME
*& Form INITIALISE_EVENTS
FORM initialise_events .
i_header-typ = 'H'.
i_header-key = 'R'.
i_header-info = 'BDC Interface for PA Infotypes 0000,0001,0002'.
APPEND i_header TO i_header1.
CLEAR i_header.
i_header-typ = 'S'.
i_header-info = 'Hiring, Org.Assignment, Personnel Data'.
APPEND i_header TO i_header1.
CLEAR i_header.
***Events and form name
it_event-name = 'TOP_OF_PAGE'.
it_event-form = 'TOP_OF_PAGE'.
APPEND it_event TO it_event1.
ENDFORM. " INITIALISE_EVENTS
*& Form RETREIVE_DATA
FORM retreive_data .
PERFORM upload_data.
ENDFORM. " RETREIVE_DATA
*& Form UPLOAD_DATA
FORM upload_data .
FM to upload data from excel sheet to internal table
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_plan
 i_begin_col = g_colbeg
 i_begin_row = g_rowbeg
 i_end_col = g_colend
 i_end_row = g_rowend
 TABLES
 intern = i_tplan
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 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.
ENDFORM. " UPLOAD_DATA
*& Form POPULATE_DATA
FORM populate_data .
processing the internal table generated from the function module
Passing data from Excel file to internal table
CLEAR: g_cnt_processed,
 g_cnt_err_processed,
 i_intern,
 i_plan.
LOOP AT i_tplan.
 AT NEW row.
 CLEAR i_plan.
 ENDAT.
 CASE i_tplan-col.
Begin Date
 WHEN '0001'.
 i_plan-pernr = i_tplan-value.
End Date
 WHEN '0002'.
 i_plan-begda = i_tplan-value.
 WHEN '0003'.
 i_plan-massg = i_tplan-value.
Sign
 WHEN '0004'.
 i_plan-plans = i_tplan-value.
 WHEN '0005'.
 i_plan-werks = i_tplan-value.
 WHEN '0006'.
 i_plan-persg = i_tplan-value.
 WHEN '0007'.
 i_plan-persk = i_tplan-value.
 WHEN '0008'.
 i_plan-anrex = i_tplan-value.
 WHEN '0009'.
 i_plan-nachn = i_tplan-value.
 WHEN '0010'.
 i_plan-vorna = i_tplan-value.
 WHEN '0011'.
 i_plan-gesch = i_tplan-value.
 WHEN '0012'.
 i_plan-gbdat = i_tplan-value.
 WHEN '0013'.
 i_plan-fatxt = i_tplan-value.
 WHEN '0014'.
 i_plan-famdt = i_tplan-value.
 WHEN '0015'.
 i_plan-gblnd = i_tplan-value.
 WHEN '0016'.
 i_plan-anzkd = i_tplan-value.
 WHEN '0017'.
 i_plan-natio = i_tplan-value.
 WHEN '0018'.
 i_plan-btrtl = i_tplan-value.
 WHEN '0019'.
 i_plan-gsber = i_tplan-value.
 WHEN '0020'.
 i_plan-abkrs = i_tplan-value.
 ENDCASE.
Appending the internal table tb_data, tb_chng
 AT END OF row.
 APPEND i_plan.
 IF i_plan IS INITIAL.
 g_cnt_err_processed = g_cnt_err_processed + 1.
 ENDIF.
 ENDAT.
ENDLOOP.
To get the total number of records processed
DESCRIBE TABLE i_plan LINES g_lines.
g_cnt_processed = g_cnt_err_processed + g_lines.
CLEAR g_lines.
ENDFORM. " POPULATE_DATA
*& Form PROCESS_DATA
FORM process_data .
CLEAR wa_error.
REFRESH i_bdcdata.
Check if the employee numbers from the template has already been hired
SELECT pernr
 begda
 FROM pa0000
 INTO TABLE it_pa000
 FOR ALL ENTRIES IN i_plan
 WHERE pernr = i_plan-pernr
 AND massn = 'ZA'.
IF sy-subrc = 0.
 SORT it_pa000 BY pernr.
Check if employee has a corresponding infotype 0001 record
 SELECT pernr
 begda
 FROM pa0001
 INTO TABLE it_pa001
 FOR ALL ENTRIES IN it_pa000
 WHERE pernr = it_pa000-pernr AND
 begda = it_pa000-begda.
 IF sy-subrc = 0.
 SORT it_pa001 BY pernr.
Check if employee has a corresponding infotype 0002 record
 SELECT pernr
 begda
 FROM pa0001
 INTO TABLE it_pa002
 FOR ALL ENTRIES IN it_pa001
 WHERE pernr = it_pa001-pernr AND
 begda = it_pa001-begda.
 IF sy-subrc = 0.
 SORT it_pa002 BY pernr.
 ENDIF.
 ENDIF.
ENDIF.
LOOP AT i_plan.
 REFRESH i_bdcdata.
***your recording to be pasted here***
 PERFORM bdc_field USING 'BDC_CURSOR'
 'P0006-BEGDA'.
 PERFORM call_transaction.
 APPEND wa_error TO i_error.
 REFRESH: i_bdcdata, i_messtab.
 CLEAR: wa_error, i_error.
ENDLOOP.
ENDFORM. " PROCESS_DATA
*& Form BDC_DYNPRO
FORM bdc_dynpro USING program dynpro.
CLEAR i_bdcdata.
i_bdcdata-program = program.
i_bdcdata-dynpro = dynpro.
i_bdcdata-dynbegin = 'X'.
APPEND i_bdcdata.
ENDFORM. "BDC_DYNPRO
*& Form BDC_FIELD
FORM bdc_field USING fnam fval.
IF fval <> nodata.
CLEAR i_bdcdata.
i_bdcdata-fnam = fnam.
i_bdcdata-fval = fval.
APPEND i_bdcdata.
ENDIF.
ENDFORM. "bdc_field
*& Form ERROR_RECORD_DATA
FORM error_record_data .
CLEAR: g_lines,
 wa_messtab,
 g_msg.
DESCRIBE TABLE i_messtab LINES g_lines.
READ TABLE i_messtab INTO wa_messtab INDEX g_lines.
IF sy-subrc = 0.
 CLEAR g_msg.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = wa_messtab-msgid
 lang = sy-langu
 no = wa_messtab-msgnr
 v1 = wa_messtab-msgv1
 v2 = wa_messtab-msgv2
 v3 = wa_messtab-msgv3
 v4 = wa_messtab-msgv4
 IMPORTING
 msg = g_msg
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 IF wa_messtab-msgtyp = 'E'.
 IF wa_messtab-msgtyp = 'S' AND wa_messtab-msgnr = '102' AND wa_messtab-msgid = 'PG'.
 wa_error-pernr = i_plan-pernr.
 wa_error-rel_obj_id = 'S'.
 wa_error-msg = 'Personnel Number Created Successfully'.
 ELSE.
 wa_error-pernr = i_plan-pernr.
 wa_error-rel_obj_id = 'E'.
 wa_error-msg = g_msg.
 ENDIF.
 APPEND wa_error TO i_error.
 CLEAR i_error.
ENDIF.
ENDFORM. " ERROR_RECORD_DATA
*& Form FINAL_OUTPUT
FORM final_output .
CLEAR g_lines.
SORT i_error.
*************added*********************************************
loop at i_error into wa_error.
 if wa_error-MSG eq 'No batch input data for screen MP000600 2000'.
 wa_error-rel_obj_id = 'S'.
 wa_error-MSG = 'Record Created Successfully'.
 modify i_error from wa_error.
 endif.
endloop.
loop at i_error into wa_error.
 if wa_error-rel_obj_id = 'S'.
 g_cnt_success = g_cnt_success + 1. " Append success count
 elseif wa_error-rel_obj_id = 'E'.
 g_cnt_failure = g_cnt_failure + 1. " Append error count
 endif.
endloop.
***Field catalog
PERFORM field_cat.
***Assigning Program name
g_repid = sy-repid.
SORT i_error.
***Display Output
IF NOT it_final[] IS INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = g_repid
 i_callback_user_command = 'USER_COMMAND'
 i_callback_pf_status_set = 'PF_STATUS_SET'
 i_save = 'A'
 it_events = it_event1
 is_layout = is_layout
 it_fieldcat = i_fieldcat[]
 TABLES
 t_outtab = i_error[].
ELSE.
 MESSAGE i015(zv_msg) WITH 'No Data Found for this selection'.
 LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. " FINAL_OUTPUT
*& Form top_of_page
 text
FORM top_of_page.
***FM for Displaying Heading
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = i_header1[]
 i_logo = 'ENJOYSAP_LOGO'.
ENDFORM. "top_of_page
*& Form FIELD_CAT
FORM field_cat .
ENDFORM. " FIELD_CAT
*& Form CALL_TRANSACTION
FORM call_transaction .
CALL TRANSACTION 'PA40' USING i_bdcdata
 MODE g_mode
 UPDATE 'S'
 MESSAGES INTO i_messtab.
If call transaction successful
IF sy-subrc = 0.
 g_cnt_success = g_cnt_success + 1. " Append success count "changed
 PERFORM error_record_data. " Populate all data
If call transaction not successful
ELSE.
 PERFORM error_record_data. " Populate all table
 g_cnt_failure = g_cnt_failure + 1. " Append error count "changed
ENDIF.
ENDFORM. " CALL_TRANSACTION

Hello I don't know who to complain to as you do not appear to have a complaints department, despite searching the web, I trust you can pass this to relevant department for action, as I'm very angry over my recent repair. Following my issue relating to a

Hello
I don't know who to complain to as you do not appear to have a complaints department, despite searching the web, I trust you can pass this to relevant department for action, as I'm very angry over my recent repair.
Following my issue relating to a blank screen 2 weeks ago, your advisor arranged for my iMac to collected by Amsys, for repair and return, this was done and it was returned to me last Tuesday, onWednesday I set up my iMac again and instantly realised I had problems, much worse than before. I called Amsys to inform them of the issue of the computer being very very slow and unable to open iPhoto and pages, and document listing would not show up, plus I had no sound on the mac.They informed me that they had only replaced the video card and what they had done would have not affected the computers performance. He suggested I reinstall OSX again which I did, but this made no difference to the programs, so I called you.
Your technician on the phone was very good as they have always been, and made an appointment for me to go into the Milton Keynes Apple store the next day at 1 pm, which I did.
The gentleman on the Genius Bar was very good and was able to run tests on the iMac in my presence, and diagnosed immediately an issue with the sound problem, and advised me that this could not be fixed while I wait and I would need to leave it for repair. I made him aware of the previous repair, and he was able to see via your system, the list of logged issues I have had with this since purchasing in September 2012. I'm sure you can see from the way you record all calls and issues the problems I have had.
Today I called to ask if my iMac would soon be ready for collection, I was told the repairs had been completed and it was being tested. However to my dismay, I learned of another serious issue relating to the repair carried out by Amsys. I was informed that 6 screws were missing from the the iMac internally, which caused me much distress and concern, they also told me I had to wait even longer as the screws had to be ordered and installed on arrival before I could collect it.
My issues here are: I trusted the Amsys repairer as it was arranged and recommend by you, it is very evident they are not competent to repair, as they have caused more problems with my iMac on its return, despite enclosing a checklist, fully ticked showing everything working well, it clearly wasn't ! Plus the issue of missing parts (screws) during the repair, I have already expressed my disgust with Amsys, by email and had a response, within the hour, apologising and told me they were looking into this.
This where I stand on this, I have not had my iMac for almost two weeks and I do not know when I will get it back. I'm also very worried about what other damage has been caused by Amsys and the quality of my iMac now. I want to know what you, Apple is going to do about this ? I have already been very inconvenienced by this and until now I have been a very loyal apple customer with 2 iPads, and 4 iPhones in our household, not to mention the iMac.
I feel I have been very let down by this experience, on my iMac, which cost a lot of money, I have also lost a lot of money with lost work and unable to carry out my business without it, and I will be seeking compensation.
I trust you will take this complaint seriously and pass it to the relevant department for action.
Yours sincerely
Des Withey
Sent from my iPad
On 26 Feb 2014, at 11:44, Apple Support <[email protected]> wrote:
Thanks for contacting us.
Thanks for contacting Apple Support. If you need more help later, you can open the case below or start a new support request online.
Case ID:
Open this case
Sincerely,
Apple Support
Get help online
Visit Apple Support to learn more about your product, download software updates, and much more.
Join the conversation
Find and share solutions with Apple users around the world.
TM and copyright © 2014 Apple Inc. 1 Infinite Loop, MS 96-DM, Cupertino, CA 95014.
All Rights Reserved / Privacy Policy / Apple Support / Give us feedback
On behalf of Apple Distribution International

Call Apple Customer Relations - 1-800-275-2273. Ask politely & firmly that you want to be transferred to Customer Relations. Tell them exactly what you stated in your post.
GOOD LUCK!
These are user-to-user forums where everyday folk (volunteers) post questions and offer answers (technical support) to each other.

Can we call a bdc program from a report?how

hi
experts can u help me for this

Hi
Yes, You can call a BDC program from Report.
see the sample report in which it is used
REPORT zm_reservation_alert
NO STANDARD PAGE HEADING
MESSAGE-ID zm_msg.
D A T A B A S E T A B L E S D E C L A R A T I O N
T Y P E S D E C L A R A T I O N S
Reservations Main Structure
TYPES: BEGIN OF s_res,
rsnum TYPE rsnum, " Reservation No
rspos TYPE rspos, " Item No
usnam TYPE usnam, " User Name
bwart TYPE bwart, " Movement Type
aufnr TYPE aufnr, " Order Number
rsart TYPE rsart, " Record Type
bdart TYPE bdart, " Reservation Type
matnr TYPE matnr, " Material No
bdter TYPE bdter, " Req Date
menge TYPE menge_d, " Quantity
kostl TYPE kostl, " Cost Center
usrid TYPE sysid, " User ID
END OF s_res.
Output Main Structure
TYPES: BEGIN OF s_rep,
usnam TYPE usnam, " User Name
rsnum TYPE rsnum, " Reservation No
rspos TYPE rspos, " Item No
matnr TYPE matnr, " Material No
bdter TYPE bdter, " Req Date
menge TYPE menge_d, " Quantity
kostl TYPE kostl, " Cost Center
aufnr TYPE aufnr, " Order Number
END OF s_rep.
User Dept Details
TYPES: BEGIN OF s_dept,
pernr TYPE persno, " Personal No
usrid TYPE sysid, " User ID
orgeh TYPE orgeh, " Orgn Unit
orgtx TYPE orgtx, " Dept Name
END OF s_dept.
For Send Mail Purpose
DATA : i_doc_data LIKE sodocchgi1.
DATA : BEGIN OF i_pack_list OCCURS 0.
INCLUDE STRUCTURE sopcklsti1.
DATA : END OF i_pack_list.
DATA : BEGIN OF i_receivers OCCURS 0.
INCLUDE STRUCTURE somlreci1.
DATA : END OF i_receivers.
DATA : BEGIN OF i_contents OCCURS 0.
INCLUDE STRUCTURE solisti1.
DATA : END OF i_contents.
DATA : BEGIN OF i_header OCCURS 0.
INCLUDE STRUCTURE solisti1.
DATA : END OF i_header.
DATA : BEGIN OF i_att OCCURS 0.
INCLUDE STRUCTURE solisti1.
DATA : END OF i_att.
Internal table for bdcdata
DATA : it_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
Internal table to handle messages
DATA : it_messages LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
D A T A D E C L A R A T I O N S
DATA: gv_lines TYPE sy-index, " Total Lines int Table
gv_days TYPE i, " Difference Days
gv_date TYPE sy-datum, " Date
gv_date1 TYPE sy-datum, " Date
gv_date2 TYPE sy-datum, " Date
gv_text(85), " Text Field
gv_mesg(70), " Error Messages
gv_bdc, " BDC Flag
gv_flag TYPE i, " Flag
gv_ernam TYPE ernam. " User ID
C O N S T A N T S D E C L A R A T I O N S
CONSTANTS: c_x VALUE 'X', " Flag
c_endda TYPE endda VALUE '99991231'. " Date
I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_res TYPE STANDARD TABLE OF s_res WITH HEADER LINE, " Reservns
i_dept TYPE STANDARD TABLE OF s_dept WITH HEADER LINE, " Dept
i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE. " Output
S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
Process data
PERFORM process_data.
*& Form fetch_data
Fetching the Reservations related data from Database Tables
FORM fetch_data .
CLEAR: gv_date, gv_date1, gv_date2.
gv_date = sy-datum.
gv_date1 = sy-datum - 10.
gv_date2 = sy-datum + 10.
CLEAR i_res.
REFRESH i_res.
SELECT a~rsnum " Reservation No.
b~rspos " Reservation Item
a~usnam " User Name
a~bwart " Movement Type
a~aufnr " Order Number
b~rsart " Record Type
b~bdart " Reservation Type
b~matnr " Material No
b~bdter " Req Date
INTO TABLE i_res
FROM rkpf AS a JOIN resb AS b
ON arsnum = brsnum
WHERE ( b~bdter BETWEEN gv_date1 AND gv_date2 ) AND
b~xloek EQ ' '.
SORT i_res BY rsnum rspos.
DELETE ADJACENT DUPLICATES FROM i_res COMPARING matnr.
Add userid into the i_usr int table
LOOP AT i_res.
i_res-usrid = i_res-usnam.
MODIFY i_res INDEX sy-tabix.
ENDLOOP.
IF NOT i_res[] IS INITIAL.
Get the User Dept Name
CLEAR i_dept.
REFRESH i_dept.
SELECT a~pernr " Personal No
a~usrid " User ID
b~orgeh " Orgn Unit
c~orgtx " Dept Name
INTO TABLE i_dept
FROM pa0105 AS a JOIN pa0001 AS b
ON apernr = bpernr JOIN t527x AS c
ON borgeh = corgeh
FOR ALL ENTRIES IN i_res
WHERE a~usrid = i_res-usrid AND
a~endda EQ c_endda AND
b~endda EQ c_endda.
ENDIF.
SORT i_dept BY pernr.
DELETE ADJACENT DUPLICATES FROM i_dept COMPARING pernr.
Move the Creator of Reservation to a diff table
LOOP AT i_res.
MOVE-CORRESPONDING i_res TO i_rep.
APPEND i_rep.
CLEAR i_rep.
ENDLOOP.
SORT i_rep BY usnam rsnum rspos.
ENDFORM. " Fetch_Data
*& Form process_data
Process the Reservations related data for Expiry Date
FORM process_data .
DATA: lv_date1 LIKE sy-datum,
lv_date2 LIKE sy-datum,
lv_date3(10),
lv_menge(13),
lv_tabix LIKE sy-tabix.
LOOP AT i_rep.
CLEAR: gv_days, gv_text, lv_date1, lv_date2,lv_date3.
lv_tabix = sy-tabix.
AT NEW usnam.
Populate the Contents Table
CLEAR i_att.
REFRESH i_att.
i_att = 'Reservations Reminder'(014).
APPEND i_att.
i_att = '----
APPEND i_att.
i_att-line = ' '.
APPEND i_att.
READ TABLE i_dept WITH KEY usrid = i_rep-usnam.
CONCATENATE 'Name:'(003) i_rep-usnam 'Dept:'(015) i_dept-orgtx
INTO i_att-line SEPARATED BY space.
APPEND i_att.
i_att-line = ' '.
APPEND i_att.
i_att = 'Please find the List of expiring Reservations'(004).
APPEND i_att.
i_att-line = ' '.
APPEND i_att.
CONCATENATE '--' '' '--
' INTO
i_att-line SEPARATED BY space.
APPEND i_att.
CONCATENATE 'Reservation #'(006) 'Material #'(007) ' Quantity'(002)
'Due Date'(008) 'Work Center/CC'(005) INTO
i_att-line SEPARATED BY space.
APPEND i_att.
CONCATENATE '--' '' '--
' INTO
i_att-line SEPARATED BY space.
APPEND i_att.
i_att-line = ' '.
APPEND i_att.
ENDAT.
gv_days = i_rep-bdter - gv_date.
lv_date1 = i_rep-bdter + 5.
lv_date2 = i_rep-bdter + 10.
MOVE i_rep-menge TO lv_menge.
WRITE i_rep-bdter TO lv_date3.
IF gv_days = 10.
IF i_rep-aufnr <> space.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-aufnr 'is due for 10 days. Please collect'(009)
INTO gv_text SEPARATED BY space.
ELSE.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-kostl 'is due for 10 days. Please collect'(009)
INTO gv_text SEPARATED BY space.
ENDIF.
i_att-line = gv_text.
APPEND i_att.
CLEAR i_att.
CLEAR gv_text.
ENDIF.
IF gv_days = 5.
IF i_rep-aufnr <> space.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-aufnr 'is due for 5 days. Please collect'(010)
INTO gv_text SEPARATED BY space.
ELSE.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-kostl 'is due for 5 days. Please collect'(010)
INTO gv_text SEPARATED BY space.
ENDIF.
i_att-line = gv_text.
APPEND i_att.
CLEAR i_att.
CLEAR gv_text.
ENDIF.
IF gv_date = lv_date1.
IF i_rep-aufnr <> space.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-aufnr 'is getting cancelled on'(011) lv_date2
INTO gv_text SEPARATED BY space.
ELSE.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-kostl 'is getting cancelled on'(011) lv_date2
INTO gv_text SEPARATED BY space.
ENDIF.
i_att-line = gv_text.
APPEND i_att.
CLEAR i_att.
CLEAR gv_text.
ENDIF.
IF gv_date = lv_date2.
IF i_rep-aufnr <> space.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-aufnr 'is being cancelled'(012)
INTO gv_text SEPARATED BY space.
ELSE.
CONCATENATE i_rep-rsnum i_rep-matnr lv_menge lv_date3
i_rep-kostl 'is being cancelled'(012)
INTO gv_text SEPARATED BY space.
ENDIF.
i_att-line = gv_text.
APPEND i_att.
CLEAR i_att.
CLEAR gv_text.
Mark the Reservation Item 'DELETED' using BDC.
UPDATE resb SET xloek = c_x.
PERFORM delete_item_resb.
ENDIF.
AT END OF usnam.
IF ( gv_days = 10 OR gv_days = 5 OR gv_date = lv_date1 OR
gv_date = lv_date2 ).
Read the User who creates the Reservn and send a mail alert to him
CLEAR : i_receivers,gv_ernam.
REFRESH: i_receivers.
READ TABLE i_rep INDEX lv_tabix.
gv_ernam = i_rep-usnam.
IF gv_ernam <> space.
Send mail Alert to PR Creator(SAP inbox)
PERFORM send_alert_data.
Send Mail to External Mail ID of the SAP USER
PERFORM send_mail_external.
ENDIF.
ENDIF.
ENDAT.
ENDLOOP.
ENDFORM. " Process_data
*& Form delete_item_resb
Set the Deletion Indicator for the Res. Item in RESB
FORM delete_item_resb.
gv_bdc = 'N'.
Perform to fill it_bdcdata.
PERFORM fill_it_bdcdata.
Call the Transaction MB22
CALL TRANSACTION 'MB22' USING it_bdcdata MODE 'A' UPDATE 'S'
MESSAGES INTO it_messages.
IF sy-subrc <> 0.
gv_flag = 1.
If error occurs in transaction mode run bdc session for that data
PERFORM bdc_process.
ENDIF.
Handles error messages
PERFORM error_messages.
CLEAR : it_bdcdata, it_messages.
REFRESH : it_bdcdata, it_messages.
IF gv_bdc = 'O'.
close bdc if it is open
PERFORM close_bdc.
ENDIF.
ENDFORM. "delete_item_resb
*& Form FILL_IT_BDCDATA
Filling Bdcdata structure with data
FORM fill_it_bdcdata.
PERFORM bdc_dynpro USING 'SAPMM07R' '0560'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RM07M-RSPOS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RM07M-RSNUM'
i_rep-rsnum.
PERFORM bdc_field USING 'RM07M-RSPOS'
i_rep-rspos.
PERFORM bdc_dynpro USING 'SAPMM07R' '0510'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RESB-XLOEK'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RESB-XLOEK'
c_x.
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_CURSOR'
'COBL-KOSTL'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
PERFORM bdc_dynpro USING 'SAPMM07R' '0510'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RESB-ERFMG'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_CURSOR'
'COBL-KOSTL'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
ENDFORM. " FILL_IT_BDCDATA
*& Form BDC_DYNPRO
Filling the it_bdcdata table with program name & screen number
FORM bdc_dynpro USING program LIKE bdcdata-program
dynpro LIKE bdcdata-dynpro.
it_bdcdata-program = program.
it_bdcdata-dynpro = dynpro.
it_bdcdata-dynbegin = 'X'.
APPEND it_bdcdata.
CLEAR it_bdcdata.
ENDFORM. " BDC_DYNPRO
*& Form BDC_FIELD
Filling it_bdcdata with field name and field value
FORM bdc_field USING fnam LIKE bdcdata-fnam
fval.
it_bdcdata-fnam = fnam.
it_bdcdata-fval = fval.
APPEND it_bdcdata.
CLEAR it_bdcdata.
ENDFORM. " BDC_FIELD
*& Form ERROR_MESSAGES
Displaying error messages
FORM error_messages.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = sy-msgid
lang = sy-langu
IMPORTING
msg = gv_mesg
EXCEPTIONS
not_found = 1
OTHERS = 2.
LOOP AT it_messages WHERE msgtyp = 'E'.
WRITE : / 'Message :'(001) ,gv_mesg.
CLEAR it_messages.
ENDLOOP.
ENDFORM. " ERROR_MESSAGES
*& Form BDC_PROCESS
Open bdc session if call transaction fails
FORM bdc_process.
IF gv_bdc = 'N'.
open bdc session
PERFORM open_bdc.
gv_bdc = 'O'.
ENDIF.
IF gv_bdc = 'O'.
insert data into bdc session
PERFORM insert_bdc.
ENDIF.
ENDFORM. " BDC_PROCESS
*& Form OPEN_BDC
Calling function module to open bdc session
FORM open_bdc.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
client = sy-mandt
group = 'ZMM'
keep = 'X'
user = sy-uname
EXCEPTIONS
client_invalid = 1
destination_invalid = 2
group_invalid = 3
group_is_locked = 4
holddate_invalid = 5
internal_error = 6
queue_error = 7
running = 8
system_lock_error = 9
user_invalid = 10
OTHERS = 11.
ENDFORM. " OPEN_BDC
*& Form INSERT_BDC
Insert it_bdcdata into bdc by calling function module bdc_insert
FORM insert_bdc.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = 'MB22'
TABLES
dynprotab = it_bdcdata
EXCEPTIONS
internal_error = 1
not_open = 2
queue_error = 3
tcode_invalid = 4
printing_invalid = 5
posting_invalid = 6
OTHERS = 7.
ENDFORM. " INSERT_BDC
*& Form CLOSE_BDC
Closing bdc session
FORM close_bdc.
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
not_open = 1
queue_error = 2
OTHERS = 3.
ENDFORM. " CLOSE_BDC
*& Form send_alert_data
Send Alert for the Expired Contract
FORM send_alert_data .
CLEAR: gv_lines,i_receivers, i_header, i_contents,i_doc_data.
REFRESH : i_receivers,i_header,i_contents.
DESCRIBE TABLE i_att LINES gv_lines.
i_receivers-receiver = gv_ernam.
i_receivers-receiver = 'SSHEIK'.
i_receivers-rec_type = 'B'.
i_receivers-rec_date = sy-datum.
i_receivers-express = 'X'.
i_receivers-com_type = 'INT'.
i_receivers-notif_del = 'X'.
APPEND i_receivers.
i_doc_data-obj_name = 'SAPoffice'(013).
i_doc_data-obj_descr = 'Reservations Reminder'(014).
i_doc_data-obj_langu = 'E'.
i_doc_data-no_change = c_x.
i_doc_data-obj_prio = 1.
i_doc_data-priority = 1.
i_doc_data-doc_size = ( gv_lines - 1 ) * 255 + 135.
i_pack_list-transf_bin = c_x.
i_pack_list-head_start = '1'.
i_pack_list-head_num = '1'.
i_pack_list-body_start = '1'.
i_pack_list-body_num = gv_lines.
i_pack_list-doc_type = 'DOC'.
i_pack_list-obj_name = 'SAPoffice'(013).
i_pack_list-obj_descr = 'Reservations Reminder'(014).
i_pack_list-obj_langu = 'E'.
i_pack_list-doc_size = ( gv_lines - 1 ) * 255 + 135.
APPEND i_pack_list.
i_header-line = 'Header'. APPEND i_header.
Data for contents
i_contents-line = 'Please find the Reservations Due List'(016).
APPEND i_contents.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = i_doc_data
PUT_IN_OUTBOX = 'X'
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
TABLES
packing_list = i_pack_list
object_header = i_header
contents_bin = i_att
contents_txt = i_contents
receivers = i_receivers
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 i000 WITH 'Mail Sucessfully sent'(017).
ELSE.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " send_alert_data
*& Form send_mail_external
Send mail to External MAIL ID of the PR Creator
FORM send_mail_external.
DATA : lv_str(24), lv_str1(40),
lv_pernr LIKE adr6-persnumber,
lv_adrnr LIKE adr6-addrnumber,
lv_usrid LIKE pa0105-usrid,
lv_mail LIKE adr6-smtp_addr,
lv_sendor TYPE syuname,
lv_receiver TYPE string,
lv_header TYPE string,
lv_body TYPE string.
CLEAR: lv_pernr, lv_usrid, lv_adrnr,
lv_mail, lv_sendor, lv_receiver,
lv_header, lv_body .
lv_usrid = gv_ernam.
SELECT SINGLE persnumber addrnumber FROM usr21
INTO (lv_pernr,lv_adrnr)
WHERE bname = lv_usrid.
IF sy-subrc = 0.
SELECT SINGLE smtp_addr INTO lv_mail FROM adr6
WHERE addrnumber = lv_adrnr AND
persnumber = lv_pernr.
IF sy-subrc <> 0.
CONCATENATE lv_usrid '@anc.com' INTO lv_mail.
lv_receiver = lv_mail.
ELSE.
lv_receiver = lv_mail.
ENDIF.
lv_receiver = '[email protected]'.
lv_sendor = 'JALKHATAM'.
lv_header = 'Reservations Reminder'(014).
lv_str = 'Pls check your SAP Inbox'(019).
lv_str1 = 'for the status of Reservations Due List'(020).
CONCATENATE lv_str lv_str1 INTO lv_body
SEPARATED BY space.
Call Function Module To send mail
CALL FUNCTION 'UWSP_SEND_MAIL_TO_WEB'
EXPORTING
id_header = lv_header
id_body = lv_body
id_receiver = lv_receiver
id_sender = lv_sendor
ID_HTML_MAIL =
id_commit_work = 'X'
EXCEPTIONS
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.
ENDIF.
ENDFORM. " send_mail_external
Reward points for useful Answers
Regards
Ashu

Issue Related to BDC Program against Recording

Similar Messages

Maybe you are looking for