Processing on change of field values in internal table

I have a internal table eg
id            type                  keyword
1               1                      report
1               1                      program
n02           4                     event
n02           5                      loop
n03           6                      call
n03           6                       do
No when even id changes from 1 to n02...i want to write " id id 1' similarily wenever id changes from n02 to n03 then id is " id is n02" and so on
How can do some sequential processing on change of field values in internal table

hi,
This code will resolve your purpose.
DATA:
BEGIN OF t_tab OCCURS 0,
int TYPE c,
str TYPE char10,
var TYPE char3,
END OF t_tab.
t_tab-var = '1'.
t_tab-int = 1.
t_tab-str = 'report'.
APPEND t_tab.
t_tab-var = '1'.
t_tab-int = 1.
t_tab-str = 'program'.
APPEND t_tab.
t_tab-var = 'n02'.
t_tab-int = 4.
t_tab-str = 'event'.
APPEND t_tab.
t_tab-var = 'n02'.
t_tab-int = 5.
t_tab-str = 'loop'.
APPEND t_tab.
t_tab-var = 'n03'.
t_tab-int = 6.
t_tab-str = 'call'.
APPEND t_tab.
t_tab-var = 'n03'.
t_tab-int = 6.
t_tab-str = 'do'.
APPEND t_tab.
LOOP AT t_tab.
ON CHANGE OF t_tab-var.
WRITE:
/ 'id' ,t_tab-var, t_tab-int.
ENDON.
ENDLOOP.
Thanks and regards
Sharath

Similar Messages

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>

Change field value in a table, based on another field value in the same row (for each added row)

Please Help, I want to change field value in a table, based on another field value in the same row (for each added row)
I am using this code :
<HTML>
<HEAD>
<SCRIPT>
function addRow(tableID) {
var table = document.getElementById(tableID);
var rowCount = table.rows.length;
var row = table.insertRow(rowCount);
var colCount = table.rows[0].cells.length;
for(var i=0; i<colCount; i++ ) {
var newcell = row.insertCell(i);
newcell.innerHTML = table.rows[1].cells[i].innerHTML;
switch(newcell.childNodes[0].type) {
case "text":
newcell.childNodes[0].value = "";
break;
case "checkbox":
newcell.childNodes[0].checked = false;
break;
case "select-one":
newcell.childNodes[0].selectedIndex = 0;
break;}}}
function deleteRow(tableID) {
try {var table = document.getElementById(tableID);
var rowCount = table.rows.length;
for(var i=0; i<rowCount; i++) {
var row = table.rows[i];
var chkbox = row.cells[0].childNodes[0];
if(null != chkbox && true == chkbox.checked) {
if(rowCount <= 2) {
alert("Cannot delete all the rows.");
break;}
table.deleteRow(i);
rowCount--;
i--;}}}catch(e) {alert(e);}}
</SCRIPT>
</HEAD>
<BODY>
<INPUT type="button" value="Add Row" onClick="addRow('dataTable')" />
<INPUT type="button" value="Delete Row" onClick="deleteRow('dataTable')" />
<TABLE id="dataTable" width="350px" border="1">
<TR>
<TD width="32"></TD>
<TD width="119" align="center"><strong>Activity</strong></TD>
<TD width="177" align="center"><strong>Cost</strong></TD>
</TR>
<TR>
<TD><INPUT type="checkbox" name="chk"/></TD>
<TD>
<select name="s1" id="s1">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
</TD>
<TD><input type="text" name="txt1" id="txt1"></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Hi,
Let me make sure u r working with table control.
First u have to create a event(VALIDATE) to do the validation.
Inside the event,
1. First get the current index where user has pointed the curson
2. Once u get the index read the internal table with index value.
3. Now u can compare the col1 and col2 values and populate the error message.
1. DATA : lo_elt TYPE REF TO if_wd_context_element,
l_index type i.
lo_elt = wdevent->get_context_element( name = 'CONTEXT_ELEMENT' ).
CALL METHOD LO_ELT->GET_INDEX( RECEIVING MY_INDEX = l_index.
above code should be written inside the event.
Thanks,

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.

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

To populate values into single field in an internal table

Hi Friends,
How we need to populate values into single field in an internal table.
E.g itab consits of single field ( name)
       i need to assign values to this field name .like
      peter,
      john,
      abrahm,
      daneyal
Pls tell me i how i need to code for this
Thanks ,
Parnith

Hi,
Please look at the below code :
DATA : BEGIN OF itab OCCURS 0 ,
         name(20) TYPE c,
       END OF itab.
START-OF-SELECTION.
itab-name = 'Peter'.
APPEND itab.
CLEAR itab.
itab-name = 'John'.
APPEND itab.
CLEAR itab.
itab-name = 'Abrahm'.
APPEND itab.
CLEAR itab.
itab-name = 'Daneyal'.
APPEND itab.
CLEAR itab.
LOOP AT itab.
    WRITE : / itab.
ENDLOOP.
Thanks,
Sriram Ponna.

Can we change key field values in table maintenance

Hi,
I have created Z-table and table maintenance for the same...
In table maintenance..Can we change key field values??
Is there any posibility????
Rayudu

you can do it in this way.
open sm30->tablname->edit
snow select the row(s)->copy->change the keyfield values-back->save.
no in that sm30, select records with old primary key and delete->save.
so you got all field similar for those record under modification, only the key field changed.

OO ALV displaying without Values despite Internal table contains

My   below OO ALV displaying without Values despite Internal table contains the values ...
Help please ...
REPORT zsd_concession1 NO STANDARD PAGE HEADING
                        LINE-SIZE 285
                        LINE-COUNT 64
                        MESSAGE-ID zz.
Program Description ******************************
This report is to Calculate consession against Quotations
complying standards for enhanced Performance, Readability &
Maintenance.
Change Log *********************************
Remedy # /       Who       When        Why / What
Transport #
CLASS lcl_event_handler DEFINITION DEFERRED.
*&      Data Definitions .
DATA: BEGIN OF vbap_wa,
            vbeln               TYPE vbak-vbeln,           "Quotation#
            erdat               TYPE vbak-erdat,           "Quot date
            knumv               TYPE vbak-knumv,           "Cond Rec#
            posnr               TYPE vbap-posnr,           "Line Item
            matnr               TYPE vbap-matnr,           "Mat#
            zansicat            TYPE zmarall-zansicat,     "AnsiCat#
            zansigrd            TYPE zmarall-zansigrd,     "Grade
            zcurrvaltnarea      TYPE zco002-zcurrvaltnarea,"Val Area
            zcurrcstusd         TYPE zco002-zcurrcstusd,   "Cost$
            zzbrndnm            TYPE mara-zzbrndnm,        "Brand
            zqedscgrp           TYPE zglbprc-zqedscgrp, "QE Disc Grp
            mstav               TYPE mara-mstav,        "Status
            kwmeng              TYPE vbap-kwmeng,       "Qty
            lprc                TYPE konv-kbetr, "List Price ZBP1
            sprc                TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
            netpr               TYPE vbap-netpr, "Quot price
            mrgn                TYPE konv-kbetr, "margin%
       END   OF vbap_wa,
       BEGIN OF konv_wa,
            knumv               TYPE konv-knumv, "Cond#
            kposn               TYPE konv-kposn, "Cond Item#
            kappl               TYPE konv-kappl, "Applic
            kschl               TYPE konv-kschl, "Cond Typ
            kbetr               TYPE konv-kbetr, "Price ZBP1,ZNAA,ZNAX
       END   OF konv_wa,
       BEGIN OF vbpa_wa,
            vbeln               TYPE vbpa-vbeln, "Quot#
            posnr               TYPE vbpa-posnr, "Item#
            parvw               TYPE vbpa-parvw, "Prt Fn
            kunnr               TYPE vbpa-kunnr, "Cust#
       END   OF vbpa_wa,
       BEGIN OF result_wa,
            posnr               TYPE vbap-posnr,           "Line Item
            matnr               TYPE vbap-matnr,           "Mat#
            zansicat            TYPE zmarall-zansicat,     "AnsiCat#
            zansigrd            TYPE zmarall-zansigrd,     "Grade
            zcurrvaltnarea      TYPE zco002-zcurrvaltnarea,"Val Area
            zcurrcstusd         TYPE zco002-zcurrcstusd,   "Cost$
            zzbrndnm            TYPE mara-zzbrndnm,        "Brand
            zqedscgrp           TYPE zglbprc-zqedscgrp, "QE Disc Grp
            mstav               TYPE mara-mstav,        "Status
            kwmeng              TYPE vbap-kwmeng,       "Qty
            lprc                TYPE konv-kbetr, "List Price ZBP1
            sprc                TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
            netpr               TYPE vbap-netpr, "Quot price
            mrgn                TYPE konv-kbetr, "margin%
       END   OF result_wa.
DATA: ikonv      LIKE STANDARD TABLE OF konv_wa,
      ivbap      LIKE STANDARD TABLE OF vbap_wa,
      ivbpa      LIKE STANDARD TABLE OF vbpa_wa,
      iresult    LIKE STANDARD TABLE OF result_wa.
*Work storage
DATA: BEGIN OF ws,
         vbeln       TYPE vbak-vbeln,
         ok_code     TYPE sy-ucomm,
         alv_save    TYPE c,   "ALV save
         alv_variant TYPE disvariant, "ALV Variant
         alv_sort    TYPE lvc_t_sort, "Sort table
      END OF ws.
*Data declarations for ALV Main list
DATA : ty_lay1        TYPE        lvc_s_layo,
       it_fieldcat    TYPE        lvc_t_fcat ,
       ty_fieldcat    TYPE        lvc_s_fcat ,
       l_smenu        TYPE REF TO cl_ctmenu,
       c_alv1         TYPE REF TO cl_gui_alv_grid,
       c_cont1        TYPE REF TO cl_gui_custom_container,
       e_dclick       TYPE REF TO lcl_event_handler.
*Data declarations for ALV Interactive list
DATA : ty_lay2        TYPE        lvc_s_layo,
       it_fcat        TYPE        lvc_t_fcat ,
       ty_fcat        TYPE        lvc_s_fcat ,
       c_alv2         TYPE REF TO cl_gui_alv_grid,
       c_cont2        TYPE REF TO cl_gui_custom_container.
*Field-Symbols
FIELD-SYMBOLS:
      <konv> LIKE   konv_wa,
      <vbap> LIKE   vbap_wa.
*Constants
CONSTANTS:
      c_end_row    TYPE i VALUE 65000.
*CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
    METHODS:
     handle_double_click
     FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row.
ENDCLASS. "lcl_event_handler DEFINITION
*CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_double_click.
    DATA: sec_wa LIKE LINE OF iresult.
*Reading the selected data into a variable
    READ TABLE iresult INDEX e_row-index INTO sec_wa.
*Select the field details of the selected table
SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
WHERE tabname EQ ls_dd02l-tabname.
*Calling the ALV containing the field values
    CALL SCREEN 101.
ENDMETHOD. "handle_double_click
ENDCLASS. "lcl_event_handler IMPLEMENTATION
*&      SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS:
    s_vbeln FOR ws-vbeln DEFAULT '2002354788' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK a.
INITIALIZATION.
PERFORM setup_screen_defaults.
START-OF-SELECTION.
PERFORM gather_report_data.
END-OF-SELECTION.
PERFORM create_output.
*&      Form initialization
FORM setup_screen_defaults.
CLEAR: ws, konv_wa, vbap_wa, vbpa_wa.
REFRESH: ivbpa, ikonv, ivbap, iresult.
ENDFORM.                    " setup_screen_defaults
*&      Form gather_report_data
FORM gather_report_data.
SELECT vbeln posnr parvw kunnr
           INTO TABLE ivbpa
           FROM vbpa
           WHERE vbeln IN s_vbeln
           AND ( parvw = 'SP' OR "SoldTO
                 parvw = 'WE' OR "ShipTo
                 parvw = 'ZT' ). "Top Parent
SELECT vkvbeln vkerdat vkknumv vpposnr vp~matnr
          z1zansicat z1zansigrd z2~zcurrvaltnarea
          z2zcurrcstusd m1zzbrndnm zg~zqedscgrp
          m1mstav vpkwmeng vp~netpr
    INTO CORRESPONDING FIELDS OF TABLE ivbap
    FROM vbak AS vk
    INNER JOIN vbap AS vp
       ON vpvbeln = vkvbeln
    INNER JOIN zmarall AS z1
       ON z1matnr = vpmatnr
    INNER JOIN zco002 AS z2
       ON z2matnr = vpmatnr
    INNER JOIN zglbprc AS zg
       ON zgmatnr = vpmatnr
    INNER JOIN mara AS m1
       ON m1matnr = vpmatnr
    WHERE vk~vbeln IN s_vbeln
    AND    vk~auart = 'AG'."AG = Quot
SORT ivbap BY posnr matnr.
SELECT kvknumv kvkposn kvkappl kvkschl kv~kbetr
          INTO TABLE ikonv
          FROM konv AS kv
          FOR ALL ENTRIES IN ivbap
          WHERE kv~knumv = ivbap-knumv
          AND    kv~kposn = ivbap-posnr
          AND    kv~kappl EQ 'V'
          AND    ( kv~kschl EQ 'ZBP1'
               OR kv~kschl EQ 'ZNAX'
               OR kv~kschl EQ 'ZNAA' ).
SORT ikonv BY knumv kposn.
LOOP AT ivbap ASSIGNING <vbap>.
    CLEAR konv_wa.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZBP1'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-lprc = konv_wa-kbetr.
    ENDIF.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZNAX'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-sprc = konv_wa-kbetr.
    ENDIF.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZNAA'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-sprc = konv_wa-kbetr.
    ENDIF.
ENDLOOP.
SORT ivbap BY posnr matnr.
LOOP AT ivbap INTO vbap_wa.
    MOVE-CORRESPONDING vbap_wa TO result_wa.
    APPEND result_wa TO iresult.
    CLEAR: vbap_wa, result_wa.
ENDLOOP.
ENDFORM.                    " gather_report_data
*&      Form create_output
FORM create_output.
CALL SCREEN 100.
FREE: iresult.
ENDFORM.                    " create_output
*&      Module PBO_0100 OUTPUT
      text
MODULE pbo_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
IF c_cont1 IS INITIAL.
*Creating object of container
    CREATE OBJECT c_cont1
     EXPORTING
       container_name = 'CCONT1'.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Creating object of alv
    CREATE OBJECT c_alv1
       EXPORTING
        i_parent = c_cont1.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Alv layout
    PERFORM alv_100_layout.
    PERFORM save_alv_layout.
*Alv field catalogue
    PERFORM alv_100_fieldcat.
*Displaying the ALV grid
    CALL METHOD c_alv1->set_table_for_first_display
      EXPORTING
        is_layout       = ty_lay1
        i_save          = ws-alv_save
        is_variant      = ws-alv_variant
      CHANGING
        it_outtab       = iresult[]
        it_sort         = ws-alv_sort
        it_fieldcatalog = it_fieldcat[].
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Create object of the event class
*and setting handler for double click
    CREATE OBJECT e_dclick.
    SET HANDLER e_dclick->handle_double_click FOR c_alv1.
ENDIF.
ENDMODULE.                 " PBO_0100 OUTPUT
*&      Module PAI_0100 INPUT
      text
MODULE pai_0100 INPUT.
ws-ok_code = sy-ucomm.
CASE ws-ok_code.
    WHEN 'BACK'.
      CALL SELECTION-SCREEN 1000.
      CLEAR ws-ok_code.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
      CLEAR ws-ok_code.
      EXIT.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
      CLEAR ws-ok_code.
      EXIT.
    WHEN OTHERS.
ENDCASE.
ENDMODULE.                 " PAI_0100 INPUT
*&      Form alv_100_layout
      text
--> p1        text
<-- p2        text
FORM alv_100_layout.
ty_lay1-numc_total = 'X'. " Numc total line
ty_lay1-cwidth_opt = 'X'. " Optimal column width
ty_lay1-detailinit = 'X'. " Show values that are initial in
ty_lay1-sel_mode = 'A'. " Column selection mode
ty_lay1-no_merging = 'X'. " No merging while sorting columns
ty_lay1-keyhot     = 'X'.
ty_lay1-grid_title = 'SD Concessions'.
ty_lay1-zebra      = 'X'.
ty_lay1-no_toolbar = ' '.
ENDFORM.                    " alv_100_layout
*&      Form alv_100_fieldcat
      text
--> p1        text
<-- p2        text
FORM alv_100_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 6.
ty_fieldcat-fieldname = 'zcurrcstusd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Cost $'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 7.
ty_fieldcat-fieldname = 'zzbrndnm'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Brand'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 8.
ty_fieldcat-fieldname = 'zqedscgrp'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'QE'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'mstav'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Status'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'kwmeng'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Qty'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 10.
ty_fieldcat-fieldname = 'lprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'List Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 11.
ty_fieldcat-fieldname = 'sprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Discount'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 12.
ty_fieldcat-fieldname = 'netpr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Quot Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 13.
ty_fieldcat-fieldname = 'mrgn'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Margin%'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM.                    " alv_100_fieldcat
*&      Module PBO_0101 OUTPUT
      text
MODULE pbo_0101 OUTPUT.
*Check if the Custom container exists.
IF c_cont2 IS INITIAL.
*Creating container object
    CREATE OBJECT c_cont2
      EXPORTING
        container_name = 'CCONT2'.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*creating ALV grid for interactive list
    CREATE OBJECT c_alv2
      EXPORTING
       i_parent = c_cont2.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*ALV layout
    PERFORM alv_101_layout.
*ALV fieldcatalogue
    PERFORM alv_101_fieldcat.
*Sorting the output by field position
    SORT iresult BY posnr.
*ALV for display field details
    CALL METHOD c_alv2->set_table_for_first_display
      EXPORTING
        is_layout       = ty_lay2
      CHANGING
        it_outtab       = iresult[]
        it_fieldcatalog = it_fieldcat.
    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.
ENDMODULE.                 " PBO_0101 OUTPUT
*&      Module PAI_0101 INPUT
      text
MODULE pai_0101 INPUT.
ENDMODULE.                 " PAI_0101 INPUT
*&      Form alv_101_layout
      text
--> p1        text
<-- p2        text
FORM alv_101_layout.
ty_lay2-grid_title = 'Line Details'.
ty_lay2-zebra = 'X'.
ty_lay2-no_toolbar = 'X'.
ENDFORM.                    " alv_101_layout
*&      Form alv_101_fieldcat
      text
--> p1        text
<-- p2        text
FORM alv_101_fieldcat.
REFRESH it_fieldcat.
REFRESH it_fcat.
CLEAR ty_fcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM.                    " alv_101_fieldcat
*&      Form save_alv_layout
      text
--> p1        text
<-- p2        text
form save_alv_layout.
ws-alv_save = 'A'.
ws-alv_variant-report = sy-repid.
endform.                    " save_alv_layout

Hello
Creating fieldcatalogs manually is one of the major error sources in ALV programming.
There is hardly any reason why NOT to use the standard-fm LVC_FIELDCATALOG_MERGE in order to create a proper fieldcatalog.
If you need some modification of the standard fieldcatalog (e.g. renaming of columns, etc.) just do your post-processing after calling the fm.
Regards
Uwe

How to update value in internal table from cdpos taking fname n value_new?

hello everyone,
          i want to insert value in internal table from cdpos table taking field name from fname and value from value_new.but the problem is i am not getting how to map the corresponding field of internal table with fname value which is the field name.
for example
i
fieldname
value
name1
raj
name2
sharma
i want to update field name1. this name1 is there in fname with updated value in value_new how to make name1 with fname value
thanks and regards
laxmikant soni

Hi Laxmikant,
If I have understood your requirement correctly, you need to update an internal table with latest 'value_new' from cdpos table where 'fname' = 'fieldname' .
Hope the below logic will help you:
FIELD-SYMBOLS: <wa_intab> LIKE LINE OF lt_intab. "the internal table you want to change
LOOP AT lt_intab ASSIGNING <wa_intab> .
   READ TABLE lt_cdpos INTO wa_cdpos           "lt_cdpos contains latest data selected from CDPOS
    WITH KEY fname = <wa_intab>-fieldname.
   IF sy-subrc = 0.
     <wa_intab>-value = wa_cdpos-value_new.
   ELSE.
     "//logic if the name is not there in CDPOS
   ENDIF.
   CLEAR wa_cdpos.
ENDLOOP.
If you wish to improve performance, I suggest using
1. "transporting value_new" addition in READ TABLE,
2. select only the data which you require from CDPOS,
3. create the internal tables with only fields which you require,
4. when you are using SELECT,LOOP AT statements, limit records by using WHERE condition
Regards,
Kavya

Convert XML values to internal table

Hi Experts
How can i convert XML values to internal table . i am getting all the values into the string.
this is my example
<?xml version="1.0" encoding="UTF-8"?><TEST><ZTEST><DEPTNO>HEADOFFICE</DEPTNO><DNAME>IT</DNAME><LOC>HYD</LOC><MANDT>003</MANDT></ZTEST></TEST>
i did create internal table with 4 fields.
Please help.

XML DOM Processing in ABAP part I - Convert an ABAP table into XML file using SAP DOM Approach.

Colour to field in an internal table

how to colour a particular data in a particular field of an internal table.

See this
1. add one more field to ur final internal table say COLOR(4)
2. in layout wa_layout-style_fname = 'COLOR'. " if its grid
wa_layout-style_fieldname = 'COLOR'. "if its list
3. read table itab index 3.
itab-color = 'C410'.
modify itab index 3
4. see program SHOWCOLO for all color codes
1. Add a field of data type CHAR(3) to the internal output table.
2. Enter the color code in the appropriate field of the row to be colored in the internal
output table:
Code: 'Cxy'
C = Color (all codes begin with 'C')
x = color number ('1' - '9')
y = highlight ('0' = off, '1' = on)
3. Assign the internal output table color code field name to the IS_LAYOUT importing
structure IS_LAYOUT-INFO_FIELDNAME field and pass this structure in the ALV call
interface.
To enable row coloring, you should add an additional field to your list data table. It should be of character type and length at least 4. This field will contain the color code for the row. So, lets modify declaration of our list data table gt_list.
you should fill the color code to this field. Its format will be the same as explained before at section C.6.3. But how will ALV Grid know that you have loaded the color data for the row to this field. So, you make it know this by passing the name of the field containing color codes to the field INFO_FNAME of the layout structure.
e.g.
ps_layout-info_fname = <field_name_containing_color_codes>. e.g. ROWCOLOR
You can fill that field anytime during execution. But, of course, due to the flow logic of screens, it will be reflected to your list display as soon as an ALV refresh occurs.
You can color an entire row as described in the next section. However, this method is less time consuming.
Coloring Individual Cells
This is the last point about coloring procedures for the ALV Grid. The procedure is similar to coloring an entire row. However, since an individual cell can be addressed with two parameters we will need something more. What is meant by more is a table type structure to be included into the structure of the list data table. It seems strange, because including it will make our list data structure deep. But anyhow ALV Grid control handles this.
The structure that should be included must be of type LVC_T_SCOL. If you want to color the entire row, this inner table should contain only one row with field fname is set to space, some color value at field col, 0 or 1 at fields int (intensified) and inv (inverse).
If you want to color individual cells, then for each cell column, append a line to this inner table which also contains the column name at field fname. It is obvious that you can color an entire column by filling this inner table with a row for that column for each row in the list data table.
If it is in ALv refer the following code:
*& Report ZDEMO_ALVGRID                                               *
*& Example of a simple ALV Grid Report                                 *
*& The basic ALV grid, Enhanced to display each row in a different     *
*& colour                                                              *
REPORT zdemo_alvgrid                 .
TABLES:     ekko.
type-pools: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) type c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
              I.e. Field type may be required in-order for
                   the 'TOTAL' function to work.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-col_pos     = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname =      'LINE_COLOR'.
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'. "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = it_ekko
       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.
endform.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
data: ld_color(1) type c.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
*Populate field with color attributes
loop at it_ekko into wa_ekko.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
          i.e. wa_ekko-line_color = 'C410'
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
if ld_color = 8.
    ld_color = 1.
endif.
concatenate 'C' ld_color '10' into wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
modify it_ekko from wa_ekko.
endloop.
endform.                    " DATA_RETRIEVAL
Please give me reward points...

Reading from select-options field into the internal table

Hi,
I have to read the low and high ranges from the select-options fields into a field in the internal table in order to update the same field in line item table. since the user may change the screen fields, i need to pass the values directly from the screen and store it in a variable in the internal table. Is there a way to pass both ranges, low and high to one variable which holds the entire range?
Thanks,
Sruthy

Hi,
In the Selection screen you can directly read the field(Select-option)value using read statement as follows:
READ TABLE <SELECT-OPTIONS field name> [using index] INTO <work area>.
After reading you can directly access all the values as follows and can store them in the variables:
var1 = <work area>-LOW
var2 = <work area>-HIGH
var3 = <work area>-SIGN
var4 = <work area>-OPTION
as per your requirement.
I think this will help you.
<b>Kindly reward if helpful.</b>
Regards,
Shakuntala.

How to select into a field of my internal table?

Howdy,
I have an internal table:
TYPES: BEGIN OF T_OUTPUT,
        EQUIPMENT         TYPE EQUI-EQUNR,
        DESCRIPTION       TYPE EQKT-EQKTX,
        EQUIPMENT_CAT     TYPE EQUI-EQTYP,
        MASTER_WARRANTY    TYPE BGMKOBJ-MGANR,
        DELIVERY           TYPE LIKP-VBELN,
END OF T_OUTPUT.
DATA: ITAB_DETAILS TYPE STANDARD TABLE OF T_OUTPUT WITH HEADER LINE.
Now i'd like to do a slect from LIKP into the field ITAB_DETAILS-delivery, but his code doesn't work?
SELECT VBELN FROM LIKP INTO table ITAB_details-delivery
         WHERE VBELN IN S_VBELN
         AND VKORG = P_VKORG
         AND WERKS = P_WERKS
         AND ERDAT IN S_ERDAT
         AND LFART IN S_LFART.
Does anyone know what I am doing wrong?
I need to keep the name of the field as 'delivery' and I don't want to change its order in the internal table - Otherwise I'd ahve used the 'MOVE CORRESPONDING' command.
Does anyone have any ideas?
Thanks!

STEVE,
Modified Code:
Get value for Delivery
   SELECT <b>SINGLE</b> VBELN FROM LIKP
       INTO ITAB_details-delivery
         WHERE VBELN IN S_VBELN
         AND VKORG = P_VKORG
         AND WERKS = P_WERKS
         AND ERDAT IN S_ERDAT
         AND LFART IN S_LFART.
Insert into Internal Table ASSUMING u have values for
other fields in the Work Area.
<b> append ITAB_DELIVERY.</b>
Thanks
Kam

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

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

Processing on change of field values in internal table

Similar Messages

Maybe you are looking for