Data populated in internal Table its not diplay in result

Hi ABAPers,
i have one doubt in internal table one field data is populated but in result its diplayed. can any one tell me the solution for this
regards,
kishore.

hi this is a simple report on internal table.
REPORT zvenkattest0.
TABLES:pa0002,pa0008.
data:begin of it_pa0002 occurs 0,
     pernr like pa0002-pernr,
     begda like pa0002-begda,
     endda like pa0002-endda,
     vorna like pa0002-vorna,
     nachn like pa0002-nachn,
     end of it_pa0002.
SELECT-OPTIONS: S_pernr FOR pa0002-pernr.
START-OF-SELECTION.
SELECT pernr
         begda
         endda
         vorna
         nachn
         FROM pa0002
         INTO TABLE IT_pa0002
         WHERE pernr IN S_pernr.
sort it_pa0002 by pernr begda descending.
loop at it_pa0002.
write:/ it_pa0002-pernr,
        it_pa0002-begda,
        it_pa0002-endda,
        it_pa0002-vorna,
        it_pa0002-nachn.
endloop.
reward points if useful,
venkat.

Similar Messages

Fetching data from one internal table and populating into other table

hi
i am working on a report program.
here,i have my data in a internal table(having only one field) i.e. only one column in the table.
now i want to populate this data into other internal internal table that has 13fields i.e. 13 columns.
so could anyone let me know how can i work on this.
i am looping the internal table with one field into a work area from there i am not able to proceed ahead.
thanks in advance

hi
i would like to clear one point here i.e. my internal table into which i want to populate data is a dynamic internal table....so i cant give the fieldnames here..
here i am pasting the code..so that u may get some idea...
"generating dynamic internal table :
ref_descr ?= cl_abap_typedescr=>describe_by_data( it_itab ).
it_details[] = ref_descr->components[].
loop at it_details into wa_comp.
cnt = cnt + 1.
wa_fcat-col_pos = cnt.
wa_fcat-fieldname = wa_comp-name.
append wa_fcat to t_fcat.
endloop.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
 I_STYLE_TABLE =
 IT_FIELDCATALOG = t_fcat
 I_LENGTH_IN_BYTE =
IMPORTING
 EP_TABLE = lo_table
 E_STYLE_FNAME =
EXCEPTIONS
 GENERATE_SUBPOOL_DIR_FULL = 1
 others = 2
so lo_table is my dynamic internal table.
ASSIGN lo_table->* TO <f_tab>.
using the GUI_UPLOAD i have uploaded the data file(separated by semicolon) from presentation server and its in the table itab.
with the following logic i am capturing the data in between the semicolon's.
LOOP AT itab INTO wa_itab.
find all occurrences of c_semicolon in wsg_string results result_tab.
loop at result_tab into wa_reslt.
if sy-tabix = 1.
str1 = wsg_string+0(wa_reslt-offset).
wa_prev_offset = wa_reslt-offset.
wa_prev_offset = wa_prev_offset + 1.
clear str1.
else.
 count = wa_reslt-offset - wa_prev_offset.
 count = count.
str2 = wsg_string+wa_prev_offset(count).
clear str2.
wa_prev_offset = wa_reslt-offset.
wa_prev_offset = wa_prev_offset + 1.
enddo.
endif.
endloop.
data is there in the fields str1 and str2.now i want to populate this data into dynamic internal table row-wise.
could anyone suggest me how can i do this

Passing data to different internal tables with different columns from a comma delimited file

Hi,
I have a program wherein we upload a comma delimited file and based on the region( we have drop down in the selection screen to pick the region). Based on the region, the data from the file is passed to internal table. For region A, we have 10 columns and for region B we have 9 columns.
There is a split statement (split at comma) used to break the data into different columns.
I need to add hard error messages if the no. of columns in the uploaded file are incorrect. For example, if the uploaded file is of type region A, then the uploaded file should be split into 10 columns. If the file contains lesser or more columns thenan error message should be added. Similar is the case with region B.
I do not want to remove the existing split statement(existing code). Is there a way I can exactly pass the data into the internal table accurately? I have gone through some posts where in they have made use of the method cl_alv_table_create=>create_dynamic_table by passing the field catalog. But I cannot use this as I have two different internal tables to be populated based on the region. Appreciate help on this.
Thanks,
Pavan

Hi Abhishek,
I have no issues with the rows. I have a file with format like a1,b1,c1,d1,e1, the file should be uploaded and split at comma. So far its fine. After this, if the file is related to region A say Asia, then it should have 5 fields( as an example). So, all the 5 values a1,b1..e1 will be passed to 5 fields of itab1.
I also have region B( say Europe) whose file will have only 4 fields. So, file is of the form a2,b2,c2,d2. Again data is split at comma and passed to itab2.
If some one loads file related to Asia and the file has only 4 fields then the data would be incorrect. Similar is the case when someone tries to load Europe file with 5 fields related data. To avoid this, I want to validate the data uploaded. For this, I want to count the no. of fields (seperated by comma). If no. of fields is 5 then the file is related to Asia or if no. of fields is 4 then it is Europe file.
Well, the no. of commas is nothing but no. of fields - 1. If the file is of the form a1,b1..e1 then I can say like if no. of commas = 4 then it is File Asia.But I am not sure how to write a code for this.Please advise.
Thanks,
Pavan

How to copy data from one internal table to another

i am using some function module to get some data for my function module
and the retrieved data is not getting populated in mu fumctional module
i am sucessful in getting the data to an internal table in my function module but dont know how to pass it to my table parameter
thanks in advance

Hi Naval,
Declare an internal table of type table parameter structure and pass it the table parameters of the Function module.
Check the code for this function module.
DATA IT_MARA LIKE MARA OCCURS 0 WITH HEADER LINE.
SELECT * FROM MARA UP TO 10 ROWS INTO TABLE IT_MARA.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\TEST.TXT'. FILETYPE = 'ASC'
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = IT_MARA
 EXCEPTIONS
 FILE_WRITE_ERROR = 1
 NO_BATCH = 2
 GUI_REFUSE_FILETRANSFER = 3
 INVALID_TYPE = 4
 NO_AUTHORITY = 5
 UNKNOWN_ERROR = 6
 HEADER_NOT_ALLOWED = 7
 SEPARATOR_NOT_ALLOWED = 8
 FILESIZE_NOT_ALLOWED = 9
 HEADER_TOO_LONG = 10
 DP_ERROR_CREATE = 11
 DP_ERROR_SEND = 12
 DP_ERROR_WRITE = 13
 UNKNOWN_DP_ERROR = 14
 ACCESS_DENIED = 15
 DP_OUT_OF_MEMORY = 16
 DISK_FULL = 17
 DP_TIMEOUT = 18
 FILE_NOT_FOUND = 19
 DATAPROVIDER_EXCEPTION = 20
 CONTROL_FLUSH_ERROR = 21
 OTHERS = 22.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks,
Vinay

Date sorting in internal table

Dear Friends
 I wish to know how i perform the date operations in internal table... I am looking for the most recent record from the internal table for that i am supposed to look at chdate and chtime fields gives me the information on most corrently changed record... if in the case of the record which is there but not changed to determin the its most currentness i must look at the crdate and crtime..so i have the code for that which works perfectly nice without the crdate and crtime... if i insert the crdate and crtime it gives me the only those records which are most currently chnaged according to chdate and chtime...would you like to help me in this regards, I am giving you the code here.. any suggestion or changes will be great help of mine... thanking you,,,,
regards naim... the code:
TYPES: BEGIN OF itab_type,
 id TYPE i,
 idnumber TYPE i,
 chdate LIKE sy-datum,
 chtime LIKE sy-uzeit,
 crdate LIKE sy-datum,
 crtime LIKE sy-uzeit.
TYPES: END OF itab_type.
DATA: itab TYPE TABLE OF itab_type WITH HEADER LINE,
 itab_new TYPE TABLE OF itab_type WITH HEADER LINE,
 prev_rec TYPE itab_type.
DATA: v_id TYPE i.
START-OF-SELECTION.
itab-id = 1.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135312'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 2.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135900'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 3.
itab-idnumber = 123456.
itab-chdate = '00000000'.
itab-chtime = '000000'.
itab-crtime = '20060622'.
itab-crdate = '125412'.
APPEND itab. CLEAR itab.
itab-id = 4.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '140000'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 5.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '142500'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 6.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '135312'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 7.
itab-idnumber = 123457.
itab-chdate = '00000000'.
itab-chtime = '000000'.
itab-crdate = '20060601'.
itab-crtime = '150000'.
APPEND itab. CLEAR itab.
itab_new[] = itab[].
SORT itab_new BY idnumber ASCENDING
 chdate DESCENDING
 chtime DESCENDING
 crdate Descending
 crtime Descending.
DELETE ADJACENT DUPLICATES FROM itab_new COMPARING idnumber.
LOOP AT itab.
 WRITE:/ itab-id,
 itab-idnumber,
 itab-chdate,
 itab-chtime,
 itab-crdate,
 itab-crtime.
ENDLOOP.
skip 5.
write: '_______________________________________________________________________________________'.
LOOP AT itab_new.
 WRITE:/ itab_new-id,
 itab_new-idnumber,
 itab_new-chdate,
 itab_new-chtime,
 itab_new-crdate,
 itab_new-crtime.
ENDLOOP.

Hi,
i modifed your code now see...,Copy paste and see...
REPORT ZTESTT .
TYPES: BEGIN OF itab_type,
id TYPE i,
idnumber TYPE i,
chdate LIKE sy-datum,
chtime LIKE sy-uzeit,
crdate LIKE sy-datum,
crtime LIKE sy-uzeit.
TYPES: END OF itab_type.
DATA: itab TYPE TABLE OF itab_type WITH HEADER LINE,
itab_new TYPE TABLE OF itab_type WITH HEADER LINE,
prev_rec TYPE itab_type.
DATA: v_id TYPE i.
START-OF-SELECTION.
itab-id = 1.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135312'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 2.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135900'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 3.
itab-idnumber = 123456.
itab-chdate = '00000000'.
itab-chtime = '000000'.
itab-crdate = '20060622'. "here you intechanged the data
itab-crtime = '125412'.
APPEND itab. CLEAR itab.
itab-id = 4.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '140000'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 5.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '142500'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 6.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '135312'.
itab-crdate = '00000000'.
itab-crtime = '000000'.
APPEND itab. CLEAR itab.
itab-id = 7.
itab-idnumber = 123457.
itab-chdate = '00000000'.
itab-chtime = '000000'.
itab-crdate = '20060601'.
itab-crtime = '150000'.
APPEND itab. CLEAR itab.
itab_new[] = itab[].
SORT itab_new BY
idnumber
*chdate DESCENDING
*chtime DESCENDING
crdate Descending
crtime Descending.
DELETE ADJACENT DUPLICATES FROM itab_new COMPARING idnumber crdate
crtime.
*DELETE ADJACENT DUPLICATES FROM itab_new COMPARING idnumber.
LOOP AT itab.
WRITE:/ itab-id,
itab-idnumber,
itab-chdate,
itab-chtime,
itab-crdate,
itab-crtime.
ENDLOOP.
skip 5.
LOOP AT itab_new.
WRITE:/ itab_new-id,
itab_new-idnumber,
itab_new-chdate,
itab_new-chtime,
itab_new-crdate,
itab_new-crtime.
ENDLOOP.
Regards
vijay

Read data from STATIC internal table during round trip in DO_PREPARE_OUTPUT

Dear Gurus
I have a requirement where I need to select some data from the database table BUT_HIER_NODE_D.
After SELECTING this data to an internal table (say ITAB), I am displaying this data in a table view. I was able to achive this functionality by putting some code in the DO_PREPARE_OUTPUT method.
Now according to my requirement, after the above data has been displayed on the screen initially, the user will click on any row. After clicking on a particular row, I need to capture the document number on that particular row and need to display all its child document numbers in a separate table. I am able to achive this functionality also.
Initially I am not sure of how to READ the same internal table (ITAB) again and again by avoiding the SELECT query upon each round trip (between CRM and Web).
After some research, I understand that I might have to use STATIC internal table to store the data during the
initial SELECT. This way, upon each round trip, I can READ the data from the same internal table.
My question: But now, when I tried to create a STATIC internal table in DO_PREPARE_OUTPUT, it is not allowing me to declare this table because DO_PREPARE_OUTPUT method is a INSTANCE method.
I didn't find any STATIC methods in the IMPL class of the view.
I would really appreciate if somebody can help me on how to proceed further.
Thanks
Raj

Hi Bharathy / Adil / Masood
Thank you very much for the replies. I declared a static method inside the IMPL class and I was calling this method inside the DO_PREPARE_OUTPUT method. Looks like it is working fine for me...will comeback if I had any further issues.
Masood
As per my requirement, I need to Select the data into the internal table during the very first step, then I need to continuosly read the data from this internal table upon every round trip. So I am not sure if I would be able to use the method DO_INIT_CONTEXT. Because I need a method which will trigger upon each round trip and will also hold the data of this internal table. So right now, the only option for me is DO_PREPARE_OUTPUT method.
Plz let me know if am doing in the right way.
Thanks
Raj

Field catalog & internal table are not mutually convertible

Hi friends,
 please help me for this problem, actually i m trying to display three alv reports from the three buttond i have given on my first basic report. its working fine till first & getting the data into the internal table for the second also. but when coming to the field catalog for the second report its giving syntax error as my "field catalog and internal table are not mutually convertible'".i have tried by giving different fieldcatalog also but its giving the same problem.please help for this & try to give an example if u can. Thanks a lot.
Regards
Pankaj

This is my code :
TABLES: PLAF,
 MARA,
 MAKT,
 AFPO,
 T023T,
 VSAUFK,
 T006A,
 MBEW,
 ZCDR_D.
Type Pools for ALV *************************
TYPE-POOLS: SLIS,
 ABAP.
 KKBLO.
DATA DECLARATION. ****************************
DATA: FLAG TYPE I,
 FLAG1 TYPE I,
 FLAG2 TYPE I,
 FLAG3 TYPE I,
 FLAG4 TYPE I,
 FLAG5 TYPE I.
********Declaration for field catalog
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 LAYOUT1 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,
 LAYOUT2 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT2 TYPE SLIS_FIELDCAT_ALV,
 LAYOUT3 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT3 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT3 TYPE SLIS_FIELDCAT_ALV.
TYPES DECLARATION. ****************************
TYPES: BEGIN OF TY_MARA,
 MATNR LIKE MARA-MATNR, " Material Number
 MATKL LIKE MARA-MATKL, " Material Group
 END OF TY_MARA.
TYPES: BEGIN OF TY_PLAF,
 PERTR LIKE PLAF-PERTR, " Date
 PLNUM LIKE PLAF-PLNUM, " Planned Order Number
 MATNR LIKE PLAF-MATNR, " Material number
 PLWRK LIKE PLAF-PLWRK, " Plant
 KDAUF LIKE PLAF-KDAUF, " Sales Order Number
 KDPOS LIKE PLAF-KDPOS, " SO Line Item
 END OF TY_PLAF.
TYPES: BEGIN OF TY_MAKT,
 MATNR LIKE PLAF-MATNR, " Material Number
 MAKTX LIKE MAKT-MAKTX, " Material Description
 END OF TY_MAKT.
TYPES: BEGIN OF TY_AFPO,
 PLNUM LIKE AFPO-PLNUM, " Planned Order Number
 MATNR LIKE AFPO-MATNR, " Material Number
 KDAUF LIKE AFPO-KDAUF, " Sales Order Number
 KDPOS LIKE AFPO-KDPOS, " SO Line Item
 AUFNR LIKE AFPO-AUFNR, " Production Order
 STRMP LIKE AFPO-STRMP,
 DWERK LIKE AFPO-DWERK,
 END OF TY_AFPO.
TYPES: BEGIN OF TY_ZCDR_D,
 MANDT LIKE ZCDR_D-MANDT, " Client
 CBNO LIKE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE ZCDR_D-PLNUM, " Planned Order Number
 MATNR LIKE ZCDR_D-MATNR, " Material Number
 MAKTX LIKE ZCDR_D-MAKTX, " Material Description
 KDAUF like ZCDR_D-KDAUF, " Sales Order Number
 KDPOS like ZCDR_D-KDPOS, " SO Line Item
 AUFNR LIKE ZCDR_D-AUFNR, " Production Order
 END OF TY_ZCDR_D.
TYPES: BEGIN OF TY_VSAUFK,
 INACT LIKE VSAUFK-INACT, " Status Indicator
 END OF TY_VSAUFK.
TYPES: BEGIN OF TY_PLAF_MAKT,
 CBNO LIKE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE PLAF-PLNUM, " Planned Order Number
 CHK TYPE C, " Check Box
 MATNR LIKE PLAF-MATNR, " Material Number
 MAKTX LIKE MAKT-MAKTX, " Material Description
 KDAUF LIKE PLAF-KDAUF, " Sales Order Number
 KDPOS LIKE PLAF-KDPOS, " SO Line Item
 AUFNR LIKE AFPO-AUFNR, " Production Order
 END OF TY_PLAF_MAKT.
TYPES: BEGIN OF TY_HELP_ITEM,
 CBNO TYPE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE ZCDR_D-PLNUM, " Planned Order Number
 MATNR LIKE ZCDR_D-MATNR, " Material Number
 MAKTX LIKE ZCDR_D-MAKTX, " Material Description
 KDAUF LIKE ZCDR_D-KDAUF, " Sales Order Number
 KDPOS LIKE ZCDR_D-KDPOS, " SO Line Item
 AUFNR LIKE ZCDR_D-AUFNR, " Production Order
 END OF TY_HELP_ITEM.
WORK AREA ******************************
DATA: WA_MARA TYPE TY_MARA,
 WA_PLAF TYPE TY_PLAF,
 WA_MAKT TYPE TY_MAKT,
 WA_AFPO TYPE TY_AFPO,
 WA_ZCDR_D TYPE TY_ZCDR_D,
 WA_VSAUFK TYPE TY_VSAUFK,
 WA_PLAF_MAKT TYPE TY_PLAF_MAKT,
 WA_HELP_ITEM TYPE TY_HELP_ITEM.
INTERNAL TABLES ****************************
DATA: IT_MARA TYPE TABLE OF TY_MARA,
 IT_PLAF TYPE TABLE OF TY_PLAF,
 IT_MAKT TYPE TABLE OF TY_MAKT,
 IT_AFPO TYPE TABLE OF TY_AFPO,
 IT_ZCDR_D TYPE TABLE OF TY_ZCDR_D,
 IT_VSAUFK TYPE TABLE OF TY_VSAUFK,
 IT_PLAF_MAKT TYPE TABLE OF TY_PLAF_MAKT,
 IT_HELP_ITEM TYPE TABLE OF TY_HELP_ITEM.
*it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0.
TYPES: BEGIN OF TY_BOM,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 VPRSV LIKE STPOX-VPRSV,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_BOM,
 BEGIN OF TY_QUAN,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_QUAN,
 BEGIN OF TY_T023T,
 MATKL LIKE T023T-MATKL,
 WGBEZ LIKE T023T-WGBEZ,
 END OF TY_T023T,
 BEGIN OF TY_T006A,
 MMEIN LIKE T006A-MSEHI,
 MSEHT LIKE T006A-MSEHT,
 END OF TY_T006A,
 BEGIN OF TY_IMP_FINAL,
 SNO TYPE SY-INDEX,
 HSCODE LIKE ZHSCODE-HSCODE,
 WGBEZ TYPE T023T-WGBEZ,
 SPEC(20) TYPE C,
 MNGLG LIKE STPOX-MNGLG,
 MSEHT LIKE T006A-MSEHT,
 CNTRY(13) TYPE C,
 UPRICE TYPE P LENGTH 16 DECIMALS 2,
 TPRICE TYPE P LENGTH 16 DECIMALS 2,
 CURRCODE TYPE C LENGTH 5,
 END OF TY_IMP_FINAL,
 BEGIN OF TY_MBEW,
 MATNR LIKE MBEW-MATNR,
 VPRSV LIKE MBEW-VPRSV,
 STPRS LIKE MBEW-STPRS,
 VERPR LIKE MBEW-VERPR,
 END OF TY_MBEW.
DATA: WA_BOM TYPE TY_BOM,
 WA_QUAN TYPE TY_QUAN,
 WA_IMP_FINAL TYPE TY_IMP_FINAL,
 WA_T023T TYPE TY_T023T,
 WA_T006A TYPE TY_T006A,
 WA_MBEW TYPE TY_MBEW.
DATA: IT_BOM TYPE TABLE OF TY_BOM,
 IT_QUAN TYPE TABLE OF TY_QUAN,
 IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
 IT_MBEW TYPE TABLE OF TY_MBEW.
SELECTION-SCREEN **************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS : PR_CBNO LIKE ZCDR_D-CBNO OBLIGATORY. "Customs Book number
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION **************************
INITIALIZATION.
**PERFORM CLEAR_DATA.
**CLEAR: wa_layout.
*PERFORM set_events USING it_events[].
SELECT OPTION ****************************************
SELECTION-SCREEN : BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
 SO_PERTR for PLAF-PERTR, "----
Date
 SO_MATNR for MARA-MATNR, "----
Material
 SO_MATKL for MARA-MATKL, "----
Material Group
 SO_PLWRK for PLAF-PLWRK OBLIGATORY, "----
Plant
 SO_KDAUF for PLAF-KDAUF. "----
Sales Order
SELECTION-SCREEN : END OF BLOCK BLK.
SELECTION SCREEN F4 HELP *********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PR_CBNO.
DATA: DYNFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE.
 DYNFIELDS-FIELDNAME = PR_CBNO.
 APPEND DYNFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TRANSLATE_TO_UPPER = 'X'
 REQUEST = ' '
 PERFORM_CONVERSION_EXITS = ' '
 PERFORM_INPUT_CONVERSION = ' '
 DETERMINE_LOOP_INDEX = ' '
 START_SEARCH_IN_CURRENT_SCREEN = ' '
 START_SEARCH_IN_MAIN_SCREEN = ' '
 START_SEARCH_IN_STACKED_SCREEN = ' '
 START_SEARCH_ON_SCR_STACKPOS = ' '
 SEARCH_OWN_SUBSCREENS_FIRST = ' '
 SEARCHPATH_OF_SUBSCREEN_AREAS = ' '
 TABLES
 DYNPFIELDS = DYNFIELDS
 EXCEPTIONS
 INVALID_ABAPWORKAREA = 1
 INVALID_DYNPROFIELD = 2
 INVALID_DYNPRONAME = 3
 INVALID_DYNPRONUMMER = 4
 INVALID_REQUEST = 5
 NO_FIELDDESCRIPTION = 6
 INVALID_PARAMETER = 7
 UNDEFIND_ERROR = 8
 DOUBLE_CONVERSION = 9
 STEPL_NOT_FOUND = 10
 OTHERS = 11
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 READ TABLE DYNFIELDS WITH KEY FIELDNAME = 'CBNO'.
 PR_CBNO = DYNFIELDS-FIELDVALUE.
 SELECT
 CBNO
 PLNUM
 MATNR
 MAKTX
 KDAUF
 KDPOS
 AUFNR
 FROM ZCDR_D
 INTO TABLE IT_HELP_ITEM .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'CBNO'
 PVALKEY = ' '
 DYNPPROG = SY-CPROG
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'PR_CBNO'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_HELP_ITEM
 FIELD_TAB =
 RETURN_TAB =
 DYNPFLD_MAPPING =
EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 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.
***********************SELECTION SCREEN VALIDATION.*******************
AT SELECTION-SCREEN ON PR_CBNO.
SELECT SINGLE *
FROM ZCDR_D
WHERE CBNO = PR_CBNO.
IF SY-SUBRC EQ 0.
 MESSAGE E000(ZCBR) WITH PR_CBNO.
ENDIF.
AT SELECTION-SCREEN ON SO_PERTR.
IF SO_PERTR IS NOT INITIAL.
 SELECT SINGLE *
 FROM PLAF
 WHERE PERTR IN SO_PERTR.
 IF SY-SUBRC NE 0.
 MESSAGE W001(ZCBR) WITH SO_PERTR-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_MATNR.
IF SO_MATNR IS NOT INITIAL.
 SELECT SINGLE *
 FROM MARA
 WHERE MATNR IN SO_MATNR.
 IF SY-SUBRC NE 0.
 MESSAGE W002(ZCBR) WITH SO_MATNR-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_MATKL.
IF SO_MATKL IS NOT INITIAL.
 SELECT SINGLE *
 FROM MARA
 WHERE MATKL IN SO_MATKL.
 IF SY-SUBRC NE 0.
 MESSAGE W003(ZCBR) WITH SO_MATKL-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_PLWRK.
IF SO_PLWRK IS NOT INITIAL.
 SELECT SINGLE * FROM PLAF
 WHERE PLWRK IN SO_PLWRK.
 IF SY-SUBRC NE 0.
 MESSAGE W004(ZCBR) WITH SO_PLWRK-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_KDAUF.
IF SO_KDAUF IS NOT INITIAL.
 SELECT SINGLE * FROM PLAF
 WHERE KDAUF IN SO_KDAUF.
 IF SY-SUBRC NE 0.
 MESSAGE W005(ZCBR) WITH SO_KDAUF-LOW.
 ENDIF.
ENDIF.
*********************START-OF-SELECTION.*****************************
START-OF-SELECTION.
IF so_pertr IS NOT INITIAL.
 FLAG = 1.
ENDIF.
IF SO_MATNR IS NOT INITIAL.
 FLAG1 = 1.
ENDIF.
IF so_matkl IS NOT INITIAL.
 FLAG2 = 1.
ENDIF.
IF so_plwrk IS NOT INITIAL.
 FLAG3 = 1.
ENDIF.
IF so_kdauf IS NOT INITIAL.
 FLAG4 = 1.
ENDIF.
 Select data into its internal table from different database tables
SELECT
 MATNR
 MATKL
 MTART
 INTO CORRESPONDING FIELDS OF TABLE IT_MARA
 FROM MARA
 WHERE MTART = 'ZFGS'.
IF FLAG2 NE 0.
 DELETE IT_MARA WHERE
 NOT ( MATKL IN SO_MATKL )
ENDIF.
IF FLAG1 NE 0.
 DELETE IT_MARA WHERE
 NOT ( MATNR IN SO_MATNR )
ENDIF.
SELECT
 PERTR
 PLNUM
 MATNR
 PLWRK
 KDAUF
 KDPOS
 FROM PLAF
 INTO CORRESPONDING FIELDS OF TABLE IT_PLAF
 FOR ALL ENTRIES IN IT_MARA
 WHERE PLWRK IN SO_PLWRK
 AND MATNR = IT_MARA-MATNR.
 SELECT
 MATNR
 PLNUM
 AUFNR
 KDAUF
 KDPOS
 STRMP
 DWERK
 INACT
 FROM AFPO
 INTO CORRESPONDING FIELDS OF TABLE IT_AFPO
 FOR ALL ENTRIES IN IT_MARA
 WHERE DWERK IN SO_PLWRK
 AND MATNR = IT_MARA-MATNR.
 WHERE MATNR = IT_MARA-MATNR
 AND STRMP = IT_PLAF-PERTR
 AND KDAUF = IT_PLAF-KDAUF
 AND DWERK = IT_PLAF-PLWRK.
 End of Data selection
 Keep only those records which the user wants from his selection screen
IF FLAG NE 0.
 DELETE IT_PLAF WHERE
 NOT ( PERTR IN SO_PERTR )
 DELETE IT_AFPO WHERE
 NOT ( STRMP IN SO_PERTR )
ENDIF.
IF FLAG3 NE 0.
 DELETE IT_PLAF WHERE
 NOT ( PLWRK IN SO_PLWRK )
 DELETE IT_AFPO WHERE
 NOT ( DWERK IN SO_PLWRK )
ENDIF.
IF FLAG4 NE 0.
 DELETE IT_PLAF WHERE
 NOT ( KDAUF IN SO_KDAUF )
 DELETE IT_AFPO WHERE
 NOT ( KDAUF IN SO_KDAUF )
ENDIF.
 SELECT
 MATNR
 MAKTX
 FROM MAKT
 INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
 FOR ALL ENTRIES IN IT_PLAF
 WHERE MATNR = IT_PLAF-MATNR
 AND SPRAS = 'EN'.
SELECT
 FROM ZCDR_D
 INTO TABLE IT_ZCDR_D.
 Put data into final internal table from different internal tables
LOOP AT IT_MARA INTO WA_MARA.
LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
 READ TABLE IT_ZCDR_D
 INTO WA_ZCDR_D
 WITH KEY PLNUM = WA_PLAF-PLNUM.
 IF SY-SUBRC <> 0.
 MOVE WA_PLAF-PLNUM TO WA_PLAF_MAKT-PLNUM.
 MOVE WA_PLAF-MATNR TO WA_PLAF_MAKT-MATNR.
 MOVE WA_PLAF-KDAUF TO WA_PLAF_MAKT-KDAUF.
 MOVE WA_PLAF-KDPOS TO WA_PLAF_MAKT-KDPOS.
 READ TABLE IT_AFPO INTO WA_AFPO WITH KEY PLNUM = WA_PLAF-PLNUM.
 MOVE WA_AFPO-AUFNR TO WA_PLAF_MAKT-AUFNR.
 SELECT
 SINGLE * FROM VSAUFK
 INTO TABLE IT_VSAUFK
 WHERE AUFNR = WA_AFPO-AUFNR
 AND STAT = 'I0012'.
 IF SY-SUBRC <> 0.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ELSE.
 CHECK IT_VSAUFK-INACT = 'X'.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ENDIF.
 ENDLOOP.
 READ TABLE IT_MAKT
 INTO WA_MAKT
 WITH KEY MATNR = WA_MARA-MATNR.
 MOVE WA_MAKT-MAKTX TO WA_PLAF_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT.
 CLEAR WA_PLAF_MAKT.
 ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT IT_PLAF_MAKT .
LOOP AT IT_MARA INTO WA_MARA.
LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
 LOOP AT IT_AFPO INTO WA_AFPO WHERE MATNR = WA_MARA-MATNR.
 READ TABLE IT_ZCDR_D
 INTO WA_ZCDR_D
 WITH KEY PLNUM = WA_AFPO-PLNUM.
 IF SY-SUBRC <> 0.
 LOOP AT IT_AFPO INTO WA_AFPO.
 WHERE MATNR IN SO_MATNR
 AND STRMP = SO_PERTR
 AND PLNUM IN SO_PLNUM
 AND KDAUF IN SO_-KDAUF
 AND MATKL IN SO_MATKL.
 SELECT
 SINGLE INACT FROM VSAUFK
 INTO WA_VSAUFK
 WHERE AUFNR = WA_AFPO-AUFNR
 AND STAT = 'I0012'.
 IF SY-SUBRC <> 0.
 WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
 WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
 WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
 WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
 READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
 APPEND WA_AFPO TO IT_PLAF_MAKT.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ELSE.
 CHECK WA_VSAUFK-INACT = 'X'.
 WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
 WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
 WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
 WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
 READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
 APPEND WA_AFPO TO IT_PLAF_MAKT.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ENDIF.
 ENDIF.
 ENDLOOP.
 EXIT.
 ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT.
 WA_PLAF_MAKT-CBNO = PR_CBNO.
 MODIFY IT_PLAF_MAKT FROM WA_PLAF_MAKT TRANSPORTING CBNO.
ENDLOOP.
ENDLOOP.
PERFORM CHANGE_CATALOG.
PERFORM ALV_DISPLAY.
*& Form CHANGE_CATALOG
 text
FORM CHANGE_CATALOG.
 LAYOUT-ZEBRA = 'X'.
DATA: L_POS TYPE I.
L_POS = L_POS + 1.
WA_FIELDCAT-col_pos = L_POS.
WA_FIELDCAT-SELTEXT_M = 'Planned Order Nos.'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'PLNUM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-INPUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'Check Box'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-CHECKBOX = 'X'.
WA_FIELDCAT-EDIT = abap_true.
WA_FIELDCAT-FIELDNAME = 'CHK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '12'.
WA_FIELDCAT-SELTEXT_M = 'Material'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '35'.
WA_FIELDCAT-SELTEXT_M = 'Material Description'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-SELTEXT_M = 'Sales Order Number'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'KDAUF'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-SELTEXT_M = 'S O Line Item'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'KDPOS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '13'.
WA_FIELDCAT-SELTEXT_M = 'Production Order'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'AUFNR'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*GS_LAYOUT-TOTALS_BEFORE_ITEMS = 'X'.
*data : text like slis_ev_subtotal_text value 'total'.
*gs_layout-subtotals_text = text.
*gs_layout-totals_only = 'X'.
gs_layout-subtotals_text = 'total'.
endform. " CHANGE_CATALOG
*********************event*************************************
*& Form ALV_DISPLAY
 text
FORM ALV_DISPLAY.
*data: LC_GLAY TYPE LVC_S_GLAY.
 LC_GLAY-EDT_CLL_CB = 'X'.
 gs_layout-colwidth_optimize = 'X'.
 gs_layout-zebra = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER = ' '
 I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME =
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE = 'PLANNED ORDERS'
 I_GRID_SETTINGS = LC_GLAY
 IS_LAYOUT = LAYOUT
 IT_FIELDCAT = IT_FIELDCAT[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'X'
 IS_VARIANT =
 IT_EVENTS = IT_EVENTS[]
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 I_HTML_HEIGHT_TOP = 0
 I_HTML_HEIGHT_END = 0
 IT_ALV_GRAPHICS =
 IT_HYPERLINK =
 IT_ADD_IT_FIELDCAT =
 IT_EXCEPT_QINFO =
 IR_SALV_FULLSCREEN_ADAPTER =
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_PLAF_MAKT
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH IT_FIELDCAT[].
ENDFORM. "ALV_DISPLAY
*& Form USER_COMMAND
 text
 -->UCOMM text
 -->SELFIELD text
FORM USER_COMMAND
USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
Data: REF1 TYPE REF TO CL_GUI_ALV_GRID.
DATA WA LIKE LINE OF IT_PLAF_MAKT.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
 IMPORTING
 E_GRID = REF1.
CALL METHOD REF1->CHECK_CHANGED_DATA.
CASE UCOMM.
 WHEN '&BACK'.
 LEAVE TO SCREEN 0.
 WHEN '&EXIT'.
 LEAVE TO SCREEN 0.
 WHEN '&CANC'.
 LEAVE TO SCREEN 0.
 WHEN '&SAVE'.
 CLEAR IT_ZCDR_D[].
 LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
 CLEAR WA_ZCDR_D.
 WA_ZCDR_D-MANDT = SY-MANDT.
 WA_ZCDR_D-CBNO = WA_PLAF_MAKT-CBNO.
 WA_ZCDR_D-plnum = WA_PLAF_MAKT-PLNUM.
 WA_ZCDR_D-MATNR = WA_PLAF_MAKT-MATNR.
 WA_ZCDR_D-MAKTX = WA_PLAF_MAKT-MAKTX.
 WA_ZCDR_D-KDAUF = WA_PLAF_MAKT-KDAUF.
 WA_ZCDR_D-KDPOS = WA_PLAF_MAKT-KDPOS.
 WA_ZCDR_D-AUFNR = WA_PLAF_MAKT-AUFNR.
 APPEND WA_ZCDR_D to IT_ZCDR_D.
 ENDLOOP.
 LOOP AT IT_ZCDR_D INTO WA_ZCDR_D.
 INSERT ZCDR_D FROM WA_ZCDR_D.
 CLEAR WA_ZCDR_D.
 ENDLOOP.
 IF SY-SUBRC EQ 0.
 MESSAGE S021(ZCBR) WITH PR_CBNO.
 ENDIF.
 IF IT_ZCDR_D IS INITIAL.
 MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
 ENDIF.
 WHEN 'IMPORT_INF'.
 PERFORM IMPORT_REPORT.
 WHEN 'EXPORT_INF'.
 PERFORM EXPORT_REPORT.
 WHEN 'UNIT_CONSU'.
 PERFORM UNIT_CONSUMPTION.
ENDCASE.
ENDFORM. "USER_COMMAND
FORM set_events USING it_events TYPE slis_t_event.
DATA: x_event TYPE slis_alv_event.
clear x_event.
x_event-name = 'USER_COMMAND'.
x_event-form = 'USER_COMMAND'.
append x_event to it_events.
CLEAR x_event.
call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
 I_LIST_TYPE = 0
IMPORTING
 ET_EVENTS = IT_EVENTS
EXCEPTIONS
 LIST_TYPE_WRONG = 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.
read table it_events into x_event with key name = slis_ev_user_command.
 if sy-subrc = 0.
 x_event-form = 'USER_COMMAND'.
 modify it_events from x_event index sy-tabix transporting form .
 endif.
ENDFORM.
*& Form set_pf_status
 text
 -->RT_EXTAB text
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z_PFSTAT'.
ENDFORM. " set_pf_status
FORM IMPORT_REPORT.
TYPES: BEGIN OF TY_BOM,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 VPRSV LIKE STPOX-VPRSV,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_BOM,
 BEGIN OF TY_QUAN,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_QUAN,
 BEGIN OF TY_T023T,
 MATKL LIKE T023T-MATKL,
 WGBEZ LIKE T023T-WGBEZ,
 END OF TY_T023T,
 BEGIN OF TY_T006A,
 MMEIN LIKE T006A-MSEHI,
 MSEHT LIKE T006A-MSEHT,
 END OF TY_T006A,
 BEGIN OF TY_IMP_FINAL,
 SNO TYPE SY-INDEX,
 HSCODE LIKE ZHSCODE-HSCODE,
 WGBEZ TYPE T023T-WGBEZ,
 SPEC(20) TYPE C,
 MNGLG LIKE STPOX-MNGLG,
 MSEHT LIKE T006A-MSEHT,
 CNTRY(13) TYPE C,
 UPRICE TYPE P LENGTH 16 DECIMALS 2,
 TPRICE TYPE P LENGTH 16 DECIMALS 2,
 CURRCODE TYPE C LENGTH 5,
 END OF TY_IMP_FINAL,
 BEGIN OF TY_MBEW,
 MATNR LIKE MBEW-MATNR,
 VPRSV LIKE MBEW-VPRSV,
 STPRS LIKE MBEW-STPRS,
 VERPR LIKE MBEW-VERPR,
 END OF TY_MBEW.
DATA: WA_BOM TYPE TY_BOM,
 WA_QUAN TYPE TY_QUAN,
 WA_IMP_FINAL TYPE TY_IMP_FINAL,
 WA_T023T TYPE TY_T023T,
 WA_T006A TYPE TY_T006A,
 WA_MBEW TYPE TY_MBEW.
DATA: IT_BOM TYPE TABLE OF TY_BOM,
 IT_QUAN TYPE TABLE OF TY_QUAN,
 IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
 IT_MBEW TYPE TABLE OF TY_MBEW.
DATA: IT_STPO TYPE STANDARD TABLE OF STPOX,
 WA_STPO TYPE STPOX.
 SELECT
 MATNR
 VPRSV
 STPRS
 VERPR
 FROM MBEW
 INTO CORRESPONDING FIELDS OF TABLE IT_MBEW.
 WHERE MATNR EQ IT_MARA-MATNR. "MBEW
*I_STPO2 TYPE STANDARD TABLE OF STPOX.
LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
LOOP AT IT_ZCDR_D INTO WA_ZCDR_D .
 CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

All values in internal table are not displaing in the script print program

Hi,
I am calling the script program.In main window all values in the internal table are not displaying. I wrote
write-form statement in loop. But not all the values are getting displayed. Only thel ast values getting dispalyed.
*& Report ZSCRIPT_116719
REPORT ZSCRIPT_116719.
************Table decleration***************
TABLES: mara, mbew, makt.
loop at i_makt into wa_makt.
endloop.
loop at i_MARA into wa_mara.
endloop.
LOOP AT I_MBEW INTO WA_MBEW.
ENDLOOP.
lv_price = 0.
********************Total Price******************
LOOP AT i_mbew INTO wa_mbew.
 lv_price = lv_price + wa_mbew-stprs.
ENDLOOP.
end-of-selection.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'
 FORM = 'ZSCRIPT_719'
 LANGUAGE = SY-LANGU
OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =
EXCEPTIONS
 CANCELED = 1
 DEVICE = 2
 FORM = 3
 OPTIONS = 4
 UNCLOSED = 5
 MAIL_OPTIONS = 6
 ARCHIVE_ERROR = 7
 INVALID_FAX_NUMBER = 8
 MORE_PARAMS_NEEDED_IN_BATCH = 9
 SPOOL_ERROR = 10
 CODEPAGE = 11
 OTHERS = 12
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'START_FORM'
EXPORTING
ARCHIVE_INDEX =
 FORM = 'ZSCRIPT_719'
 LANGUAGE = SY-LANGU
STARTPAGE = ' '
 PROGRAM = 'ZSCRIPT_116719'
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*LOOP AT I_MBEW INTO WA_MBEW.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
 ELEMENT = 'DATA'
 FUNCTION = 'SET'
 TYPE = 'BODY'
 WINDOW = 'MAIN'
IMPORTING
PENDING_LINES =
EXCEPTIONS
 ELEMENT = 1
 FUNCTION = 2
 TYPE = 3
 UNOPENED = 4
 UNSTARTED = 5
 WINDOW = 6
 BAD_PAGEFORMAT_FOR_PRINT = 7
 SPOOL_ERROR = 8
 CODEPAGE = 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.
ENDIF.
*ENDLOOP.
If I give only one value it is showing the output. When I am fetching the data for range of values it i sshowing start_form is not there.
Plz let me know how to get the aa internal table values to be displayed

hi
I shortened your program a bit. So we can go to essentials of your question.
You said you put in it in a loop.
What i see in your prog is:
REPORT zscript_116719.
************table decleration***************
TABLES: mara, mbew, makt.
LOOP AT i_makt INTO wa_makt.
ENDLOOP.
LOOP AT i_mara INTO wa_mara.
ENDLOOP.
LOOP AT i_mbew INTO wa_mbew.
ENDLOOP.
lv_price = 0.
********************total price******************
LOOP AT i_mbew INTO wa_mbew.
lv_price = lv_price + wa_mbew-stprs.
ENDLOOP.
END-OF-SELECTION.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 form = 'ZSCRIPT_719'
 language = sy-langu.
CALL FUNCTION 'START_FORM'
 EXPORTING
 form = 'ZSCRIPT_719'
 language = sy-langu
 program = 'ZSCRIPT_116719'.
*LOOP AT I_MBEW INTO WA_MBEW.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'DATA'
 function = 'SET'
 type = 'BODY'
 window = 'MAIN'.
*endloop.
1. Your loop is not a loop with this '*' in front of it.
2. Are you printing &wa_mbew-???& variables in your sap-script
3. is itab I_MBEW properly filled
Let me know.
Gr. Frank

Xml data to abap internal table

I'm presently working on a interface where data in abap internal table is converted into xml format and placed in the frontend and vice versa.
I'm through with the first part and in secodn part also I'm able to transfer the data from frontend to Document Object Model(DOM) by parsing but finally am not able to put it into an internal table.
Please help (Urgent).
Thanks and regards,
S.K.Tripathy

Hi sitakant,
1. itab --- > xml
   xml ---> itab.
2. This program will do both.
   (just copy paste in new program)
3.
REPORT abc.
DATA
DATA : t001 LIKE TABLE OF t001 WITH HEADER LINE.
DATA : BEGIN OF itab OCCURS 0,
a(100) TYPE c,
END OF itab.
DATA: xml_out TYPE string .
DATA : BEGIN OF upl OCCURS 0,
       f(255) TYPE c,
       END OF upl.
DATA: xmlupl TYPE string .
FIRST PHASE
FIRST PHASE
FIRST PHASE
Fetch Data
SELECT * FROM t001 INTO TABLE t001.
XML
CALL TRANSFORMATION ('ID')
SOURCE tab = t001[]
RESULT XML xml_out.
Convert to TABLE
CALL FUNCTION 'HR_EFI_CONVERT_STRING_TO_TABLE'
EXPORTING
    i_string         = xml_out
    i_tabline_length = 100
TABLES
    et_table         = itab.
Download
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filetype = 'BIN'
    filename = 'd:\xx.xml'
TABLES
    data_tab = itab.
SECOND PHASE
SECOND PHASE
SECOND PHASE
BREAK-POINT.
REFRESH t001.
CLEAR t001.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    filename = 'D:\XX.XML'
    filetype = 'BIN'
TABLES
    data_tab = upl.
LOOP AT upl.
CONCATENATE xmlupl upl-f INTO xmlupl.
ENDLOOP.
XML
CALL TRANSFORMATION ('ID')
SOURCE XML xmlupl
RESULT tab = t001[]
BREAK-POINT.
regards,
amit m.

How to get data from an internal table in some other program

I would like to get data from the internal table in the other program. When I using FM "LIST_FROM_MEMORY" to get the data, it doesn't work and the exception is not fount.
If any special code need in the other program, like write data to memory .
Many thx .
From Ross Wang

Hi
<li>You need to have interaction if you want to use EXPORT/IMPORT statments.
<li>The internal tables in both programs must be same
<li>Program one ..Calling program
REPORT ZTEST_NOTEPAD.
DATA: BEGIN OF it_t001 OCCURS 0,
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 END OF it_t001.
START-OF-SELECTION.
SUBMIT ztest_notepad1 AND RETURN.
IMPORT it_t001 FROM MEMORY ID 'ZTEST_T100'.
LOOP AT it_t001.
 WRITE:/ it_t001.
ENDLOOP.
<li>Program two ...Called program
REPORT ztest_notepad1.
DATA: BEGIN OF it_t001 OCCURS 0,
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 END OF it_t001.
START-OF-SELECTION.
SELECT * FROM t001 INTO CORRESPONDING FIELDS OF TABLE it_t001 UP TO 10 ROWS.
IF sy-dbcnt > 1.
 EXPORT it_t001 TO MEMORY ID 'ZTEST_T100'.
ENDIF.
I hope that it gets you some idea.
Thanks
Venkat.O

How to populate data into Dynamic Internal Table.

Hi Experts,
I had created one Dynamic Internal table and one static internal table.I want to move data from Static Internal table to Dynamic interal table.And aslo the number of coloum of these two tables are not same.
So please help me for solving this issue.
Thanks,
Seema.

Hi,
Check out this sample program for dynamictable report.
REPORT YMS_DYNAMICDEMO
 NO STANDARD PAGE HEADING
 MESSAGE-ID zcs_c2c_001.
type-pools : abap.
field-symbols: <dyn_table> type standard table,
 <dyn_wa>,
 <dyn_field>.
data: dy_table type ref to data,
 dy_line type ref to data,
 xfc type lvc_s_fcat,
 ifc type lvc_t_fcat.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c default 'T001'.
selection-screen end of block b1.
start-of-selection.
perform get_structure.
perform create_dynamic_itab.
perform get_data.
perform write_out.
form get_structure.
data : idetails type abap_compdescr_tab,
 xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
Get the structure of the table.
ref_table_des ?=
 cl_abap_typedescr=>describe_by_name( p_table ).
idetails[] = ref_table_des->components[].
loop at idetails into xdetails.
 clear xfc.
 xfc-fieldname = xdetails-name .
 xfc-datatype = xdetails-type_kind.
 xfc-intlen = xdetails-length.
 xfc-decimals = xdetails-decimals.
 append xfc to ifc.
endloop.
endform.
form create_dynamic_itab.
Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
 exporting
 it_fieldcatalog = ifc
 importing
 ep_table = dy_table.
assign dy_table->* to <dyn_table>.
Create dynamic work area and assign to FS
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
endform.
form get_data.
Select Data from table.
select * into table <dyn_table>
 from (p_table).
endform.
form write_out.
Write out data from table.
loop at <dyn_table> into <dyn_wa>.
 do.
 assign component sy-index
 of structure <dyn_wa> to <dyn_field>.
 if sy-subrc <> 0.
 exit.
 endif.
 if sy-index = 1.
 write:/ <dyn_field>.
 else.
 write: <dyn_field>.
 endif.
 enddo.
endloop.
endform.
Thanks,
Shankar

How to insert data from different internal table into a data base table

hi all,
I want to insert a particular field in an internal table to a field in a data base table.Note that the fields in the internal table and database table are not of the same name since i need to insert data from different internal tables.can some one tell me how to do this?
in short i want to do something like the foll:
INSERT INTO ZMIS_CODES-CODE VALUE '1'.
*INSERT INTO ZMIS_CODES-COL1 VALUE DATA_MTD-AUFNR .(zmis_codes is the db table and data_mtd is the int.table)

REPORT ZINSERT.
tables kna1.
data: itab LIKE KNA1.
data lv_kUNAG LIKE KNA1-KUNNR.
lv_kuNAG = '0000010223'.
ITAB-kuNNR = lv_kuNAG.
ITAB-name1 = 'XYZ'.
INSERT INTO KNA1 VALUES ITAB.
IF SY-SUBRC = 0.
WRITE:/ 'SUCCESS'.
ELSE.
WRITE:/ 'FAILED'.
ENDIF.
Here lv_kunag is ref to kna1 kunnr passed in different name
In internal table .
Try and let me know if this logic dint work.

How to download data from an internal table to a text

Hi All,
I want to download data from an internal table to a text file.
The fields should be pipe(|) separated. I have tried GUI_DOWNLOAD but it is not taking the field separator.
The sample of the desired data that i require should be this way:-
13456TR|M|COUP|MATERIAL|KGS
Thanks in advance.
Regards
Satish.

Hi,
Try this..
REPORT zc1download message-id zc1dwnmsg.
*& Declaration Section for the Tables *
TABLES: makt.
*& Declaration Section for the Internal Tables
DATA: intab TYPE TABLE OF makt,
 wa_intab LIKE LINE OF intab,
 no_of_rec TYPE i,
 count TYPE i.
DATA: BEGIN OF f_intab,
 str(255) TYPE c,
 END OF f_intab.
DATA: t_intab LIKE TABLE OF f_intab,
 w_intab LIKE LINE OF t_intab,
 temp(255) TYPE c.
FIELD-SYMBOLS: <f> TYPE ANY.
*& Selection ScreenSection for the file download
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: file TYPE rlgrap-filename MEMORY ID file,
 tab RADIOBUTTON GROUP rad1 DEFAULT 'X',
 others RADIOBUTTON GROUP rad1,
 delimit TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
IF file IS INITIAL. " check to ensure file.
 MESSAGE i001.
 EXIT.
ENDIF.
IF others = 'X'. " check to ensure delimiter.
 IF delimit = ' '.
 MESSAGE i002.
 EXIT.
 ENDIF.
ENDIF.
SELECT * FROM makt INTO TABLE intab.
IF tab = 'X'. " default delimiter tab is used
 CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 filename = file
 filetype = 'DAT'
 mode = 'A'
 TABLES
 data_tab = intab
 EXCEPTIONS
 file_open_error = 1
 file_write_error = 2
 invalid_filesize = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 no_authority = 10
 OTHERS = 11.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ELSE. " If user defind delimiter is to be used
 Counts the number of fields *
 DO.
 ASSIGN COMPONENT sy-index OF STRUCTURE wa_intab TO <f>.
 IF sy-subrc <> 0.
 EXIT.
 ELSE.
 count = count + 1.
 ENDIF.
 ENDDO.
 LOOP AT intab INTO wa_intab.
 DO count TIMES. " Adding the delimiter in required places
 ASSIGN COMPONENT sy-index OF STRUCTURE wa_intab TO <f>.
 CONCATENATE temp delimit <f> INTO temp.
 ENDDO.
 SHIFT temp.
 APPEND temp TO t_intab.
 CLEAR temp.
 ENDLOOP.
 CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 filename = file
 filetype = 'ASC'
 mode = 'A'
 TABLES
 data_tab = t_intab
 EXCEPTIONS
 file_open_error = 1
 file_write_error = 2
 invalid_filesize = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 no_authority = 10
 OTHERS = 11.
 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.
WRITE:/ 'The Data has been tranfered to :', file.
Cheers
Kathir!~

How to select data from an internal table

material                          norm                    date last modified
B2-SP HEAT                 50.000               20090420
BF COKE                                 575.000               20090419
GROSS COKE                 200.000               20090419
B2-SP HEAT                 100.000               20090419
TWT                                 33.000               20090330
B7-SP HEAT                 2.000               20090310
B1-SP HEAT                 1.000               20090309
B7-SP HEAT                 615.000               20090308
B2-SP HEAT                 585.000               20090308
B1-SP HEAT                 100.000               20090308
B3-SP HEAT                 610.000               20090308
BF COKE                                 68.500               20090308
GROSS COKE                 72.600               20090308
B8-SP HEAT                 600.000               20090308
B9-SP HEAT                 625.000               20090308
BX-SP HEAT                 615.000               20090308
B9-SP HEAT                 58.000               20090307
B1-SP HEAT                 100.000               20090307
B6-SP HEAT                 350.000               20090306
B2-SP HEAT                 888.000               20090306
Like above there r numerous data in a table :
how will i select data into another internal table where material above is not repeated with latest modified date.please help.

Hi Sonu,
The main task is to move the contents of the one internal table to another with some condition.
First sort and delete the duplicate entries from the First Internal table like below :
sort it_tab by material ascending date_modified descending.
delete adjacent duplicates from it_tab.
Then move that Internal table contents to another internal table.
Define another internal table with the same structure as you have first internal table and then
Second Step :
it_itab1 = it_itab.
If you are using seperate Header line and Body then you can do like below :
       it_itab1[] = it_itab[].
This will fix the issue.
Please let me know if you need any further explonation.
Regards,
Kittu
Edited by: Kittu on Apr 24, 2009 12:21 PM

Update databse from internal table statement not using index

Hi Guys,
We are updating a databse table from a file. The file has a couple of fields which have data different from what the database has (non-primary fields :). We upload the file data into an internal table and then update the database table from internal table. At a time, internal table is supposed to have 10,000 records. I did SQL trace and found that the update statement is not making use of the databse index.
Should not the update statement here be using the table index (for primary key)?
Regards,
Munish

... as often there are recommendations in this forum which makes me wonder, how people overestimate their knowledge!!!
Updates and Deletes do of course use indexes, as can be seen in the SQL Trace (use explain).
Inserts don't use indexes, because in many databases inserts are just done somewhere, But also with the INSERT, the primary key is the constraint for the uniqueness condition, duplicate keys are not allowed.
Coming to the original question, what is you actually coding for the update?
What is the table, which fields are in the internal table and what are the indexes?
Siegfried

Data populated in internal Table its not diplay in result

Similar Messages

Maybe you are looking for