Insert statement in to internal table

I have an editable ALV LIST report with the check box to it. When the user checks the check box on the report and hits a push Button it should copy the row from the internal table and insert the row to the same internal table in the next line.
I had my code in this way,
 WHEN 'COPY'.
 LOOP AT t_output INTO wa_output.
 IF wa_output-chkbox = 'X'.
 wa_output-zactual = 0.
 wa_output-zqty = 0.
 INSERT wa_output INTO t_output INDEX sy-tabix.
 ENDIF.
 ENDLOOP.
However the problem was,
For e.g. let say I have only 3 rows in the internal table. So when the user selects the last, 3rd row and hits the push button the 3rd row copied and is inserted in the 3rd row. The user wanted the copied row in the next row, ie the 4th row.
SO I changed the above code as below and now it goes to an endless loop.
 WHEN 'COPY'.
 LOOP AT t_output INTO wa_output.
 IF wa_output-chkbox = 'X'.
 wa_output-zactual = 0.
 wa_output-zqty = 0.
 Sy-tabix = sy-tabix + 1.
 INSERT wa_output INTO t_output INDEX sy-tabix.
 ENDIF.
 ENDLOOP.
I dont want to use another internal table.
I hope I am clear.
Please suggest,
Ster.

Hi,
Change the code as follows.
data: lv_cnt type i.
    describe table t_output lines lv_cnt.
     LOOP AT t_output INTO wa_output where wa_output-chkbox = 'X'
                                                            and wa_output-zactual = 0
                                                            and wa_output-zqty = 0.
          lv_cnt = lv_cnt + 1.
          INSERT wa_output INTO t_output INDEX lv_cnt.
      ENDLOOP.
Regards
Sailaja.

Similar Messages

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.

@Inserting Records in an Internal Table

Hi,
How can I Insert records in an internal table..such that i can insert the records somewhere in the middle based on the entry in a field?

INSERT wa INTO TABLE itab INDEX idx .
Effect
This variant can only be used for standard tables and sorted tables. Each line line_spec to be inserted into the line before the table index idx and the table index of the following lines is increased by one. A data object of the type i is expected for idx.
If idx contains a value equal to the number of the existing table lines plus one, the new line is appended as the last line in the internal table. If idx contains a greater value, no line is inserted and sy-subrc is set to 4.
An exception that cannot be handled is raised when:
idx contains a value less than or equal to 0
A line to be inserted would cause a duplicate entry in tables with a unique table key
A line to be inserted would disrupt the sort order of sorted tables
Within a LOOP loop, you can omit the addition INDEX. Each line to be inserted is inserted before the current table line of the LOOP loop. However, if the current line is deleted in the same loop pass, the response is undefined.

How to insert record inside the internal table in below code

Hi all,
My requirement is to find the sub-total and need to insert in between the internal table.
You can see the output ....where I want the sub-total F2 when 1 & 2 combindely , 3 , 4& 5 combindely .Please check it and let me know is it possible
when i am using modification it is not creating extra row inside the table instead it is modifying one row and putting the total there.
For ex: the origianl output is
F1   F2       F3
A      1          1
B      1          1
F      2          1
D      3          1
E      4          1
C      5          1
We want to display all the total of f2 of 1-2 , 3 , 4-5
so expcected output is
F1   F2       F3
A      1          1
B      1          1
F      2          1
     *              3 ->This is the sub-total of 1& 2 of f2
D      3          1
        *           1 ->this is the sub-total of 3
E      4          1
C      5          1
      *             2 -> this is the sub-total of 4 & 5
= space
But coming output is
A 1          1
B 1          1
*             3 -> it is modifying the F row and inserting the total .Total is comong correct but is shoule insert instead of modifying the record!!
*           1
E 4          1
*             2
Please help how to insert the row total at the end of the chage of field
Please find the below code ..Due to space problem i am attaching below
Sas

Here is the solution ....i Got the answer Thanks for your helping hands friends
REPORT YTEST_MODIFY.
DATA: BEGIN OF ITAB OCCURS 1,
TOT TYPE C,
F1 TYPE C,
F2 TYPE C,
F3 TYPE I ,
END OF ITAB.
DATA: BEGIN OF JTAB OCCURS 1,
F1 TYPE C,
F2 TYPE C,
F3 TYPE I ,
END OF JTAB.
START-OF-SELECTION.
ITAB-F1 = 'A'.
ITAB-F2 = 1.
ITAB-F3 = 1.
APPEND ITAB.
ITAB-F1 = 'B'.
ITAB-F2 = 1.
ITAB-F3 = 1.
APPEND ITAB.
ITAB-F1 = 'C'.
ITAB-F2 = 5.
ITAB-F3 = 1.
APPEND ITAB.
ITAB-F1 = 'D'.
ITAB-F2 = 3.
ITAB-F3 = 1.
APPEND ITAB.
ITAB-F1 = 'E'.
ITAB-F2 = 4.
ITAB-F3 = 1.
APPEND ITAB.
ITAB-F1 = 'F'.
ITAB-F2 = 2.
ITAB-F3 = 1.
APPEND ITAB.
SORT ITAB BY F2.
LOOP AT ITAB.
    WRITE:/1 ITAB-F1 ,
          8 ITAB-F2 ,
          10 ITAB-F3 .
ENDLOOP.
LOOP AT ITAB.
    IF ITAB-F2 = 1 OR ITAB-F2 = 2.
      ITAB-TOT = 1.
      MODIFY ITAB.
    ELSEIF ITAB-F2 = 3.
      ITAB-TOT = 3.
      MODIFY ITAB.
    ELSEIF ITAB-F2 = 4 OR ITAB-F2 = 5.
      ITAB-TOT = 4.
      MODIFY ITAB.
    ENDIF.
ENDLOOP.
SKIP 2.
SORT ITAB BY TOT.
DATA : L_SUM(2) TYPE C,
         L_ROW(2) TYPE C.
LOOP AT ITAB.
    MOVE-CORRESPONDING ITAB TO JTAB.
    APPEND JTAB.
    L_SUM = L_SUM + ITAB-F3 .
    AT END OF TOT.
      CLEAR JTAB.
      JTAB-F3 = L_SUM .
      APPEND JTAB.
      CLEAR L_SUM.
    ENDAT.
ENDLOOP.
LOOP AT JTAB.
    WRITE:/1 JTAB-F1 ,
          8 JTAB-F2 ,
          10 JTAB-F3 .
ENDLOOP.
* DATA: a TYPE i , b .
* LOOP AT itab.
*    IF b = 0.
*      a = a + itab-f3.
*    ENDIF.
*    AT END OF tot.
*      MOVE space TO itab-f1.
*      MOVE space TO itab-f2.
*      MOVE a TO itab-f3.
*      MODIFY itab .
*      CLEAR a.
*      b = 1.
*    ENDAT.
*    b = 0.
* ENDLOOP.
* LOOP AT itab.
*    MOVE-CORRESPONDING itab TO jtab.
*    APPEND jtab.
* ENDLOOP.
* ULINE.
* LOOP AT jtab.
*    WRITE: / jtab-f1 , jtab-f2 , jtab-f3.
* ENDLOOP.

Read statement into an internal table

Hi Experts,
In my report i have several read statements, now my requirement is i want to put all the read statements into an internal table, how do i achieve it???
Thank you!

Hello Maya,
i want to know how many number of times the read statement is used .
Two ways:
1. use a counter after each read statement in your program and increase it by 1 everytime there is read statement and display the final value of the counter in the report that you want.
2. If you just want to know press (CNTRL + F) enter "READ" , select the radio button "In Main program" and then you will get all the read statement and can count it manually.
Hope I have not answered your question wrong. But if I have, please be more specific about your requirement so that many an help you.
Thanks,
Jayant Sahu.

Read statement on dynamic internal tables

Hello All,
I have a dynamic internal table <G_T_ITAB> with fields F1, F2, F3 & F4 .
I want to read the internal table <G_T_ITAB>. So im using the below code.
LOOP AT G_T_DATA.
READ TABLE <G_T_ITAB> INTO <G_R_ITAB> WITH KEY F1 = G_T_DATA-F1.
IF SY-SUBRC <> 0.
ELSE.
ENDIF.
ENDLOOP.
But this is giving syntax error that F1 is not the field of <G_T_ITAB>. But the field is there in <G_T_ITAB>.
Can you suggest me to solve this issue. Or is there any other approach to use READ statement on dynamic internal tables.
Thanks in advance.
Best Regards,
Sasidhar Reddy Matli.

Hi ,
Read this way....
FIELD-SYMBOLS:
<fs_str> type any,
<fs_lf_fval> type any,
<fs_lt_result_rate> type any table,
<fs_ls_result_rate> type any.
DATA:
lv_fname type string.
lv_fname = 'MATNR'.
assign component 'matnr' of structure <fs_str> to <fs_lf_fval>.
READ TABLE <fs_lt_result_rate> INTO <fs_ls_result_rate>
WITH KEY (lv_fname) = <fs_lf_fval>.
Thanks,
Shailaja Ainala.

How to move "write statements" to a internal table...

hi experts.
i did "write statement" as follows
| a | b | c | d |
and then i want to insert to internal table after the screen contents as above.
the internal table exist only one field as follows.
data: begin of gt_itab,
 line type char255,
 end of gt_itab.
can i do this one?
i wish your answer.
thanks.
Regards
FM.
Edited by: yuntae kim on Jun 4, 2009 3:07 PM

Hi, you can try to export the list to memory. Like the code below:
DATA: tg_str TYPE TABLE OF listzeile,
 tl_mem TYPE TABLE OF abaplist,
 ilist TYPE TABLE OF abaplist WITH HEADER LINE.
EXPORT LIST TO MEMORY
CALL FUNCTION 'LIST_TO_MEMORY'
 EXPORTING
 list_index = 0
 TABLES
 listobject = ilist
 EXCEPTIONS
 empty_list = 1.
READ THE LIST
CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = tl_mem
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.
 EXIT.
ENDIF.
CHANGE LIST TO ASCII
CALL FUNCTION 'LIST_TO_ASCI'
 TABLES
 listasci = tg_str
 listobject = tl_mem
 EXCEPTIONS
 empty_list = 1
 list_index_invalid = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.
 EXIT.
ENDIF.
On table tg_str you gonna have the:
a
b
c
d
I hope it helps.

Inserting field in a internal table

I have a internal table in which has 3 fields, out of which 2 are filled. Now I want to insert some value in field 1 which is not filled.
I tried using
Loop at itab into wa_itab.
wa_itab-filed1 = 'test'.
modify itab from wa_itab.
endloop.
but still nothing is happening. I even used INSERT command but without any result.

Hi,
Refer below code
    IF NOT it_crmm_territory[] IS INITIAL.
      LOOP AT it_crmm_territory INTO wa_crmm_territory.
        l_index = sy-tabix.
        CLEAR : wa_crmm_territory_v.
        READ TABLE it_crmm_territory_v INTO wa_crmm_territory_v WITH KEY terr_guid = wa_crmm_territory-terr_guid.
        IF sy-subrc EQ 0.
          wa_crmm_territory-valid_from = wa_crmm_territory_v-valid_from.
          wa_crmm_territory-valid_to   = wa_crmm_territory_v-valid_to.
          wa_crmm_territory-guid       = wa_crmm_territory_v-guid.
        ENDIF.
        MODIFY it_crmm_territory FROM wa_crmm_territory INDEX l_index
                                      TRANSPORTING guid valid_from valid_to.
        CLEAR : wa_crmm_territory.
      ENDLOOP.
    ENDIF.
Regards,
Prashant

Using 1million insert statement to create a table

Dear Expert;
Lets say someone sent you about 2 million insert statements and you want to use them to insert into a table or create a new table...How do you go about doing so...
because I tried just highlighting all the insert statement and executing them, however that didnt work in pl/sql developer, it was crashing everytime I did so
The other way might be to create a loop for them and inserting about 10,000 at a time...but is there a faster way to do it...
All help is appreciated it..

user13328581 wrote:
Dear Expert;
Lets say someone sent you about 2 million insert statements and you want to use them to insert into a table or create a new table...How do you go about doing so...
because I tried just highlighting all the insert statement and executing them, however that didnt work in pl/sql developer, it was crashing everytime I did soDo it in SQL*PLUS. It can handle such large files.
And let it run at night so that other users are not influenced that much by your session.
You might want to add very few commits somewhere in between. However in case something breaks you then need to know which insert was still executed and which one one.

Inserting blank line in internal table

Hi
I am inserting a report from a internal table for eg the content of my internal table is
data : abc
event initialization.
perform read_data.
Now I want 1 blank line after every line in the internal table for eg
data:abc
event initialization
perform read_data.
How to insert a blank line in an internal table?
Edited by: priya singh on Feb 4, 2009 9:37 AM

hi,
DATA: BEGIN OF i_pernr OCCURS 1 ,
pernr TYPE pa0002-pernr,
vorna TYPE pa0002-vorna,
nachn TYPE pa0002-nachn,
END OF i_pernr.
TYPES : BEGIN OF string1 ,
     a TYPE char100,
    END OF string1.
DATA : wa_string TYPE string1,
       it_stirng TYPE TABLE OF string1.
START-OF-SELECTION.
SELECT pernr vorna nachn FROM pa0002 INTO TABLE i_pernr UP TO 20 ROWS.
LOOP AT i_pernr.
    CONCATENATE i_pernr-pernr i_pernr-vorna i_pernr-nachn INTO wa_string-a SEPARATED BY '|'.
    APPEND wa_string TO it_stirng.
    APPEND INITIAL LINE TO it_stirng.
ENDLOOP.
BREAK-POINT.
Thanks

Inserting data into dynamic internal tables

Hello everyone, i need some suggestions on the following problem:
I have created a dynamic table that consist of storage locations(SL) belonging to a plant. Each record in the internal table would need to display all the SL on the same line. I have succesfully created it and displayed it on an ALV, the problem now is how to insert data for the dynamically created storage locations:
EXAMPLE: Created dynamic itab
colA | colB | SL1 | SL2 | ... | SLn | colC | <--header
data | data | 100 | 120 | ... | 200 | data | <--record
I would like to insert data from the fields of another itab into SL1 to SLn. How can i go about doing it?
Data from ColA to ColC has been filled through:
loop at itab into w_itab.
move-corresponding w_itab to <dyn_tab>.
endloop.
I cannot do the same to the SLs as the fields is dynamically created during runtime and the fieldname is different from the data that i am to insert in into.
Any ideas?

Hi,
I have the following code in my BADI:
ct_value_list is defined in the parameters of the method as a type standard table.
Create values list reference
CREATE DATA lv_value_list_ref LIKE LINE OF ct_value_list.
ASSIGN lv_value_list_ref->* TO <lfs_value_list>.
IF CT_VALUE_LIST IS INITIAL.
 lv_tabix = sy-tabix.
 IF NOT LT_DATA[] IS INITIAL.
 LOOP AT lt_data assigning <lfs_data>.
 assign <lfs_data> to <lfs_value_list>.
 assign <lfs_value_list> to <lv_value_list>.
 ASSIGN COMPONENT lc_prvar OF STRUCTURE <lfs_value_list>
 TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
Get the material id
 READ TABLE it_matkey_tab ASSIGNING <lfs_matkey>
 WITH KEY matnr = <lfs_attribute>.
 IF sy-subrc = 0.
 lv_matid = <lfs_matkey>-matid.
 ENDIF.
 ENDIF.
 ASSIGN COMPONENT lc_mktgr OF STRUCTURE <lfs_value_list>
 TO <lfs_attribute>.
 IF <lfs_value_list> IS ASSIGNED.
 READ TABLE it_loc ASSIGNING <lfs_loc>
 WITH KEY locno = <lfs_attribute>.
 IF sy-subrc = 0.
 lv_locid = <lfs_loc>-locid.
 ENDIF.
 READ TABLE it_matloc ASSIGNING <lfs_matloc_int>
 WITH KEY matid = lv_matid
 locid = lv_locid.
 if sy-subrc = 0.
 MATLOC: Assignment of Values - START
 ASSIGN COMPONENT 'MATLOCID'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-matlocid.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 INSERT <lfs_matloc_int> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'PLANNER_SNP'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-planner_snp.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'AT101'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-at101.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'AT102'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-at102.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'AT103'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-at103.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'AT104'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-at104.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'AT105'
 OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_matloc_int>-at105.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 endif.
 ENDIF.
 ASSIGN COMPONENT 'PRVAR'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-prvar.
 INSERT <lfs_value_list> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'PARPR'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-parpr.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'VARID'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-varid.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'VARCT'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-varct.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'VARTX'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-vartx.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'DMOAP'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-dmoap.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'PRDID'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-prdid.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BRFAM'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-brfam.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MATKL'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-matkl.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BRDIF'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-brdif.
 INSERT <lfs_attribute> INTO TABLE ct_value_list.
 ENDIF.
 ASSIGN COMPONENT 'MEIND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-meind.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MKLEN'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-mklen.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'PCKTY'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-pckty.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'ITPCK'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-itpck.
 INSERT <lfs_attribute> INTO TABLE ct_value_list.
 ENDIF.
 ASSIGN COMPONENT 'PMEIN'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-pmein.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MKTHK'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-mkthk.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'FLIND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-flind.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'EDTID'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-edtid.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BNDTY'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-bndty.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'ITBND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-itbnd.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'ITCSE'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-itcse.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'TPCOL'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-tpcol.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'SPFLV'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-spflv.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'PRSHP'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-prshp.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MKTGR'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-mktgr.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'SUBMK'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-submk.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BOMHD'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-bomhd.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BRDSC'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-brdsc.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MKSTR'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-mkstr.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'EDDSC'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-eddsc.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'EDCAT'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-edcat.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'CCIND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-ccind.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'CGSTY'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-cgsty.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'FLTTY'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-fltty.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'CPIND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-cpind.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MBIND'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-mbind.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'USPRP'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-usprp.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'EDDET'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-eddet.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'BRGEW'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-brgew.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'NTGEW'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-ntgew.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'GEWEI'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-gewei.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'VOLUM'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-volum.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'VOLEH'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-voleh.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'DMOAPP1'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-dmoapp1.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'MAKTX'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-maktx.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ASSIGN COMPONENT 'RPLVL'
 OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.
 IF <lfs_attribute> IS ASSIGNED.
 <lfs_attribute> = <lfs_value_list>-rplvl.
 INSERT <lfs_attribute> INTO TABLE <lv_value_list>.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDIF.
I get a shortdump in the code for the above code. There are diff types of inserts that I am trying to do and each one gives a short dump.
Looking forward to your inputs.
Your program is not applicable in my case as I have ct_value_list passed as a changing parameter of type standard table in my APO BADI.
cheers
Aveek

Dynamically inserting new line in Internal table

Hi,
Can anyone help me how to insert a new line dynamically to the internal table.
Assume there are 5 records that has been added to ITAB.
In that if a particular field in that ITAB crosses the limit 10 then i have to split that line into two lines with the same data except that Par.field as 5 and the other record has 5.
In the third record that particular field has value 10.
Loop at ITAB.
 Once i found that field has 10 then how to insert a new line dynamically over here to add another record.
endloop.

Hi..
Hi..
try this..
loop at itab.
if ( i found that field <f1> has 10 ).
 w_line2 = itab-f1+5(5).
 w_line3 = itab-f1.
***********First line********
 itab-f1 = itab-f1+0(5).
 modify itab index sy-tabix from itab transporting f1.
***********second line******** Hi..
try this..
loop at itab.
if ( i found that field <f1> has 10 ).
 w_line2 = itab-f1+5(5).
 w_line3 = itab-f1.
***********First line********
 itab-f1 = itab-f1+0(5).
 modify itab index sy-tabix from itab transporting f1.
***********second line********
 itab-f1 = w_line2.
 insert itab INDEX SY-TABIX.
**********third line**************
 itab-f1 = w_line3.
 insert itab INDEX SY-TABIX.
endloop.
 itab-f1 = w_line2.
 insert itab INDEX SY-TABIX.
**********third line**************
 itab-f1 = w_line3.
 insert itab INDEX SY-TABIX.
endloop.

Inserting single column in internal table

Hiii,
I have to insert data into a single column of a internal table from a field.The rest of the columns of the internal table are already filled.
wats is the syntax for it?? plz reply soon...its very urgent.

Hi,
try this
data idx type sy-tabix.
loop at itab.
itab-fld1 = 'some value'. " your empty field
modify itab index idx.
endloop.
Regards,
V.Balaji
Reward if Usefull...

Read Statement in Dynamic Internal Table?

Hi,
Is it possible read statement in Dynamic Internal table?
Thanls,
Suresh.

Hi,
I think it will be possible. look at the following code u may get some idea.
FORM field_check_blank USING pi_zcheck_name TYPE zcheck_name
pi_mara TYPE mara
pi_keys TYPE yi_keys
CHANGING pio_failed TYPE char1.
DATA: li_ftab TYPE TABLE OF string,
 li_wtab TYPE TABLE OF string,
 l_tabnam TYPE string,
 l_tabfld TYPE string,
 l_txt TYPE string,
 lw_keys LIKE LINE OF pi_keys.
CONSTANTS: lc_key_def TYPE string VALUE '&1 = &2-&1'.
FIELD-SYMBOLS: <fval> TYPE ANY,
 <fval2> TYPE ANY,
 <fstruct> TYPE ANY.
CLEAR: pio_failed.
SPLIT pi_zcheck_name AT '-' INTO l_tabnam l_tabfld.
APPEND l_tabfld TO li_ftab.
ASSIGN (l_tabnam) TO <fstruct>.
IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH l_tabnam.
ENDIF.
CLEAR: <fstruct>.
LOOP AT pi_keys INTO lw_keys
WHERE TABLE = L_TABNAM.
 ASSIGN COMPONENT lw_keys-field OF STRUCTURE <fstruct> TO <fval>.
 IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH lw_keys-field.
 ENDIF.
 ASSIGN COMPONENT lw_keys-field OF STRUCTURE pi_mara TO <fval2>.
 IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH lw_keys-field.
 ENDIF.
 <fval> = <fval2>.
 l_txt = lc_key_def.
 REPLACE ALL OCCURRENCES OF '&1' IN l_txt WITH lw_keys-field.
 REPLACE '&2' IN l_txt WITH lw_keys-table.
 IF NOT li_wtab IS INITIAL.
 CONCATENATE 'AND' l_txt INTO l_txt SEPARATED BY space.
 ENDIF.
 APPEND l_txt TO li_wtab.
ENDLOOP.
ASSIGN (pi_zcheck_name) TO <fval>.
IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH pi_zcheck_name.
ENDIF.
SELECT SINGLE (li_ftab)
 INTO <fval>
 FROM (l_tabnam)
 WHERE (li_wtab).
IF NOT sy-subrc EQ 0
OR NOT <fval> IS INITIAL.
 pio_failed = c_true.
ENDIF.
ENDFORM. " FIELD_CHECK_BLANK
Note:
BEGIN OF y_keys,
 table TYPE tabname,
 field TYPE fieldname,
 END OF y_keys.
If helpful pl reward.
Cheers

Insert Statement for Form on Table with Report

I'm using a 'getID' process On Load Before Header to make sure I get an ID for my form per suggestion from blarman here. The form has many fields from one table and four collections. If I let the process run as I think it should (when the ID is null) the link to the report does not fetch any field except the id. If I set the process to never run everything loads but my update process doesn't run. What am I doing wrong? Advance thanks...
Alexandra
Get ID Process
declare
new_id NUMBER; --gets the next sequence number for new record ID
begin
INSERT INTO DOC_INFO (DOC_INFO_ID,OWNER_ID,STATUS_ID, DOCNO, DOC_TITLE, REVISION, STATUS_DT,ISSUE_DT, REVIEW_DT, ECRNO, ECR_LINK, DOC_LINK, COMMENTS, KEYWORDS, DOC_TYPE, ASSOC_ITEMNO, FILE_TYPE, FILE_NAME, CHANGE_TYPE, NEW_DOCNO) values(new_id, 0, 0, '', '', '', '','', '', '', '', '', '', '', '', '', '', '', '','');
:P26_DOC_INFO_ID := new_id;
end;Update Process (On Submit/After Comp...)
Update DOC_INFO
SET
DOC_INFO_ID = :P26_DOC_INFO_ID,
OWNER_ID = :P26_OWNER_ID,
STATUS_ID = :P26_STATUS_ID,
DOCNO = :P26_DOCNO,
DOC_TITLE = :P26_DOC_TITLE,
REVISION = :P26_REVISION,
STATUS_DT = :P26_STATUS_DT,
ISSUE_DT = :P26_ISSUE_DT,
REVIEW_DT = :P26_REVIEW_DT,
ECRNO = :P26_ECRNO,
ECR_LINK = :P26_ECR_LINK,
DOC_LINK = :P26_DOC_LINK,
COMMENTS = :P26_COMMENTS,
KEYWORDS = :P26_KEYWORDS,
DOC_TYPE = :P26_DOC_TYPE,
ASSOC_ITEMNO = :P26_ASSOC_ITEMNO,
FILE_TYPE = :P26_FILE_TYPE,
FILE_NAME = :P26_FILE_NAME,
CHANGE_TYPE = :P26_CHANGE_TYPE,
NEW_DOCNO = :P26_NEW_DOCNO
WHERE DOC_INFO_ID = :P26_DOC_INFO_ID;

Got it...I think it had to do with the use of my 'Create' and 'Apply Changes' buttons.
Thanks for your time anyway.

Insert statement in to internal table

Similar Messages

Maybe you are looking for