HR OOPS BDC

Hello Gurus,
I have a requirement, to update HR OM IT 1222-Gen Attributes. The requirement is to update IT 1222 - Gen Att, through PP01 Tcode for both Position and Org Unit, at any point of time either position or Org unit should be upldated through Flat file (.txt or .csv). Now here we have records for creation, change and delete records.
Can any one suggest how can we achive the requirement.
Thanks
Ram

Ram,
If you want it to be done using BDC then i would suggest you to use Transaction Code PP02 instead of PP01.
Regards
Bala

Similar Messages

Bdc with oops

Hi iam new to abap objects. I was interested in bdc with oops. If any one knows the procedure send me, if possible with any sample code.................

this can be helpful.
OOPs ABAP uses Classes and Interfaces which uses Methods and events.
If you have Java skills it is advantage for you.
There are Local classes as well as Global Classes.
Local classes we can work in SE38 straight away.
But mostly it is better to use the Global classes.
Global Classes or Interfaces are to be created in SE24.
SAP already given some predefined classes and Interfaces.
This OOPS concepts very useful for writing BADI's also.
So first create a class in SE 24.
Define attributes, Methods for that class.
Define parameters for that Method.
You can define event handlers also to handle the messages.
After creation in each method write the code.
Methods are similar to ABAP PERFORM -FORM statements.
After the creation of CLass and methods come to SE38 and create the program.
In the program create a object type ref to that class and with the help of that Object call the methods of that Class and display the data.
Example:
REPORT sapmz_hf_alv_grid .
Type pool for icons - used in the toolbar
TYPE-POOLS: icon.
TABLES: zsflight.
To allow the declaration of o_event_receiver before the
lcl_event_receiver class is defined, decale it as deferred in the
start of the program
CLASS lcl_event_receiver DEFINITION DEFERRED.
G L O B A L I N T E R N A L T A B L E S
*DATA: gi_sflight TYPE STANDARD TABLE OF sflight.
To include a traffic light and/or color a line the structure of the
table must include fields for the traffic light and/or the color
TYPES: BEGIN OF st_sflight.
INCLUDE STRUCTURE zsflight.
Field for traffic light
TYPES: traffic_light TYPE c.
Field for line color
types: line_color(4) type c.
TYPES: END OF st_sflight.
TYPES: tt_sflight TYPE STANDARD TABLE OF st_sflight.
DATA: gi_sflight TYPE tt_sflight.
G L O B A L D A T A
DATA: ok_code LIKE sy-ucomm,
Work area for internal table
g_wa_sflight TYPE st_sflight,
ALV control: Layout structure
gs_layout TYPE lvc_s_layo.
Declare reference variables to the ALV grid and the container
DATA:
go_grid TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container,
o_event_receiver TYPE REF TO lcl_event_receiver.
DATA:
Work area for screen 200
g_screen200 LIKE zsflight.
Data for storing information about selected rows in the grid
DATA:
Internal table
gi_index_rows TYPE lvc_t_row,
Information about 1 row
g_selected_row LIKE lvc_s_row.
C L A S S E S
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING
e_object e_interactive,
handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.
ENDCLASS.
CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
Event handler method for event toolbar.
CONSTANTS:
Constants for button type
c_button_normal TYPE i VALUE 0,
c_menu_and_default_button TYPE i VALUE 1,
c_menu TYPE i VALUE 2,
c_separator TYPE i VALUE 3,
c_radio_button TYPE i VALUE 4,
c_checkbox TYPE i VALUE 5,
c_menu_entry TYPE i VALUE 6.
DATA:
ls_toolbar TYPE stb_button.
Append seperator to the normal toolbar
CLEAR ls_toolbar.
MOVE c_separator TO ls_toolbar-butn_type..
APPEND ls_toolbar TO e_object->mt_toolbar.
Append a new button that to the toolbar. Use E_OBJECT of
event toolbar. E_OBJECT is of type CL_ALV_EVENT_TOOLBAR_SET.
This class has one attribute MT_TOOLBAR which is of table type
TTB_BUTTON. The structure is STB_BUTTON
CLEAR ls_toolbar.
MOVE 'CHANGE' TO ls_toolbar-function.
MOVE icon_change TO ls_toolbar-icon.
MOVE 'Change flight' TO ls_toolbar-quickinfo.
MOVE 'Change' TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.
METHOD handle_user_command.
Handle own functions defined in the toolbar
CASE e_ucomm.
WHEN 'CHANGE'.
PERFORM change_flight.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMETHOD.
ENDCLASS.
S T A R T - O F - S E L E C T I O N.
START-OF-SELECTION.
SET SCREEN '100'.
*& Module USER_COMMAND_0100 INPUT
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
DATA:
For parameter IS_VARIANT that is sued to set up options for storing
the grid layout as a variant in method set_table_for_first_display
l_layout TYPE disvariant,
Utillity field
l_lines TYPE i.
After returning from screen 200 the line that was selected before
going to screen 200, should be selected again. The table gi_index_rows
was the output table from the GET_SELECTED_ROWS method in form
CHANGE_FLIGHT
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines > 0.
CALL METHOD go_grid->set_selected_rows
EXPORTING
it_index_rows = gi_index_rows.
CALL METHOD cl_gui_cfw=>flush.
REFRESH gi_index_rows.
ENDIF.
Read data and create objects
IF go_custom_container IS INITIAL.
Read data from datbase table
PERFORM get_data.
Create objects for container and ALV grid
CREATE OBJECT go_custom_container
EXPORTING container_name = 'ALV_CONTAINER'.
CREATE OBJECT go_grid
EXPORTING
i_parent = go_custom_container.
Create object for event_receiver class
and set handlers
CREATE OBJECT o_event_receiver.
SET HANDLER o_event_receiver->handle_user_command FOR go_grid.
SET HANDLER o_event_receiver->handle_toolbar FOR go_grid.
Layout (Variant) for ALV grid
l_layout-report = sy-repid. "Layout fo report
Setup the grid layout using a variable of structure lvc_s_layo
Set grid title
gs_layout-grid_title = 'Flights'.
Selection mode - Single row without buttons
(This is the default mode
gs_layout-sel_mode = 'B'.
Name of the exception field (Traffic light field) and the color
field + set the exception and color field of the table
gs_layout-excp_fname = 'TRAFFIC_LIGHT'.
gs_layout-info_fname = 'LINE_COLOR'.
LOOP AT gi_sflight INTO g_wa_sflight.
IF g_wa_sflight-paymentsum < 100000.
Value of traffic light field
g_wa_sflight-traffic_light = '1'.
Value of color field:
C = Color, 6=Color 1=Intesified on, 0: Inverse display off
g_wa_sflight-line_color = 'C610'.
ELSEIF g_wa_sflight-paymentsum => 100000 AND
g_wa_sflight-paymentsum < 1000000.
g_wa_sflight-traffic_light = '2'.
ELSE.
g_wa_sflight-traffic_light = '3'.
ENDIF.
MODIFY gi_sflight FROM g_wa_sflight.
ENDLOOP.
Grid setup for first display
CALL METHOD go_grid->set_table_for_first_display
EXPORTING i_structure_name = 'SFLIGHT'
is_variant = l_layout
i_save = 'A'
is_layout = gs_layout
CHANGING it_outtab = gi_sflight.
*-- End of grid setup -
Raise event toolbar to show the modified toolbar
CALL METHOD go_grid->set_toolbar_interactive.
Set focus to the grid. This is not necessary in this
example as there is only one control on the screen
CALL METHOD cl_gui_control=>set_focus EXPORTING control = go_grid.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0200 INPUT
MODULE user_command_0200 INPUT.
CASE ok_code.
WHEN 'EXIT200'.
LEAVE TO SCREEN 100.
WHEN'SAVE'.
PERFORM save_changes.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*& Form get_data
FORM get_data.
Read data from table SFLIGHT
SELECT *
FROM zsflight
INTO TABLE gi_sflight.
ENDFORM. " load_data_into_grid
*& Form change_flight
Reads the contents of the selected row in the grid, ans transfers
the data to screen 200, where it can be changed and saved.
FORM change_flight.
DATA:l_lines TYPE i.
REFRESH gi_index_rows.
CLEAR g_selected_row.
Read index of selected rows
CALL METHOD go_grid->get_selected_rows
IMPORTING
et_index_rows = gi_index_rows.
Check if any row are selected at all. If not
table gi_index_rows will be empty
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines = 0.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
textline1 = 'You must choose a line'.
EXIT.
ENDIF.
Read indexes of selected rows. In this example only one
row can be selected as we are using gs_layout-sel_mode = 'B',
so it is only ncessary to read the first entry in
table gi_index_rows
LOOP AT gi_index_rows INTO g_selected_row.
IF sy-tabix = 1.
READ TABLE gi_sflight INDEX g_selected_row-index INTO g_wa_sflight.
ENDIF.
ENDLOOP.
Transfer data from the selected row to screenm 200 and show
screen 200
CLEAR g_screen200.
MOVE-CORRESPONDING g_wa_sflight TO g_screen200.
LEAVE TO SCREEN '200'.
ENDFORM. " change_flight
*& Form save_changes
Changes made in screen 200 are written to the datbase table
zsflight, and to the grid table gi_sflight, and the grid is
updated with method refresh_table_display to display the changes
FORM save_changes.
DATA: l_traffic_light TYPE c.
Update traffic light field
Update database table
MODIFY zsflight FROM g_screen200.
Update grid table , traffic light field and color field.
Note that it is necessary to use structure g_wa_sflight
for the update, as the screen structure does not have a
traffic light field
MOVE-CORRESPONDING g_screen200 TO g_wa_sflight.
IF g_wa_sflight-paymentsum < 100000.
g_wa_sflight-traffic_light = '1'.
C = Color, 6=Color 1=Intesified on, 0: Inverse display off
g_wa_sflight-line_color = 'C610'.
ELSEIF g_wa_sflight-paymentsum => 100000 AND
g_wa_sflight-paymentsum < 1000000.
g_wa_sflight-traffic_light = '2'.
clear g_wa_sflight-line_color.
ELSE.
g_wa_sflight-traffic_light = '3'.
clear g_wa_sflight-line_color.
ENDIF.
MODIFY gi_sflight INDEX g_selected_row-index FROM g_wa_sflight.
Refresh grid
CALL METHOD go_grid->refresh_table_display.
CALL METHOD cl_gui_cfw=>flush.
LEAVE TO SCREEN '100'.
ENDFORM. " save_changes
chk this blog
/people/vijaybabu.dudla/blog/2006/07/21/topofpage-in-alv-using-clguialvgrid
with regards,
Hema SUndara.

Finding of predefined (ALV Reports , BDC Programs ,ALVReports using OOps )

Hi All
How to Finding of predefined (ALV Reports , BDC Programs ,ALVReports using OOps ) and how to know particular include prog is holing specific logic & how to re-use that includes & Perform .
Thanks in Adv
Rgds
Rafi .V

Hi,
Refer this link for ALV oops.
Re: ALV HELP
Thanks,
Anitha

BDC using oops

hi,
can any post me bdc using oops that is material creation.
plz its urgent

Hi Friend,
Please do not use BDC to create material.
Use BAPI BAPI_MATERIAL_SAVEDATA to create a material, it will tackle OOPS scenario also.
Regards
Krishnendu

OOPS in BDC (Call Transaction )

Hi all ,
    Can anyone tell me how call transactin using OOPS works ? If any example or materials would help me.
Thanks and Regards
Raghav

Create a method of class or object. Inside that method, do 'Call Transaction'. For example see business object BUS2038 (maintenance notification) using transtion SWO1 ( it is O for orange not 0(zero)). Select method 'MaintenanceNotific.Display' and press 'Program button' on application Bar. You will see the following code.
BEGIN_METHOD DISPLAY CHANGING CONTAINER.
SET PARAMETER ID 'IQM' FIELD OBJECT-KEY-NUMBER.
CALL TRANSACTION 'IW23' AND SKIP FIRST SCREEN.
END_METHOD.
I hope it helps.

Creation of Material using BDC Session method & global class

Hi
Creation of Material using BDC Session method & global class by using oops.
can anyone plz help me out

Hi,
it looks like it's not possible to call this BAPI wihtout material number. Here is a quote from BAPI documentation.
When creating material master data, you must transfer the material
number, the material type, and the industry sector to the method. You
must also enter a material description and its language.
Cheers

Oops programming in abap

hi,
i need oops programming in abap where in i need only programmin and coding tecnique strictly(dont want theory)means where oops programming needs in reporting,alv and bdc ,i need only programming related material,so if any body having the connecting links or material or objects regarding the above said things kindly reply me here or by sending mail to [email protected]

Hi ...
Here i am sending you one Link.....Follow this link and there you can find
theory as well as the sample code examples for every technology in ABAP.
Go for:- http://abapprogramming.blogspot.com/2007/10/oops-abap-2.html.
Regards,
Mandeep.
Note: Plz do not forget to award points if reply is useful.

Meaning of synchronous and Asynchronous in BDC

Hi Guys,
1) What is a maning of synchronous and Asynchronous in BDC, what is a diffrence betwwen both?
2) Can you please provide ABAP OOPS real time question and answer?
Thanks
Jigar

in simple,
Synchronous:
- COMMIT WORK AND WAIT:
-System waits until the database updation is completed.....then, system continues to execute after the piece.....if some thing wrong in updation, then, the rest piece do not executes!!
-here, we get sy-subrc return value, so, some times, we can write rest prog. based on this retun value, either sucess or failure, like in some scenarios, we write CALL TRANSACTION with 'S', other wise its normally, Asynchronous!!
- takes more time
-mostly, batch input
-example, say, there is Materail doc posting and associated accouting doc posting.....so, if material doc is successful, then only acc. doc will be get posted
Asynchronous:
-COMMIT WORK
-does not depend on the updation
-quick relatively
-mostly CALL TRANSACTION
- no return code
for further, pls. go thru SDN
thanq

I hav to upload bdc for vk11 trans and table konv.

hi experts,
i m new in BDC... i hav to upload bdc for vk11 trans and table konv.
frst doubt is
i hv to run shdb transc?? or just i hv to write program??
nd cn any1 send me teps as hw to create upload..
Condition Type Sales Organisation Distribution channel Material Price Unit Valid from Valid to
KSCHL VKORG VTWEG MATNR_01 KBETR_01 KPEIN_01 DATAB_01 DATBI_01
now plz tel me hw to do this...whether to run shdb or jus to write program in se38..
or i hv to do both...bt plz tel me step by step

Please don't ignore the warnings. Read the rules of engagement.
Thread locked, again.
Thomas
wrking on ABAP OOPS, oput is coming but 1 field name wd customer name is nt

Wrking on ABAP OOPS, oput is coming but 1 field name wd customer name is nt

Hello,
I am working on ABAP OOPS for first time, Report is workin fine but onr custmer name field is not coming,. cn u plz help..i hv gone thrugh sme steps like frst i gone thrugh system status..den i clk on set_table for frst display..b den on t_output...where wll i get the fields..???
Edited by: SAPKTAN on Feb 27, 2010 7:52 AM

hi experts,
i m new in BDC... i hav to upload bdc for vk11 trans and table konv. now uploading is basically ..
frst doubt is
i hv to run shdb transc?? or just i hv to write program??
nd cn any1 send me teps as hw to create upload..
Condition Type Sales Organisation Distribution channel Material Price Unit Valid from Valid to
KSCHL VKORG VTWEG MATNR_01 KBETR_01 KPEIN_01 DATAB_01 DATBI_01
now plz tel me hw to do this...whether to run shdb or jus to write program in se38..
or i hv to do both...bt plz tel me step by step

Submission of BDC Program in Module Pool fails

HI,
I have written the BDC Program to change the position text using 'PP01' . When it is executed, its changing the value correctly.
In my module Pool Program, i am calling the BDC Program using SUBMIT as background job . But it throws an RUN TIME ERROR.
Could you please let me know, whether is this possible or not?
Thanks in advance.
Thanks,
K.Tharani

Hi Tharani.
Please check whether u has been used OOPS ALV (using Costom container)in module pool programming. If that was the case, system throws an rum time error.
Regards,
surya.

Error while running a BDC for the Transaction F-02

Hi,
 I'm getting an error "Parking not possible during Batch Input" while running a BDC for the transaction F-02.
 When i click on the error message it displays the message [b]"In Customizing, you can control whether an error message is issued."
 How to solve this issue?.
 Waiting for ur replies.........
Regards
N.Senthil

Hi,
When you are doing the recording in SHDB, and in the same screen where the TCODE to be recorded is given, there are options that you can choose called "Recording Parameters"...Select the checkbox which says "Not a Batch Input Session", this will set the sy-binpt variable to " "(in a recording by default it is "X")...and you will not get this error...
Also make sure while writing the BDC program to make use of the "bdc options" parameter which has this property to switch of sy-binpt...
 Refer below theard for sample bdc code for f-02.
https://forums.sdn.sap.com/click.jspa?searchID=5126766&messageID=1538409
Regards

Unable to update the serial number through bdc in Sales Order

Hi experts,
I written the inboud FM for to update the 3rd party items serial number to the sales orders through BDC Call transaction Method.
Here i am facing a problem when i have the 19 item Quan ,it is updating correct through idoc , when ever there is moe than 19 and at that if any serial number repeated for that if i am changing at that time it is loosing the control of the BDC and giving the control to the salesorder screen.
how can i handle that control again has to come to BDC prgrm......
Thnks,
Regards,
Bharani

Hi,
Can you please let me know the segment in ORDERS05 Idoc to process the Payment card information and if the standard Function Module can handle the creation of a Sales Order with data for Payment Card.
We have a requirement to map the Tokenized Number of the Credit Card send from a store front end to ECC mapping via SAP-PI.
Thanks in Advance,

MULTIPLE ITEM PROBLEM IN VL31N BDC

hI FRIENDS ,
 I AM POSTING A BDC OF TRANSACTION VL31N ,ie FOR SCHEDULE AGREEMENT INBOUND DELIVERY.I CREATE A FUNCTIONAL MODULE OF THE SAME AND CALL IT FROM AN ASP PAGE,IN THAT THERE IS PO NUMBER 5500000986 WHICH HAS TWO ITEMES 62 AND 95 RESPECTIVLY OF SAME MATARIAL NUMBER R010230123041002 AND DIE NUMBER 2304P,NOW THE PROBLEM IS THIS BDC IS WORKING WHEN THERE IS ONLY ONE ITEM BUT GIVES AN ERROR "CANT CREAT INBOUND DELIVERY FOR PO NO ...' WNEN IT HAS MULTIPLE ITEM.WHAT SHOULD I DO ? I ALSO USED LOOP BUT IT ALSO DOSENT WORK AS IT WILL ADD ALL OPEN QTY OF PO 986 AND UPDATE AGAINST ITEM NO 95.
CODE IS AS FOLLOWS:.........
FUNCTION y_synie_bdcinbdly.
""Local interface:
*" IMPORTING
*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
*" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
*" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
*" VALUE(USER) LIKE APQI-USERID OPTIONAL
*" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
*" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
*" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
*" VALUE(EXTNID) LIKE MAKT-MAKTG
*" VALUE(VENDORNO) LIKE LFA1-LIFNR
*" VALUE(PONUMBER) LIKE EKKO-EBELN
*" VALUE(ITEMNUMBER) LIKE LIPS-VGPOS
*" VALUE(MATERIAL) LIKE MAKT-MAKTG
*" VALUE(DLYQTY) LIKE LIPS-LFIMG
*" VALUE(BTCHNO) LIKE LIPS-CHARG
*" VALUE(POSLR) LIKE EKES-EBELP OPTIONAL
*" EXPORTING
*" VALUE(SUBRC) LIKE SYST-SUBRC
*" VALUE(INDELYNO) LIKE SY-MSGV2
*" VALUE(MSG1) LIKE SY-MSGV1
*" VALUE(MSG2) LIKE SY-MSGV2
*" VALUE(MSG3) LIKE SY-MSGV3
*" VALUE(MSG4) LIKE SY-MSGV4
*" TABLES
*" MESSTAB STRUCTURE BDCMSGCOLL
*" ERRTAB STRUCTURE YSYNERRMSGS
*" INDLYTAB STRUCTURE YSYN_QTYTAB
Updated by ANAND SYNISE 19.1.2007
DATA: BEGIN OF bdctab OCCURS 0.
 INCLUDE STRUCTURE bdcdata.
DATA: END OF bdctab.
DATA: datenow(10) TYPE c,
 fldvar(30) TYPE c,
 fldno TYPE i,
 flditoc(6) TYPE c,
 qty(13) TYPE c.
DATA maxposnr LIKE lips-posnr.
DATA testposnr TYPE posnr.
DATA itemnoint TYPE i.
CONCATENATE sy-datum6(2) '.' sy-datum4(2) '.' sy-datum+0(4) INTO datenow.
CLEAR bdctab.
REFRESH bdctab.
PERFORM open_group USING group user keep holddate ctu.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '4007'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'RV50A-VERUR_LA'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '/00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-LIFNR'.
 bdctab-fval = vendorno.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LV50C-BSTNR'.
 bdctab-fval = ponumber.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-VERUR_LA'.
 bdctab-fval = extnid.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '1000'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '=MKAL_T'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'LIKP-BLDAT'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-BLDAT'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '1000'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '=POPO_T'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-BLDAT'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'LIPS-POSNR(01)'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '0111'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'RV50A-PO_MATNR'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = 'WEIT'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-PO_MATNR'.
 bdctab-fval = material.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '1000'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '=POLO_T'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-BLDAT'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'LIPS-POSNR(01)'.
 APPEND bdctab.
*ADDED BY ANAND ON 22-01-2007
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = ITEMNUMBER . "ITEMNUMBER = LIPS-VGPOS
 APPEND bdctab.
************ENDED***********************
ADDED BY MILIND 19.01.2007
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = poslr .
 APPEND bdctab.
* ENDED * *
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LIPS_SELKZ(01)'.
 bdctab-fval = ''.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '1000'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '/00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-BLDAT'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'LIPS-CHARG(01)'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 QTY = INDLYTAB-DLYQTY.
 qty = dlyqty.
 bdctab-fnam = 'LIPSD-G_LFIMG(01)'.
 bdctab-fval = QTY.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIPS-CHARG(01)'.
* BDCTAB-FVAL = INDLYTAB-BTCHNO.
 bdctab-fval = btchno.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-program = 'SAPMV50A'.
 bdctab-dynpro = '1000'.
 bdctab-dynbegin = 'X'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_OKCODE'.
 bdctab-fval = '=SICH_T'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'LIKP-BLDAT'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_CURSOR'.
 bdctab-fval = 'LIPS-MATNR(02)'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFDAT_LA'.
 bdctab-fval = datenow.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'RV50A-LFUHR_LA'.
 bdctab-fval = '00:00'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
 CLEAR bdctab.
 bdctab-fnam = 'BDC_SUBSCR'.
 bdctab-fval = 'SAPMV50A'.
 APPEND bdctab.
CALL TRANSACTION 'VL31N' USING bdctab MODE 'N' MESSAGES INTO messtab.
subrc = sy-subrc.
PERFORM close_group USING ctu.
CLEAR bdctab.
REFRESH bdctab.
IF sy-subrc EQ 0.
 indelyno = sy-msgv2.
ENDIF.
LOOP AT messtab.
 MOVE: messtab-msgid TO errtab-msgid,
 messtab-msgnr TO errtab-msgnr,
 messtab-msgv1 TO errtab-msg1,
 messtab-msgv2 TO errtab-msg2,
 messtab-msgv3 TO errtab-msg3,
 messtab-msgv4 TO errtab-msg4.
 APPEND ERRtab.
ENDLOOP.
LOOP AT errtab.
 SELECT SINGLE text FROM t100
 INTO errtab-errmsg
 WHERE msgnr EQ errtab-msgnr AND arbgb EQ errtab-msgid
 AND sprsl EQ sy-langu.
 MODIFY errtab.
ENDLOOP.
ENDFUNCTION.

Hi,
Check this code:
REPORT Z_CUSTOMER_UPLOAD .
 D A T A D E C L A R A T I O N S *
DATA:BEGIN OF IT_CUSTOMER OCCURS 0,
 KUNNR LIKE MV10A-KUNNR,
 VKORG LIKE MV10A-VKORG,
 VTWEG LIKE MV10A-VTWEG,
 MATNR LIKE MV10A-MATNR,
 KDMAT LIKE MV10A-KDMAT,
 MEGRU LIKE MV10A-MEGRU,
 SELKZ TYPE C value 'X',
 LPRIO LIKE MV10A-LPRIO,
 ANTLF LIKE MV10A-ANTLF,
 END OF IT_CUSTOMER.
DATA:BEGIN OF IT_success OCCURS 0,
 KUNNR LIKE MV10A-KUNNR,
 VKORG LIKE MV10A-VKORG,
 VTWEG LIKE MV10A-VTWEG,
 MATNR LIKE MV10A-MATNR,
 KDMAT LIKE MV10A-KDMAT,
 MEGRU LIKE MV10A-MEGRU,
 SELKZ TYPE C value 'X',
 LPRIO LIKE MV10A-LPRIO,
 ANTLF LIKE MV10A-ANTLF,
 END OF IT_success.
DATA:BEGIN OF IT_error OCCURS 0,
 KUNNR LIKE MV10A-KUNNR,
 VKORG LIKE MV10A-VKORG,
 VTWEG LIKE MV10A-VTWEG,
 MATNR LIKE MV10A-MATNR,
 KDMAT LIKE MV10A-KDMAT,
 MEGRU LIKE MV10A-MEGRU,
 SELKZ TYPE C value 'X',
 LPRIO LIKE MV10A-LPRIO,
 ANTLF LIKE MV10A-ANTLF,
 END OF IT_error.
DATA: L_INDEX TYPE SY-TABIX.
DATA:IT_BDC LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
IT_DATA TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
ERROR MESSAGE TABLE
DATA:IT_MESSAGES LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA : C_S TYPE C VALUE 'S',
 C_E TYPE C VALUE 'E'.
*DATA: IT_SUCCESS LIKE IT_CUSTOMER OCCURS 0,
 IT_ERROR LIKE IT_CUSTOMER OCCURS 0.
DATA : V_RECTOT TYPE I,
 V_RECERR TYPE I,
 V_RECSUC TYPE I.
 S E L E C T I O N - S C R E E N *
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : P_FILE LIKE RLGRAP-FILENAME .
SELECTION-SCREEN : END OF BLOCK B1.
 A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
to get F4 help for p_file
PERFORM F4_FILENAME USING P_FILE.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
Uploading data from flat file into it_tab
PERFORM BDC_UPLOAD USING P_FILE.
PERFORM PROCESS_DATA.
PERFORM POPULATE_BDC.
 E N D O F S E L E C T I O N *
*END-OF-SELECTION.
PERFORM DISPLAY_REPORT.
*& Form F4_FILENAME
 text
 -->P_P_FILE text
FORM F4_FILENAME USING P_P_FILE.
DATA:L_FILE TYPE IBIPPARMS-PATH.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
 FILE_NAME = L_FILE .
 P_P_FILE = L_FILE.
ENDFORM. " F4_FILENAME
*& Form BDC_UPLOAD
 text
 -->P_P_FILE text
FORM BDC_UPLOAD USING P_P_FILE.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
 FILENAME = P_P_FILE
 I_BEGIN_COL = 1
 I_BEGIN_ROW = 1
 I_END_COL = 8
 I_END_ROW = 1000
TABLES
 INTERN = IT_DATA
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. " BDC_UPLOAD
*& Form PROCESS_DATA
 text
--> p1 text
<-- p2 text
FORM PROCESS_DATA.
SORT IT_DATA BY ROW COL.
LOOP AT IT_DATA.
CASE IT_DATA-COL.
WHEN 1.
IT_CUSTOMER-KUNNR = IT_DATA-VALUE.
WHEN 2.
IT_CUSTOMER-VKORG = IT_DATA-VALUE.
WHEN 3.
IT_CUSTOMER-VTWEG = IT_DATA-VALUE.
WHEN 4.
IT_CUSTOMER-MATNR = IT_DATA-VALUE.
WHEN 5.
IT_CUSTOMER-KDMAT = IT_DATA-VALUE.
WHEN 6.
IT_CUSTOMER-MEGRU = IT_DATA-VALUE.
WHEN 7.
IT_CUSTOMER-LPRIO = IT_DATA-VALUE.
WHEN 8.
IT_CUSTOMER-ANTLF = IT_DATA-VALUE.
APPEND IT_CUSTOMER.
 ENDCASE.
ENDLOOP.
ENDFORM. " PROCESS_DATA
*& Form POPULATE_BDC
 text
--> p1 text
<-- p2 text
FORM POPULATE_BDC.
DATA:L_COUNTER TYPE N,
 L_STRING TYPE STRING.
LOOP AT IT_CUSTOMER.
AT NEW KUNNR.
CLEAR L_COUNTER.
 L_INDEX = SY-TABIX.
 READ TABLE IT_CUSTOMER INDEX L_INDEX.
perform bdc_dynpro using 'SAPMV10A' '0100'.
perform bdc_field using 'MV10A-KUNNR'
 IT_CUSTOMER-KUNNR.
perform bdc_field using 'MV10A-VKORG'
 IT_CUSTOMER-VKORG.
perform bdc_field using 'MV10A-VTWEG'
 IT_CUSTOMER-VTWEG.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
ENDAT.
L_COUNTER = L_COUNTER + 1.
 CLEAR L_STRING.
perform bdc_dynpro using 'SAPMV10A' '0200'.
CONCATENATE 'MV10A-MATNR(' L_COUNTER ')' INTO L_STRING.
perform bdc_field using L_STRING
 IT_CUSTOMER-MATNR.
CONCATENATE 'MV10A-KDMAT(' L_COUNTER ')' INTO L_STRING.
perform bdc_field using L_STRING
 IT_CUSTOMER-KDMAT.
CONCATENATE 'MV10A-MEGRU(' L_COUNTER ')' INTO L_STRING.
perform bdc_field using L_STRING
 IT_CUSTOMER-MEGRU.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
*-- For Page down in Call Transaction Mode
 IF L_COUNTER = 14.
 CLEAR L_COUNTER.
 PERFORM BDC_DYNPRO USING 'SAPMV45A' '4001'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=P+'.
 ENDIF.
perform bdc_dynpro using 'SAPMV10A' '0200'.
CONCATENATE 'MV10A-SELKZ(' L_COUNTER ')' INTO L_STRING.
perform bdc_field using L_STRING
 IT_CUSTOMER-SELKZ.
perform bdc_field using 'BDC_OKCODE'
 '=SELE'.
perform bdc_dynpro using 'SAPMV10A' '0300'.
perform bdc_field using 'MV10A-KDMAT'
 IT_CUSTOMER-KDMAT.
perform bdc_field using 'MV10A-LPRIO'
 IT_CUSTOMER-LPRIO.
perform bdc_field using 'MV10A-ANTLF'
 IT_CUSTOMER-ANTLF.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '/EBACK'.
at end of kunnr.
READ TABLE IT_CUSTOMER INDEX L_INDEX.
perform bdc_field using 'BDC_OKCODE'
 '=SICH'.
CALL TRANSACTION 'VD51' USING IT_BDC MODE 'A' UPDATE 'S'
 MESSAGES INTO IT_MESSAGES.
 CLEAR IT_BDC.
 REFRESH IT_BDC.
ENDAT.
IF NOT IT_MESSAGES[] IS INITIAL.
 PERFORM FORMAT_MESSAGE.
ENDIF.
ENDLOOP.
ENDFORM. " POPULATE_BDC
*& Form bdc_dynpro
 text
 -->P_0273 text
 -->P_0274 text
FORM bdc_dynpro USING VALUE(P_0273)
 VALUE(P_0274).
IT_BDC-PROGRAM = P_0273.
IT_BDC-DYNPRO = P_0274.
IT_BDC-DYNBEGIN = 'X'.
APPEND IT_BDC.
CLEAR IT_BDC.
ENDFORM. " bdc_dynpro
*& Form bdc_field
 text
 -->P_0278 text
 -->P_RECORD_KUNNR_001 text
FORM bdc_field USING VALUE(P_0278)
 VALUE(P_0279).
IT_BDC-FNAM = P_0278.
IT_BDC-FVAL = P_0279.
APPEND IT_BDC.
CLEAR IT_BDC.
ENDFORM. " bdc_field
*& Form FORMAT_MESSAGE
 text
--> p1 text
<-- p2 text
FORM FORMAT_MESSAGE.
DATA: L_MSG(100).
LOOP AT IT_MESSAGES.
READ TABLE IT_CUSTOMER INDEX L_INDEX.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 ID = IT_MESSAGES-MSGID
 LANG = SY-LANGU
 NO = IT_MESSAGES-MSGNR
 V1 = IT_MESSAGES-MSGV1
 V2 = IT_MESSAGES-MSGV2
 V3 = IT_MESSAGES-MSGV3
 V4 = IT_MESSAGES-MSGV4
 IMPORTING
 MSG = L_MSG
 EXCEPTIONS
 NOT_FOUND = 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.
 write:/ l_msg.
ENDLOOP.
ENDFORM. " FORMAT_MESSAGE
reward if helpful,
keerthi

Creation of PGI using BDC for tc VL02N is not happening..

Hi All,
i need to do Post Goods Issue (PGI) thro' BDC and after that i need to update the flag in Ztable.
its giving Success message and updating the database also.
but its not issuing the PGI.and further i want to create billing doc.So its compulsory to me to post PGI.
if i look into the BDCMSGCOLL structure its giving "NO BATCH INPUT DATA FOR SCREEN"? why this is happening?
please let me know immediately....
REFRESH: tt_bdcmsgcoll .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = wa_created-document_numb
 IMPORTING
 output = wa_created-document_numb.
REFRESH tt_bdcdata.
PERFORM bdc_dynpro USING text-001 text-002.
PERFORM bdc_field USING text-008
 text-014.
PERFORM bdc_field USING text-009
 text-011.
PERFORM bdc_field USING text-014
 wa_created-document_numb.
PERFORM bdc_dynpro USING text-001 text-003.
PERFORM bdc_field USING text-009
 text-036.
PERFORM bdc_field USING text-025
 sy-datum.
PERFORM bdc_field USING text-008
 text-035.
PERFORM bdc_field USING text-037
 sy-datum.
PERFORM bdc_field USING text-038
 text-029.
PERFORM bdc_field USING text-016
 c_x.
CALL TRANSACTION c_t_del USING tt_bdcdata
 MODE c_m
 UPDATE c_u
 MESSAGES INTO tt_bdcmsgcoll .
SORT tt_bdcmsgcoll BY msgtyp.
READ TABLE tt_bdcmsgcoll INTO wa_bdcmsgcoll WITH KEY msgtyp = c_e.
IF sy-subrc EQ 0.
 LOOP AT tt_bdcmsgcoll INTO wa_bdcmsgcoll WHERE msgtyp = c_e.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = wa_bdcmsgcoll-msgid
 lang = text-010
 no = wa_bdcmsgcoll-msgnr
 v1 = wa_bdcmsgcoll-msgv1
 v2 = wa_bdcmsgcoll-msgv2
 v3 = wa_bdcmsgcoll-msgv3
 v4 = wa_bdcmsgcoll-msgv4
 IMPORTING
 msg = v_msg
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 ENDIF.
 WRITE :/ v_msg.
 ENDLOOP.
ELSE.
 MOVE : c_x TO wa_worklist-pgi_flag.
 READ TABLE tt_epit INTO wa_epit WITH KEY epi_id = wa_worklist-epi_id epi_sr = wa_worklist-epi_sr.
 IF sy-subrc EQ 0.
 MODIFY tt_epit FROM wa_worklist TRANSPORTING pgi_flag WHERE epi_id = wa_worklist-epi_id AND epi_sr = wa_worklist-epi_sr.
 ELSE.
 APPEND wa_worklist TO tt_epit.
 ENDIF.
 wa_epit-pgi_flag = c_x.
 MODIFY tt_epit FROM wa_epit TRANSPORTING pgi_flag WHERE epi_id = wa_worklist-epi_id AND del_no = wa_created-document_numb .
 UPDATE zsd_dt_epit SET pgi_flag = 'X' WHERE epi_id = wa_worklist-epi_id AND del_no = wa_created-document_numb .
 IF sy-subrc EQ 0.
 ENDIF.
ENDIF.

HI,
Please refer this
To perform Post goods issue
 PERFORM OPEN_GROUP.
 PERFORM BDC_DYNPRO USING 'SAPMV50A' '4004'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'LIKP-VBELN'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=WABU_T'.
 PERFORM BDC_FIELD USING 'LIKP-VBELN' DELIVERY.
 '84000064'.
 PERFORM BDC_TRANSACTION USING 'VL02N'.
 PERFORM CLOSE_GROUP.
 CLEAR : DELIVERY,
 T_BSITEM,
 T_BSICTL.
ENDIF.
ENDFORM. " DELIVERY

HR OOPS BDC

Similar Messages

Maybe you are looking for