Getting unique values from internal table

Hi Gurus,
From time to time I hit this problem and so far I havn't found any nice solution. I've an internal table with several fields. I would like to get all unique values for one (or several) of these fields. However let say that this table has a lot of entries so making a copy is not an option. Also changing this table in any way is forbiden.
For example for table below I would like to get all unique values for field Number. In this case it would be 1,2,3,4.
Name | Number |
name1 | 1|
name2 | 2|
name3 | 2|
name4 | 3|
name5 | 4|
name5 | 3|
Can anyone propose me better solution than going in the loop through all entries in table? Maybe there is some ABAP functionality that I don't know about?
BR
Marcin Cholewczuk

Let's say that if I sort this table I won't be able to restore it to previous order which is important for me
True...If you sort the table you won't be able to restore. So the only option is to copy/move all the records into another table.
Sorting If you need to retrive unique values. I don't think without sorting the table would be a nice idea and proper programming to proceed ahead.
Regarding logic, as replied earlier
Either we can go with DELETE ADJACENT DUPLICATES or proceed as replied in my earlier post. There might be number of algorithms to resolve this. But we cannot go ahead without sorting or looping.

Similar Messages

How to get string value from database table using Visual Studio 2005?

Hi,
Im developing plugin in illustrator cs3 using visual studio 2005. I need to get the values eneterd in database. Im able to get the integer values. But while getting string values it is returning empty value.
Im using the below code to get the values from database table
bool Table::Get(char* FieldName,int& FieldValue)
    try
        _variant_t vtValue;
        vtValue = m_Rec->Fields->GetItem(FieldName)->GetValue();
        FieldValue=vtValue.intVal;
    CATCHERRGET
    sprintf(m_ErrStr,"Success");
    return 1;
Im using the below code to get the values.
AIErr getProjects()
    char buf[5000];
    int i;
    std::string catName;
    ::CoInitialize(NULL);
    Database db;
    Table tbl;
    errno_t err;
    err = fopen(&file,"c:\\DBResult.txt","w");
    fprintf(file, "Before Connection Established\n");
    //MessageBox(NULL,CnnStr,"Connection String",0);
    if(!db.Open(g->username,g->password,CnnStr))
        db.GetErrorErrStr(ErrStr);
        fprintf(file,"Error: %s\n",ErrStr);
    fprintf(file, "After Connection Established\n");
if(!db.Execute("select ProjectID,ProjectName from projectsample",tbl))
        db.GetErrorErrStr(ErrStr);
        fprintf(file,"Error: %s\n",ErrStr);
    int ProjectID;
    int UserID;
    int ProjectTitle;
    char ProjectName[ProjectNameSize];
    if(!tbl.ISEOF())
        tbl.MoveFirst();
    ProjectArrCnt=0;
    for(i=0;i<128;i++)
        buf[i]='\0';
        int j=0;
    while(!tbl.ISEOF())
        if(tbl.Get("ProjectID",ProjectID))
            fprintf(file,"Project ID: %d ",ProjectID);
            ProjectInfo[ProjectArrCnt].ProjectID = ProjectID;
            sprintf(buf,"%d",ProjectID);
            //MessageBox(NULL, buf,"f ID", 0);
            j++;
        else
            tbl.GetErrorErrStr(ErrStr);
            fprintf(file,"Error: %s\n",ErrStr);
            break;
        //if(tbl.Get("ProjectTitle",ProjectName))
        if(tbl.Get("ProjectName",ProjectName))
            MessageBox(NULL,"Inside","",0);
            fprintf(file,"ProjectTitle: %s\n",ProjectName);
            //catName=CategoryName;
            ProjectInfo[ProjectArrCnt].ProjectName=ProjectName;
            //sprintf(buf,"%s",ProjectName);
            MessageBox(NULL,(LPCSTR)ProjectName,"",0);
        else
            tbl.GetErrorErrStr(ErrStr);
            fprintf(file,"Error: %s\n",ErrStr);
            break;
        ProjectArrCnt++;
        //MessageBox(NULL, "While", "WIN API Test",0);
        tbl.MoveNext();
    //MessageBox(NULL, ProjectInfo[i].ProjectName.c_str(),"f Name", 0);
    ::CoUninitialize();
    //sprintf(buf,"%s",file);
    //MessageBox(NULL,buf,"File",0);
    fprintf(file, "Connection closed\n");
    fclose(file);
    for(i=0;i<ProjectArrCnt;i++)
        sprintf(buf,"%i",ProjectInfo[i].ProjectID);
        //MessageBox(NULL,buf,"Proj ID",0);
        //MessageBox(NULL,ProjectInfo[i].ProjectName.c_str(),"Project Name",0);
    return 0;
In the above code im geeting project D which is an integer value. But not able to get the project name.
Please some one guide me.

As I said in the other thread, this really isn't the place to ask questions about a database API unrelated to the Illustrator SDK. You're far more like to find people familliar with your problem on a forum that is dedicated to answering those kinds of questions instead.

Fetch the values from internal table inside an internal table (urgent!!)

data : BEGIN OF PITB2_ZLINFO occurs 0,
         BEGDA LIKE SY-DATUM,
         ENDDA LIKE SY-DATUM,
         PABRJ(4) TYPE N,                       "Payroll Year
         PABRP(2) TYPE N,                       "Pay. Period
         ZL LIKE PC2BF OCCURS 0,
       END OF PITB2_ZLINFO.
I have a internal table like this,
How to Fetch the values from internal table inside an internal table.
Kindly Help me on this..
Regards,
Ram.

Hi,
Try this....
Loop at PITB2_ZLINF0.
Loop at PITB2_ZLINF0-ZL.
endloop.
Endloop.
Thanks...
Preetham S

Passing a value from internal table to a powerpoint slide

Hi,
Does anyone know how to pass a value from internal table to a powerpoint slide? I would also need some codes with regards to the coding to open the powerpoint and insert the value in.
Thanks.
Points will be awarded.
Hope to hear from you soon.
Lawrence

geez!! do feel sorry for you
you can fire FM WS_EXECUTE to open power point but passing a variable at run-time i'm not sure, sorry.

How to generate a text file with values from internal table

hi,
can anybody help me out to get the values from different internal table written into a text file.
regs,
raja

used gui_download,ws_download,cl_gui_file_save.
data: ld_filename type string ;
ld_filename = 'c:\demo.txt'.
DATA: begin of it_datatab occurs 0,
row(500) type c,
end of it_datatab.
HII
call function 'GUI_DOWNLOAD'
exporting
filename = ld_filename
filetype = 'ASC'
tables
data_tab = it_datatab[]
exceptions
file_open_error = 1
file_write_error = 2
others = 3.
gui_download

CE function to get distinct values from Column table

Hi All,
Could you please let me know the appropriate CE function to get the distinct values from column table.
IT_WORK = SELECT DISTINCT AUFNR FROM :IT_WO_DETAILS;
Thank you.

Hi,
If you have 10g, you can use Model( with model performance is better than connect by )
Solution
========================================================================
WITH t AS
(SELECT '0989.726332, 1234.567432, 3453.736379, 3453.736379, 0989.726332, 3453.736379, 1234.567432, 1234.567432, 0989.726332'
txt
FROM DUAL)
SELECT DISTINCT TRIM(CHAINE)
FROM T
MODEL
RETURN UPDATED ROWS
DIMENSION BY (0 POSITION)
MEASURES (CAST( ' ' AS VARCHAR2(50)) AS CHAINE ,txt ,LENGTH(REGEXP_REPLACE(txt,'[^,]+',''))+1 NB_MOT)
RULES
(CHAINE[FOR POSITION FROM 1 TO NVL(NB_MOT[0],1) INCREMENT 1] =
CASE WHEN NB_MOT[0] IS NULL THEN TXT[0] ELSE REGEXP_SUBSTR(txt[0],'[^,]+',1,CV(POSITION)) END );
=========================================================================
Demo
=======================================================================
SQL> WITH t AS
2 (SELECT '0989.726332, 1234.567432, 3453.736379, 3453.736379, 0989.726332, 3453.736379, 123
4.567432, 1234.567432, 0989.726332'
3 txt
4 FROM DUAL)
5 SELECT DISTINCT TRIM(CHAINE)
6 FROM T
7 MODEL
8 RETURN UPDATED ROWS
9 DIMENSION BY (0 POSITION)
10 MEASURES (CAST( ' ' AS VARCHAR2(50)) AS CHAINE ,txt ,LENGTH(REGEXP_REPLACE(txt,'[^,]+',''))+1 NB_MOT)
11 RULES
12 (CHAINE[FOR POSITION FROM 1 TO NVL(NB_MOT[0],1) INCREMENT 1] =
13 CASE WHEN NB_MOT[0] IS NULL THEN TXT[0] ELSE REGEXP_SUBSTR(txt[0],'[^,]+',1,CV(POSITION)) END );
TRIM(CHAINE)
3453.736379
1234.567432
0989.726332
SQL>
========================================================================

Getting unique values from an arraylist

Hi
I have an arraylist that contains stringbuffer objects. The arraylist has duplicate values of the objects. I have to create another arraylist with only the unique values from the first arraylist. I tried it many ways and using many functions, but no luck. Can someone provide me the code for this , as i need to do this urgently.
Thank U
Mansoor,

> Sanity check: when are StringBuffers equal?
Same character sequence.
[EDIT] Or so I thought. Just tested, and found I was wrong. A quick glance at the API confirmed my error; StringBuffer doesn't override Object.equals().
~

Update value from internal table into table control

hi friends,
i have two text field and a button in a screen.if give the value and click the button it should get updated in the table control which is in the next screen.plz
help me with some sample coding.

hi Karthik ,
Here you go with the sample coding of moving internal table values to table control on module pool programs :
in screen painter flow-logic ............
process before output.
module status_3000.
loop at g_tab_con_01_itab
     into g_tab_con_01_wa
     with control tab_con
     cursor tab_con-current_line.
module tab_con_move.
endloop.
process after input.
module exit at exit-command.
module user_command_3000.
module clear_ok_code.
loop at g_tab_con_01_itab.
module read_tab_con.
endloop.
in your program .............
include z_tab_ctrl_top                          .    " global Data
program z_tab_ctrl.
tables : sflight,sbook,zsflight.
types:begin of t_tab_con_01 ,
        carrid like sflight-carrid,
        connid like sflight-connid,
        sel type c,
       end of t_tab_con_01.
data: g_tab_con_01_itab type t_tab_con_01 occurs 0 with header line,
      g_tab_con_01_wa type t_tab_con_01,
      g_tab_con_01_copied ,
      g_tab_con_01_lines like sy-loopc,
      ok_code like sy-ucomm,
      lines type i,
      init ,
      fill type i.
controls: tab_con type tableview using screen 3000.
module status_3000 output.
set pf-status 'ST100'.
set titlebar 'T100'.
endmodule.
module update_table_control input.
describe table g_tab_con_01_itab lines tab_con-lines.
endmodule.
module exit input.
ok_code = sy-ucomm.
if ok_code eq 'BACK' or ok_code eq 'EXIT' or ok_code eq 'CANCEL'.
    leave program .
endif.
endmodule.
module clear_ok_code input.
clear ok_code.
endmodule.
module fill_tab_con output.
read table g_tab_con_01_itab into zsflight index tab_con-current_line.
endmodule.                 " fill_tab_con OUTPUT
module read_tab_con input.
*lines = sy-loopc.
read table g_tab_con_01_itab into g_tab_con_01_wa index tab_con-current_line.
if sy-subrc eq 0.
move-corresponding sflight to g_tab_con_01_wa.
modify g_tab_con_01_itab from g_tab_con_01_wa index tab_con-current_line.
else.
move-corresponding sflight to g_tab_con_01_wa.
append g_tab_con_01_wa to g_tab_con_01_itab.
endif.
module tab_con_move output.
move-corresponding g_tab_con_01_wa to sflight.
endmodule.                 " tab_con_move OUTPUT
module tab_con_get_lines output.
g_tab_con_01_lines = sy-loopc.
endmodule.                 " tab_con_get_lines OUTPUT
module tab_con_modify input.
move-corresponding sflight to g_tab_con_01_wa.
modify g_tab_con_01_itab
      from g_tab_con_01_wa
      index tab_con-current_line.
endmodule.                 " tab_con_modify INPUT
module populate_tab_ctrl input.
if sy-subrc eq 0.
endif.
endmodule.
Look at the following modules in the above program ....
fill_tab_con
tab_con_modify
tab_con_get_lines
update_table_control
This will definately solve your problem or give an idea for solution ....
reward if helpful,
Regards,
Ranjita

Get cell value from Woodstock table

Hello,
I am using a Woodstock Basic Table from the NB palette.
One of the columns is editable and I need to get the updated values upon a button click event.
How do I get the value of a specific cell from the table?
Thanks

Hi Rajashekar ,
here is the code :
// Get a handle to the table footer bean
OATableBean tableBean = ...;
OATableFooterBean tableFooterBean = tableBean.getFooter();
if (tableFooterBean != null)
// Get a handle to the total row bean
OATotalRowBean totalRowBean = tableFooterBean.getTotal();
--Keerthi

Get inputText value from ADF table

Hi
I have a read-only table and a custom column of inputText for entering values by user. My question is that how can I get inputText values row by row in backing bean?
I founded some solutions that got values from binding, but it isn't useful for me. I should get the user entered values.
I am so confusing than can't find any solution for this common need.
Thanks
Ali

hi user,
My question is that how can I get inputText values row by row in backing bean?
have a listener do as like of dvohra says.if it is not work for you means.
have DCIteratorBindings class grab the corresponding iterator then iterate row by row to get the value. but it should a persistent attribute.
thanks

Eliminate the values from internal table

I have an internal table with fields..
begin of it occurs 0,
ebeln
matkl
werks
end of it.
its filled with values..
ebeln | matkl | werks |
12111 |   A123 | LK
12111 |   A123 | LK
12111 |   A123 | LK
12111 |   A123 | LK
12111 |   A123 | LK
12111 |   A123 | LN
12121 |   A124 | LK
12121 |   A124 | LK
12121 |   A124 | LK
12122 |   A125 | LK
12122 |   A125 | LK
12122 |   A125 | LK
12123 |   A126 | LN
12123 |   A126 | LN
Now I want to eliminate the values from the internal table where all ebeln and werks are different..for example..all 12111's should be eliminated from the internal table as the it has different werks assighned to one of the ebeln's..and I need only ebeln's with 12121 and 12123.
Any suggention would be helpful..
Thanks,
M/

Hi,
DATA : v_ebeln LIKE table name-ebeln,
            v_werks LIKE table name--werks.
SORT itab BY ebeln werks .
LOOP AT ITAB.
ON CHANGE OF itab-ebeln.
      Move : itab-ebeln TO v_ebeln,
                itab-werks TO v_werks.
   ENDON.
   IF ITAB-ebeln NE v_ebeln OR
      ITAB-werks NE v_werks.
   DELETE ITAB WHERE ebeln EQ ITAB-ebeln .
    clear : v_ebeln , v_werks.
ENDIF.
ENDLOOP.

How to get multiple records from internal table through BDC

PERFORM DYNPRO USING:
'X' 'SAPMM61L' '0500',
' ' 'BDC_OKCODE' '=NEWC',
'X' 'SAPMM61L' '0500',
' ' 'BDC_CURSOR' 'PLPTU-PLWRK(01)',
' ' 'BDC_OKCODE' '=TAKE',
' ' 'PLPTU-PLWRK(01)' '2531'. (2531 is a plant)
This is the recording used to get plant via BDC of MS31.
Using this code i can get only single plant...
If i want to get multiple plants from an internal table,how i can change this code?
Since it is a recording i cant put this code in LOOP..ENDLOOP.
Suggest any method for doing this....
Awaiting for ur reply...

Hi,
While recording also record the scroll down button.
The you can place different plant in the BDC using loop and endloop
Regards
Arun

How to pass the values from internal table to field groups

hi all,
how can i pass the internal table values to field groups?
already field groups are holding some values.. INSERT STATEMENT IS NOT WORKING as it is ovewriting the existing values..
Use full answers will be rewared.
Thanks.
Moderator message - duplicate post locked
Edited by: Rob Burbank on Jun 23, 2009 9:51 AM

Hi,
You can use INSERT statement to put a work area of an Internal table in Field-group
and use Extract to get info out of it.
Hope it helps,
Raj

How to dynamically get default value from a table column

Hi all,
Here's my problem: Our front end application sends insert and update queries to a pl/sql package. I've got a procedure that gets a PL/SQL table with all the column names an values, a table-name and a primary key name and value. That procedure creates an insert or update statement. So far, so good.
Now the problem: our front end doesn't know what the default value for a column is. So when a number field doesn't get a value in the front-end, it's inserted with a value '0' though is should ben NULL. My sollution for this is to know the default value of a column: when there's a default of '0', then the value that will be inserted is '0'. When there's no default value and the column can ben NULL, it'll be inserted as NULL. if the column has a not null constraint, a '0' will be inserted.
Ofcourse I can get the default value from the system-views all_tab_columns or user_tab_columns, but our application is installed at some 100 clients, and has various database installations. Most of the times, the tables are in the same schema as our procedure that performs the insert or update, but sometimes some of the tables are in another schema (in the same database) and also sometimes some tables are stored in another database. In all these situations, a synonym for that table exists in the schema.
Is there a api function or procedure that I can call to get the default value of a column? I looked at dbms_sql and dbms_metadata, but those packages don't give me that perticular information. if not, I'll stuck with the 'does table exists in schema' yes->use table, no query user_synonyms to look for the owner of the table (and database link) and query all_tab_columns to get the default value. Only this seems a bit overkill to me.
I hope I'm clear enough? And please don't reply with "don't do inserts this way"! I know, this is not the most optimal sollution, but it does gives us a couple of advantages in our application...

there is no way that I can think of, apart from what you have already discovered (i.e. views), where you can determine if a column has a defuault value defined against it.
The other option is triggers, but I guess doing that across 600 tables would not be an option, and besides I stay clear of triggers.
A different approach therefore, if you cannot pre-determine the data, is to consider a post problem handler, hence I suggested the use of an exception handler.
The exception handler works regardless of whether the statement is dynamic or not.
SQL> truncate table abc;
Table truncated.
SQL>
SQL> declare
2    NULLVAL exception;
3    pragma exception_init(NULLVAL, -01400);
4
5 begin
6
7    begin
8
9      execute immediate 'insert into abc (y) values (1)';
10
11      exception
12        when NULLVAL then
13          -- handle the error
14          execute immediate 'insert into abc (x,y) values (0,1)';
15
16    end;
17
18    commit;
19
20 end;
21 /
PL/SQL procedure successfully completed.
SQL>
SQL> select * from abc;
         X          Y
         0          1

Get records number from internal table with condition.

Internal table itab got more than 1000 records,now i need to get the number of records with condition that itab-field1 = 'XXXX'.
actully, i got an inefficient logic to count the number in a loop statement. is there better way to implement it?

hello,
Every time assigning data into temp table and delete may that may not be much efficient. You can check in loop logic how much time is taken. You can check the below code. here I am trying to check the numbers of plant for for one material.
In this logic material is the first field. So if there is option to make the required field in to the 1 st position then it will be nice.
TYPES: BEGIN OF x_count,
        matnr TYPE matnr,
        count TYPE i,
       BEGIN OF x_count.
DATA: i_marc TYPE STANDARD TABLE OF marc,
      i_count TYPE STANDARD TABLE OF x_count,
      wa_count TYPE x_count.
FIELD-SYMBOLS: <wa_marc> TYPE marc.
SELECT * UP TO 1000 ROWS
FROM marc
INTO TABLE i_marc.
IF sy-subrc = 0.
SORT i_marc BY matnr.
LOOP AT i_marc ASSIGNING <wa_marc>.
    wa_count-count = wa_count-count + 1.
    AT END OF matnr.
      wa_count-matnr = <wa_marc>-matnr.
      APPEND wa_count TO i_count.
    ENDAT.
ENDLOOP.
ENDIF.
Thanks
Subhanakr

Getting unique values from internal table

Similar Messages

Maybe you are looking for