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

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.

Add field in an internal table

Hi There,
How to add a field in an internal table created at the runtime using
CREATE DATA D1 TYPE TABLE OF (VAR).
where say var contains name of a DDIC table.
Rgds,
deb.

after creating internal table use the method for creation of dynamic table and try , i am not sure
DATA: LineType TYPE string,
      ItabRef TYPE REF TO DATA.
FIELD-SYMBOLS:   TYPE STANDARD TABLE.
LineType = 'SFLIGHT'.
" Create internal table and attach a field-symbol
CREATE DATA ItabRef TYPE STANDARD TABLE OF (LineType).
ASSIGN ItabRef->* TO .
<b>after this check this and try</b>
******DATA DECLARATION*****************************
FIELD-SYMBOLS : <it_final> TYPE STANDARD TABLE,
                <wa_final> TYPE ANY,
                <w_field> TYPE ANY.
***DYNAMIC CREATION OF FIELDCATALOG****************
*FIRST 2 FIELDS FIELDS FIELD1 AND FIELD2 ARE CONSTANT, FIELDS OBTAINED IN THE LOOP ENDLOOP ARE DYNAMIC,
*LIKEWISE DYNAMIC FIELDCATALOG IS CREATED
wa_fieldcatalog-fieldname = 'FIELD1'.
wa_fieldcatalog-ref_table = 'E070'.
wa_fieldcatalog-outputlen = '13'.
wa_fieldcatalog-reptext    = 'Created On'.
wa_fieldcatalog-seltext    = 'Created On'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'FIELD1'.
wa_fieldcatalog-ref_table = 'E070'.
wa_fieldcatalog-outputlen = '13'.
wa_fieldcatalog-reptext    = 'Created On'.
wa_fieldcatalog-seltext    = 'Created On'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
LOOP AT it_mandt WHERE mandt IN s_mandt.
    CONCATENATE 'CLNT' it_mandt INTO wa_fieldcatalog-fieldname.
    wa_fieldcatalog-inttype    = 'NUMC'.
    wa_fieldcatalog-outputlen = '14'.
    wa_fieldcatalog-reptext    = it_mandt.
    wa_fieldcatalog-seltext    = it_mandt.
    APPEND wa_fieldcatalog TO it_fieldcatalog.
    CLEAR :wa_fieldcatalog ,it_mandt.
ENDLOOP.
********CREATE DYNAMIC TABLE************************
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fieldcatalog
    IMPORTING
      ep_table                  = new_table
    EXCEPTIONS
      generate_subpool_dir_full = 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.
ASSIGN new_table->* TO <it_final>.
*********CREATE WORK AREA****************************
CREATE DATA new_line LIKE LINE OF <it_final>.
ASSIGN new_line->* TO <wa_final>.
*********INSERTTING WORK AREAR TO INTERNAL TABLE******
    INSERT <wa_final> INTO TABLE <it_final>.
*******POPULATING DATA*******************************
LOOP.
   ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <wa_final> TO <w_field>.
   <w_field> = '12345'.
    ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <wa_final> TO <w_field>.
   <w_field> = '21453DD'.
   FIELD1 AND FIELD2 ARE COMPONENTS OF FIELDCATALOG.
ENDLOOP.
ENDLOOP.

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.

Splitting a string into respective fields of dynamic internal table

Hi,
    I've a string concatenated with a separator. I've to split the string and assign it to the respective fields of an internal table, which is dynamic.
Table name will be passed through selection screen. The data is coming from another system via RFC.
Eg : String ITAB :
                            100;89001;EN;Material1;MATERIAL1
                            100;89002;EN;Material2;MATERIAL2
The String ITAB may contain any master data. Let's say the above data is from MAKT table. So, I want to assign the above data to the respective fields of MAKT internal table(Dynamic).
I heard, this requirement can be achieved using some standard CLASS.
Please help me in doing this task.
Regards,
Sunny

Hello,
you can use dynamic programming for this issue, i.e.:
DATA: gv_table_name   TYPE string,
      gr_type_desc    TYPE REF TO cl_abap_typedescr,
      gr_struct_desc TYPE REF TO cl_abap_structdescr,
      gr_table_desc   TYPE REF TO cl_abap_tabledescr,
      gv_t            TYPE c,
      gv_comp         TYPE i,
      gr_table_ref    TYPE REF TO data,
      gr_struc_ref   TYPE REF TO data.
DATA: gt_itab   TYPE TABLE OF string,
      gt_split TYPE TABLE OF string,
      gv_str    TYPE string.
FIELD-SYMBOLS: <table>    TYPE ANY TABLE,
               <struct>   TYPE ANY,
               <comp>     TYPE ANY.
APPEND '100;89001;EN;Material1;MATERIAL1' TO gt_itab.
APPEND '100;89002;EN;Material2;MATERIAL2' TO gt_itab.
"go!
gv_table_name = 'MAKT'.
cl_abap_tabledescr=>describe_by_name(
      EXPORTING p_name = gv_table_name
      RECEIVING p_descr_ref = gr_type_desc
      EXCEPTIONS type_not_found = 4 ).
gr_struct_desc ?= gr_type_desc.
gr_table_desc = cl_abap_tabledescr=>create( gr_struct_desc ).
CREATE DATA gr_table_ref TYPE HANDLE gr_table_desc.
CREATE DATA gr_struc_ref TYPE HANDLE gr_struct_desc.
ASSIGN gr_table_ref->* TO <table>.
ASSIGN gr_struc_ref->* TO <struct>.
DESCRIBE FIELD <struct> TYPE gv_t COMPONENTS gv_comp.
LOOP AT gt_itab INTO gv_str.
CLEAR: gt_split.
SPLIT gv_str AT ';' INTO TABLE gt_split.
DO gv_comp TIMES.
    READ TABLE gt_split INTO gv_str INDEX sy-index.
    ASSIGN COMPONENT sy-index OF STRUCTURE <struct> TO <comp>.
    <comp> = gv_str.
    CLEAR gv_str.
ENDDO.
INSERT <struct> INTO TABLE <table>.
ENDLOOP.
After this code you will have all data in <table> field symbol in proper type.
Regards,
Jacek

Extract a value of a fields from an internal table

hello everyone,
i need to extract a value of a fields from an internal table, the fields is in a postion "sy-tabix" that i know, so i need to pick this value without using a loop
thank you.

Like this?
DATA: FIELD1 TYPE C,
FIELD2 TYPE C.
READ TABLE T_TAB INDEX 3.
FIELD1 = T_TAB-FIELD1.
FIELD2 = T_TAB-FIELD2.
Greetings,
Blag.

Field catalog for internal table in ALV

In my program the internal table consists many fields from various tables and structure doesn't belong to a single data table.
In order to get output in ALV grid following FM has been used
REUSE_ALV_GRID_DISPLAY
for field catalog the fields are defined specifically.
l_fieldcat-fieldname = 'VBELN'.
l_fieldcat-outputlen = 10.
l_fieldcat-seltext_l = 'Billing doc'.
l_fieldcat-no_zero = 'X'.
l_fieldcat-hotspot = 'X'.
append l_fieldcat to p_fieldtab.
..............and so on for all the fields.
Just wanted to know is there any other method to display all the fields of this internal table automatically so each field is not specified specifically.
anya

Hi
Try this instead:
*& Form create_fieldcatalog
* Create a field catalogue from any internal table
*      -->PT_TABLE     Internal table
*      -->PT_FIELDCAT Field Catalogue
FORM create_fieldcatalog
       USING     pt_table     TYPE ANY TABLE
       CHANGING pt_fieldcat TYPE lvc_t_fcat.
DATA:
    lr_tabdescr TYPE REF TO cl_abap_structdescr
, lr_data     TYPE REF TO data
, lt_dfies    TYPE ddfields
, ls_dfies    TYPE dfies
, ls_fieldcat TYPE lvc_s_fcat
CLEAR pt_fieldcat.
CREATE DATA lr_data LIKE LINE OF pt_table.
lr_tabdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ).
lt_dfies = cl_salv_data_descr=>read_structdescr( lr_tabdescr ).
LOOP AT lt_dfies
INTO    ls_dfies.
    CLEAR ls_fieldcat.
    MOVE-CORRESPONDING ls_dfies TO ls_fieldcat.
    APPEND ls_fieldcat TO pt_fieldcat.
ENDLOOP.
ENDFORM.                    "create_fieldcatalog

Fields in an internal table

How to find number of fields in an internal table ?
my requirement is i have 20 internal tables and the data is being uploaded into an application server. so how to find no of fields in a particular internal table

concatenate all the fields and move them to final internal table , call the function module "GET_COMPONENT_LIST" and pass the work area of the final internal table in the parameter fieldname
***For getting no of FIELDS in an internal table ********
CALL FUNCTION 'GET_COMPONENT_LIST'
EXPORTING
    PROGRAM          = syrepid
    FIELDNAME        = 't_payr'
TABLES
    COMPONENTS       = fieldlist.
describe table fieldlist lines pyr_no_fields.
********end of getting no of fields**********
TRANSFER wa_mat_out_head TO P_FNAME.
LOOP AT GT_PAYR.
MOVE: GT_payr-LIFNR TO T_payr-lifnr,
       GT_payr-ZBUKR TO T_payr-zbukr,
       GT_payr-LAUFD TO T_payr-LAUFD,
       GT_payr-CHECT TO T_payr-CHECT,
       GT_payr-RWBTR TO T_payr-RWBTR.
Concatenate T_payr-lifnr t_payr-zbukr T_payr-laufd T_payr-chect
            T_payr-rwbtr into wa_mat_out-rec SEPARATED by ',' .

Changing the order of fields in an internal table

Hi all,
I'm using field symbol as internal table. this table has got a standard database structure.
I want to make the 3rd column of this internal table as 1st colums keeping rest of the columns as it is.
Is there any way to do this?
Thanks,
Anil.

Hi
Instead of directly taking the type as a standard structure , declare the FS internal table as type of types structure.
Data: fs_scarr like type_s_scarr.
FIELD-SYMBOLS <scarr2> TYPE fs_scarr
In the types put the third column as first one and use into corresponding in select query
or else
while displaying the internal table change the order of the columns
Loop at itab into fs_itab.
write : col3
col2
col4
endloop.
Thanks,
Viquar Iqbal

Aggregate a numeric field in an internal table

Hi All,
I have a small requirement in ABAPit goes in this fashion
I need to aggregate a numeric field in an internal table, the table is as follows
FLD1        FLD2         NUM1       FLD3
123A        B1             10            C1
123A        B1             25            C1
123B        B1             20            C2
123C        B2            10             C3
Note: FLD1, FLD2, FLD3 are of type numeric characters and NUM1 is of type number or integer
I want the result to be as follows
FLD1        FLD2        NUM1        FLD3
123A        B1            35             C1
123B        B1            20             C2
123C        B2            10             C3
i.e. values in field NUM1 should get add up when the values in all other fields are same
I am not able to use _collect_ for this as the fields contain numeric characters.
Regards and Thanks,
Antony

Hi Antony
collect here works like this:-
use at new field
      sum
end at.
Pls reward points if it wil be helpful.
Regards
Depanker

I need to add check whether 21 fields of a internal table are empty or not.

Hello,
I need to add check whether 21 fields of a internal table are empty or not.How can we write a code for the same wand what would be the correct syntax for it.
I tried entering all the fields in the IF loop with AND condition but its giving syntax error.Perhaps this is because the lenght of the IF condition would be more than the allowed one.

Hi,
After the select quiery.
If not itab is initial.
Message 'Table is not empty' type 'I'.
Endif.
Regards,
Jagadish.

First occurence of a value from a field in the internal table.

How to select the first occurence of a value from a field in an internal table ?
I don think , we can use select query .
Any suggestions?
provide syntaxs also .

Hi...
You have to use this code.
DATA : Begin of IT_MARA occurs 0,
             mtart type mara-mtart,
             matnr type mara-matnr,
             meins type mara-meins,
          END OF IT_MARA.
START-of-SELECTION.
SELECT MTART MATNR MEINS FROM MARA INTO TABLE IT_MARA.
END-OF-SELECTION.
LOOP AT IT_MARA.
<b> AT NEW MTART.      "This will trigger for every first/new value of the field
             <<<<WRITE YOUR CODE here>>
   ENDAT.</b>
ENDLOOP.
You can also use.
LOOP AT IT_MARA.
<b> <b> ON CHANGE OF IT_MARA-TART.
             <<<<WRITE YOUR CODE here>>
   ENDON.</b></b>
ENDLOOP.
<b>Reward if Helpful.</b>

Coloring a field in the internal table

Hi all,
How can I color a field in the internal table knowing that I'm developing a classic report.
Thanks in advance.

hi,,,
check this code.
*-----TABLES DECLARATION
tables : kna1,                     "Customer Master
       vbak,                     "Sales Document Header
         vbap,                     "Sales Document Item
         sscrfields.               "Screen Field Table
&               D A T A   D E C L A R A T I O N                       &
data : begin of it_kna1 occurs 0,
        kunnr type kna1-kunnr,      "Customer Number
        land1 type kna1-land1,      "Country Key
        name1 type kna1-name1,      "Name
        ort01 type kna1-ort01,      "City
       end of it_kna1.
data : begin of it_kna2 occurs 0,
        kunnr type kna1-kunnr,      "Customer Number
        land1 type kna1-land1,      "Country Key
        name1 type kna1-name1,      "Name
        ort01 type kna1-ort01,      "City
       end of it_kna2.
data: begin of it_vbak occurs 0,
        vbeln type vbak-vbeln,      "Sales Document
        erdat type vbak-erdat,      "Date
        ernam type vbak-ernam,      "Name of Person
        auart type vbak-auart,      "Sales Document Type
       end of it_vbak.
data: begin of it_vbap occurs 0,
        vbeln type vbap-vbeln,      "Sales Document
        posnr type vbap-posnr,      "Sales Document Item
        matnr type vbap-matnr,      "Material Number
        matkl type vbap-matkl,      "Material group
       end of it_vbap.
data: v_count type int4,           "Current Row Index
       v_line like sy-lisel,        "Contents of selected line
       v_kunnr like kna1-kunnr.
&                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.
selection-screen begin of line.
parameters : rb1 radiobutton group g1 default 'X'.
selection-screen comment 5(20) text-002 for field rb1.
selection-screen end of line.
select-options : so_kunnr for kna1-kunnr obligatory.
parameters : p_hits(3) type c.
selection-screen begin of line.
parameters : rb2 radiobutton group g1.
selection-screen comment 5(20) text-003 for field rb2.
selection-screen end of line.
parameters : p_file like rlgrap-filename default 'c:\test'.
selection-screen pushbutton /33(10) custl user-command push1.
selection-screen pushbutton 58(10) custd user-command push2.
selection-screen end of block b1.
&                  I N I T I A L I Z A T I O N                        &
initialization.
move 'LOAD' to custl.
move 'DISP' to custd.
&                  A T L I N E S E L E C T I O N                    &
at selection-screen.
perform validate_kunnr.
& A T S E L E C T I O N S C R E E N O N V A L U E-R E Q U E S T &
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
    exporting
      program_name = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = ' '
    importing
      file_name     = p_file.
&              S T A R T O F S E L E C T I O N                      &
start-of-selection.
perform cust_details.
&              S T A R T O F S E L E C T I O N                      &
top-of-page.
format color 3 intensified off.
write :/02(25) sy-repid.
write : 39(15) 'Page'(010), sy-pagno.
format color off.
format color 6 intensified off.
format color col_heading.
uline at :/1(60).
write: /1 sy-vline,
          2 'Cust Number'(000),
          14 sy-vline,
          16 'Country'(007),
          25 sy-vline,
          26 'City'(008),
          42 sy-vline,
          43 'Region'(009),
          60 sy-vline.
uline at :/1(60).
format color col_heading off.
&   T O P O F P A G E D U R I N G L I N E S E L E C T I O N      &
top-of-page during line-selection.
if sy-lsind eq 1 or sy-ucomm eq 'VBAK'.
    format color col_heading.
    uline at :/1(60).
    write : /1 sy-vline,
                 2 'Docu No.'(011),
                 14 sy-vline,
                 16 'Date'(012),
                 26 sy-vline,
                 27 'Name'(013),
                 42 sy-vline,
                 43 'DType'(014),
                 60 sy-vline.
    uline at :/1(60).
elseif sy-lsind eq 2 or sy-ucomm eq 'VBAK'.
    set pf-status space.
    uline at :/1(60).
    write : /1 sy-vline,
                 2 'Docu No.'(015),
                 14 sy-vline,
                 16 'Sales Item'(016),
                 25 sy-vline,
                 26 'Mat No'(017),
                 42 sy-vline,
                 43 vbap-matkl,
                 50 'Mat Grp'(018),
                 60 sy-vline.
    uline at :/1(60).
endif.
& AT USER-COMMAND                                                    &
at user-command.
case sy-ucomm.
    when 'VBAK'.
      perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
&      AT LINE SELECTION                                              &
at line-selection.
if sy-lsind = 1.
    set pf-status 'DDDD'.
    perform sales_header.
elseif sy-lsind = 2.
case sy-ucomm.
    when 'PICK'.
    set pf-status space.
    perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
   PERFORM sales_item.
endif.
& AT USER-COMMAND                                                    &
at user-command.
case sy-ucomm.
    when 'VBAK'.
      perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
&      Form CUST_DETAILS                                             &
form cust_details .
select kunnr
         land1
         name1
         ort01
         from kna1
         into table it_kna1
         where kunnr in so_kunnr.
if sy-subrc <> 0.
    message 'SELECT VALID CUST NO' type 'I'.
else.
    loop at it_kna1.
     v_count = v_count + 1.
      if sy-tabix < p_hits.
     IF v_count <= p_hits.
        move it_kna1 to it_kna2.
        append it_kna2.
      else.
        exit.
      endif.
    endloop.
endif.
if not it_kna2[] is initial.
    loop at it_kna2.
      write : /1 sy-vline,
               2 it_kna2-kunnr,
               14 sy-vline,
               16 it_kna2-land1,
               25 sy-vline,
               26 it_kna2-name1,
               42 sy-vline,
               43 it_kna2-ort01,
               60 sy-vline.
      uline at :/1(60).
    endloop.
endif.
endform.                    " CUST_DETAILS
**&      Form load_file
*form load_file .
*endform.                    " load_file
**&      Form disp_file
*form disp_file .
*endform.                    " disp_file
*&      Form VALIDATE_KUNNR
form validate_kunnr .
select single kunnr
                from kna1
                into kna1
                where kunnr = so_kunnr.
endform.                    " VALIDATE_KUNNR
*&      Form SALES_HEADER
form sales_header .
data : v_kna1(13).
v_kna1 = 'IT_KNA2-KUNNR'.
*get cursor line sy-lilli value v_line
clear v_kunnr.
get cursor field v_kna1 value v_kunnr.
v_kunnr = v_line+1(10).
call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input = v_kunnr
    importing
      output = v_kunnr.
select vbeln
         erdat
         ernam
         auart
         from vbak
         into table it_vbak
         where kunnr = v_kunnr.
if sy-subrc = 0.
    loop at it_vbak.
      write : /1 sy-vline,
               2 it_vbak-vbeln,
               14 sy-vline,
               16 it_vbak-erdat,
               26 sy-vline,
               27 it_vbak-ernam,
               42 sy-vline,
               43 it_vbak-auart,
               60 sy-vline.
      uline at :/1(60).
    endloop.
endif.
endform.                    " SALES_HEADER
*&      Form SALES_ITEM
form sales_item .
data : v_vbeln(13).
v_vbeln = 'IT_VBAK-VBELN'.
clear it_vbak-vbeln.
get cursor field v_vbeln value it_vbak-vbeln.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input = it_vbak-vbeln
    importing
      output = it_vbak-vbeln.
select vbeln
         posnr
         matnr
         matkl
from vbap
into table it_vbap
where vbeln = it_vbak-vbeln.
loop at it_vbap .
    write : /1 sy-vline,
               2 it_vbap-vbeln,
               14 sy-vline,
               16 it_vbap-posnr,
               25 sy-vline,
               26 it_vbap-matnr,
               42 sy-vline,
               43 it_vbap-matkl,
               60 sy-vline.
    uline at :/1(60).
endloop.
endform.                    " SALES_ITEM
*&      Form DISP_DOCU
form display_basic .
loop at it_kna1 into it_kna1.
    format hotspot on.
    write : /03 it_kna1-kunnr,
             24 it_kna1-name1.
    hide it_kna1-kunnr.
endloop.
endform.                    " display_basic
pls reward if useful
regards,
rekha

Mapping corresponding field in the internal table

Hi guys I need help with putting XML value into the appropriate fields in the internal table struc. I attempted to use if else condition to map the element name (cname)over to the fields but those internal table within an internal table post an issue of when to append and so on ... I am using FM SMUM_XML_PARSE and the output in to this table type smum_xmltb (containing all the XML Element and Values) I want to map it to its corresponding field in the internal table (defined below)
Pls pardon this newbie here as this is very new to me. Hope to hear fr u all soon and points will be given! ")
XML->>
<?xml version="1.0" encoding="iso-8859-1"?>
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<BOOKLIST>
<DATE>2006-09-25</DATE>
<TIME>16:27:20</TIME>
<BOOK_RECORD>
<BOOK_NUM>0012345678</BOOK_NUM>
<SHORT_DESC>OMS BOOK</SHORT_DESC>
<BOOK_GROUP>
<BOOK_CATEGORY>
<CATEGORY_ID>03</CATEGORY_ID>
<CATEGORY_DESC>BOOK group 3</CATEGORY_DESC>
</BOOK_CATEGORY>
<BOOK_CATEGORY>
<CATEGORY_ID>02</CATEGORY_ID>
<CATEGORY_DESC>BOOK group 2</CATEGORY_DESC>
</BOOK_CATEGORY>
</BOOK_GROUP>
</BOOK_RECORD>
<BOOK_RECORD>
<BOOK_NUM>0012345679</BOOK_NUM>
<SHORT_DESC>SAP BOOK</SHORT_DESC>
<BOOK_GROUP>
<BOOK_CATEGORY>
<CATEGORY_ID>01</CATEGORY_ID>
<CATEGORY_DESC>BOOK group 1</CATEGORY_DESC>
</BOOK_CATEGORY>
<BOOK_CATEGORY>
<CATEGORY_ID>09</CATEGORY_ID>
<CATEGORY_DESC>BOOK group 9</CATEGORY_DESC>
</BOOK_CATEGORY>
</BOOK_GROUP>
</BOOK_RECORD>
</BOOKLIST>
</asx:values>
</asx:abap>
INTERNAL TABLE ->>
TYPES: BEGIN OF ADD_CATEGORY,
CATEGORY_ID(10),
CATEGORY_DESC(40),
END OF ADD_CATEGORY,
ADD_T_CATEGORY TYPE ADD_CATEGORY OCCURS 0.
TYPES: BEGIN OF ADD_BOOK_GRP,
BOOK_CATEGORY TYPE ADD_T_CATEGORY,
END OF ADD_BOOK_GRP,
ADD_T_BOOK_GRP TYPE ADD_BOOK_GRP OCCURS 0.
TYPES: BEGIN OF ADD_BOOK,
BOOK_NUM(10) TYPE C,
SHORT_DESC(40) TYPE C,
BOOK_GROUP TYPE ADD_T_BOOK_GRP,
END OF ADD_BOOK,
ADD_T_BOOK TYPE ADD_BOOK OCCURS 0.
TYPES: BEGIN OF TYPE_DATA,
DATE TYPE SY-DATUM,
TIME TYPE SY-TIMLO,
BOOK_RECORD TYPE ADD_T_BOOK,
END OF TYPE_DATA.
DATA: I_DATA TYPE TYPE_DATA OCCURS 0 WITH HEADER LINE.

hi,
here is the code sample using ixml library .
just create a report program and copy paste the following code.
REPORT y_test_xml.
DATA: l_ixml                                 TYPE REF TO if_ixml,
        l_ixml_sf                              TYPE REF TO if_ixml_stream_factory,
        l_istream                              TYPE REF TO if_ixml_istream,
        l_ostream                              TYPE REF TO if_ixml_ostream,
        l_booklist                   TYPE REF TO if_ixml_element,
        l_document                             TYPE REF TO if_ixml_document,
        l_parser                               TYPE REF TO if_ixml_parser,
        l_root_element                         TYPE REF TO if_ixml_element,
        l_book_record                            TYPE REF TO if_ixml_element,
        l_date TYPE REF TO if_ixml_element ,
                l_time TYPE REF TO if_ixml_element ,
        l_book_group                            TYPE REF TO if_ixml_element,
        l_book_cat                            TYPE REF TO if_ixml_element ,
        others                                  TYPE REF TO if_ixml_element ,
        link                                    TYPE REF TO if_ixml_element ,
        description                            TYPE REF TO if_ixml_element ,
        xml                                    TYPE xstring ,
        size TYPE i ,
         l_xml TYPE REF TO cl_xml_document .
DATA: xml_out TYPE string ,
      temp_string TYPE string .
TYPES: BEGIN OF add_category,
category_id(10),
category_desc(40),
END OF add_category,
add_t_category TYPE add_category OCCURS 0 .
TYPES: BEGIN OF add_book_grp,
book_category TYPE add_t_category,
END OF add_book_grp,
add_t_book_grp TYPE add_book_grp OCCURS 0.
TYPES: BEGIN OF add_book,
book_num(10) TYPE c,
short_desc(40) TYPE c,
book_group TYPE add_t_book_grp,
END OF add_book,
add_t_book TYPE add_book OCCURS 0.
TYPES: BEGIN OF type_data,
date TYPE sy-datum,
time TYPE sy-uzeit,
book_record TYPE add_t_book,
END OF type_data.
DATA: i_data TYPE type_data OCCURS 0 WITH HEADER LINE.
DATA: itab LIKE soli OCCURS 0 WITH HEADER LINE.
DATA: cat_wa TYPE add_category ,
      bk_gp_wa TYPE add_book_grp ,
      bk_rec_wa TYPE add_book ,
      bk_wa LIKE LINE OF i_data .
DATA: cat_tab TYPE STANDARD TABLE OF add_category ,
      bk_gp_tab TYPE STANDARD TABLE OF add_book_grp ,
      bk_rec_tab TYPE STANDARD TABLE OF add_book .
MOVE: '03' TO cat_wa-category_id ,
      ' BK GP 3' TO cat_wa-category_desc .
APPEND cat_wa TO cat_tab .
MOVE: '02' TO cat_wa-category_id ,
      ' BK GP 2' TO cat_wa-category_desc .
APPEND cat_wa TO cat_tab .
bk_gp_wa-book_category = cat_tab.
APPEND bk_gp_wa TO bk_gp_tab .
MOVE: '0012345678' TO bk_rec_wa-book_num ,
      'OMS book' TO bk_rec_wa-short_desc .
bk_rec_wa-book_group = bk_gp_tab .
APPEND bk_rec_wa TO bk_rec_tab .
CLEAR:bk_gp_tab, cat_tab .
REFRESH :bk_gp_tab, cat_tab .
MOVE: '01' TO cat_wa-category_id ,
      ' BK GP 1' TO cat_wa-category_desc .
APPEND cat_wa TO cat_tab .
MOVE: '09' TO cat_wa-category_id ,
      ' BK GP 9' TO cat_wa-category_desc .
APPEND cat_wa TO cat_tab .
bk_gp_wa-book_category = cat_tab.
APPEND bk_gp_wa TO bk_gp_tab .
MOVE: '00123456789' TO bk_rec_wa-book_num ,
      'SAP book' TO bk_rec_wa-short_desc .
bk_rec_wa-book_group = bk_gp_tab .
APPEND bk_rec_wa TO bk_rec_tab .
MOVE: sy-datum TO bk_wa-date ,
      sy-uzeit TO bk_wa-time .
bk_wa-book_record = bk_rec_tab .
APPEND bk_wa TO i_data .
CLEAR: cat_wa , bk_gp_wa ,bk_rec_wa , bk_wa .
l_ixml = cl_ixml=>create( ).
l_ixml_sf = l_ixml->create_stream_factory( ).
l_document = l_ixml->create_document( ).
l_root_element = l_document->create_element( name = 'asx:abap' ).
l_root_element->set_attribute( name = 'xmlns:asx' value = 'http://www.sap.com/abapxml' ) .
l_root_element->set_attribute( name = 'version' value = '1.0' ).
l_document->append_child( new_child = l_root_element ).
others = l_document->create_simple_element( parent = l_root_element name = 'asx:values' ).
l_booklist = l_document->create_simple_element( parent = others name = 'BOOKLIST' ).
LOOP AT i_data INTO bk_wa .
CLEAR temp_string .
MOVE: bk_wa-date TO temp_string .
l_date = l_document->create_simple_element( parent = l_booklist name = 'DATE' value = temp_string ).
CLEAR temp_string .
MOVE: bk_wa-time TO temp_string .
l_time = l_document->create_simple_element( parent = l_booklist name = 'TIME' value = temp_string ).
LOOP AT bk_wa-book_record INTO bk_rec_wa .
    l_book_record = l_document->create_simple_element( parent = l_booklist name = 'BOOK_RECORD' ) .
    CLEAR temp_string .
    MOVE: bk_rec_wa-book_num TO temp_string .
    l_date = l_document->create_simple_element( parent = l_book_record name = 'BOOK_NUM' value = temp_string ).
    CLEAR temp_string .
    MOVE: bk_rec_wa-short_desc TO temp_string .
    l_time = l_document->create_simple_element( parent = l_book_record name = 'SHORT_DESC' value = temp_string ).
    l_book_group = l_document->create_simple_element( parent = l_book_record name = 'BOOK_GROUP' ).
    LOOP AT bk_rec_wa-book_group INTO bk_gp_wa .
      LOOP AT bk_gp_wa-book_category INTO cat_wa .
        l_book_cat = l_document->create_simple_element( parent = l_book_group name = 'BOOK_CATEGORY' ).
        CLEAR temp_string .
        MOVE: cat_wa-category_id TO temp_string .
        l_date = l_document->create_simple_element( parent = l_book_cat name = 'CATEGORY_ID' value = temp_string ).
        CLEAR temp_string .
        MOVE: cat_wa-category_desc TO temp_string .
        l_time = l_document->create_simple_element( parent = l_book_cat name = 'CATEGORY_DESC' value = temp_string ).
      ENDLOOP .
    ENDLOOP .
ENDLOOP .
ENDLOOP .
l_ostream = l_ixml_sf->create_ostream_xstring( xml ).
l_document->render( ostream = l_ostream ).
CREATE OBJECT l_xml.
CALL METHOD l_xml->parse_xstring
EXPORTING
    stream = xml.
l_xml->render_2_string(
EXPORTING
    pretty_print = 'X'
IMPORTING
   RETCODE      = RETCODE
    stream       = xml_out
    size         = size
CALL METHOD l_xml->display.
to read the xml data to abap itab you could parse node by node or write a XSLT to map it to your itab or use the following method. (add the following code to the earlier program)
data: result_xml type standard table of smum_xmltb .
data: return type standard table of bapiret2 .
after the statement
l_document->render( ostream = l_ostream ).
add
converting xml to itab
call function 'SMUM_XML_PARSE'
exporting
xml_input = xml
tables
xml_table = result_xml
return = return .
now check the result_xml itab.
rgds
anver

Inserting field in a internal table

Similar Messages

Maybe you are looking for