Program to retrive data from table based on its name

hi all,
Is there any program that accepts input as table name and retrives all the data of a table .
thanks in advance
prasanna kumar

Hi,
Try below code
PARAMETERS : p_table(10) TYPE c.    " Give any table name
DATA: w_tabname TYPE w_tabname,
      w_dref TYPE REF TO data,
      w_grid TYPE REF TO cl_gui_alv_grid.
FIELD-SYMBOLS: <t_itab> TYPE ANY TABLE.
w_tabname = p_table.
CREATE DATA w_dref TYPE TABLE OF (w_tabname).
ASSIGN w_dref->* TO <t_itab>.
SELECT *
    FROM (w_tabname) UP TO 20 ROWS
    INTO TABLE <t_itab>.
*Double click on 100, to create a 100 screen, in flow logic uncomment both modules in PBO and PAI
* Create a GUI menu.
CALL SCREEN 100.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'BALA'.
* SET TITLEBAR 'xxx'.
CREATE OBJECT w_grid
      EXPORTING i_parent = cl_gui_container=>screen0.
CALL METHOD w_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = w_tabname
    CHANGING
      it_outtab        = <t_itab>.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
Regards
Bala Krishna
Edited by: Bala Krishna on Mar 23, 2009 4:37 PM

Similar Messages

How to retrive data from table MSPR of field PSPNR as a character.

Dear All,
I need to display MSPR-PSPNR field in some report.
The above said field is showing character in output wen we execute table MSPR, but it is a numeric field inside of length 8.
for internal table it is picking numeric value, but I want to display the character output as it appears wen we execute the MSPR table.
so how can we do this...?
Regards
Nagaraju.B

hi, Nagaraju.
i think following code will help you in this way
data: BEGIN OF it_mspr OCCURS 100,
pspnr(8),
END OF it_mspr.
data: count_loop like sy-tabix.
SELECT pspnr FROM mspr INTO CORRESPONDING FIELDS OF TABLE it_mspr.
LOOP AT it_mspr into it_mspr.
count_loop = sy-tabix.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input         = it_mspr-pspnr
   IMPORTING
     OUTPUT        = it_mspr-pspnr.
MODIFY it_mspr from it_mspr INDEX count_loop.
ENDLOOP.
kind regards,
Faisal

How to read data from table GLFUNCA quickly?

Hello everybody!
Recently,my colleague has programmed a report about reading data from table GLFUNCA,and its speed is very slowly and exceeded limited time sometimes .
Excuse me?
how to use INDEX and VIEW TO accelerate it?
pls supply my helpful solutions.
Thanks!
Best wishes!

Hi,
Please check your SELECT statement to find out what are the columns being used in the WHERE clause. Then go to SE11 and find out if there are indexes on those columns.
If Indexes don't exist then you can create indexes on those columns, which might improve the performance.
However, there might be other areas also, where the performance can be improved. Do a run time analysis / trace and figure which part of the program is taking maximum time.
Regards,
Ravi
Note : Please mark the helpful answers

Retrive data from HR tables

Hi Experts,
How to retrive data from HR tables for custom screen & store in custom table? I need Employee number, employee name, department, their location & mail id. When employee number is given, all other details must be fetched. Can you give a solution for this problem?
Thanks,
Kavitha

Hi Kavitha,
in HR you could get data from different tables based on infotypes. lets say if any data need to get from infotype 0001 (Org assignment), add "PA" before the infotype number so it would be PA0001.
you could get the Employee no, name, department, location(i guess personal area or personal subarea) from PA0001 table and email id from PA105 infotype.
Regards
Raju

Retrive data from two tables

Hi ,
I have two tables, we want to retrive data from both the tables please see example below
Table 1
A B X Y Z
1 2
Table B
A B C
1 2 5
1 2 6
1 2 7
I want output like
A B C
1 2 5
Null Null 6
Null Null 7
Regards
Message was edited by:
rajib.sarkar

Could you explain the logic behind that?

Retrive data from 4 tables without using joins

hi ,
i have to retrive data from 4 tables........but i donot want to use joins because of performance issues.
please guide me how to proceed further ?
thanks

hi manish,
CONSTANTS: c_act_plan(2)    TYPE c VALUE 'U1'      ,
           c_person(1)      TYPE c VALUE 'P'       ,
           p1_betid(8)      TYPE c VALUE '50005316',
           c_topdown(1)     TYPE c VALUE 'A'       ,
           c_admnby(3)      TYPE c VALUE '032'     ,
           c_bet_type(1)    TYPE c VALUE 'Q'       ,
           c_firmed(1)      TYPE c VALUE '1'       ,
           c_subtyp_mail(4) TYPE c VALUE '0001'    .
TYPES: BEGIN OF ty_hrp1001,
         objid TYPE hrp1001-objid,
       END OF ty_hrp1001,
       BEGIN OF ty_pa0001,
         pernr TYPE pa0001-pernr,
         subty TYPE pa0001-subty,
         objps TYPE pa0001-objps,
         sprps TYPE pa0001-sprps,
         endda TYPE pa0001-endda,
         begda TYPE pa0001-begda,
         seqnr TYPE pa0001-seqnr,
         werks TYPE pa0001-werks,
         gsber TYPE pa0001-gsber,
         btrtl TYPE pa0001-btrtl,
       END OF ty_pa0001,
       BEGIN OF ty_t500p,
         persa TYPE t500p-persa,
         name1 TYPE t500p-name1,
       END OF ty_t500p,
       BEGIN OF ty_t001p,
         werks TYPE t001p-werks,
         btrtl TYPE t001p-btrtl,
         btext TYPE t001p-btext,
       END OF ty_t001p,
       BEGIN OF ty_pa0002,
         pernr TYPE pa0002-pernr,
         subty TYPE pa0002-subty,
         objps TYPE pa0002-objps,
         sprps TYPE pa0002-sprps,
         endda TYPE pa0002-endda,
         begda TYPE pa0002-begda,
         seqnr TYPE pa0002-seqnr,
         nachn TYPE pa0002-nachn,
         vorna TYPE pa0002-vorna,
       END OF ty_pa0002,
       BEGIN OF ty_pa0105,
         pernr      TYPE pa0105-pernr     ,
         subty      TYPE pa0105-subty     ,
         objps      TYPE pa0105-objps     ,
         sprps      TYPE pa0105-sprps     ,
         endda      TYPE pa0105-endda     ,
         begda      TYPE pa0105-begda     ,
         seqnr      TYPE pa0105-seqnr     ,
         usrid_long TYPE pa0105-usrid_long,
       END OF ty_pa0105,
       BEGIN OF ty_output,
         pernr      TYPE pa0002-pernr     ,
         werks      TYPE pa0001-werks     ,
         gsber      TYPE pa0001-gsber     ,
         btrtl      TYPE pa0001-btrtl     ,
         name1      TYPE t500p-name1      ,
         btext      TYPE t001p-btext      ,
         nachn      TYPE pa0002-nachn     ,
         vorna      TYPE pa0002-vorna     ,
         usrid_long TYPE pa0105-usrid_long,
       END OF ty_output.
DATA: w_hrp1001     TYPE                 ty_hrp1001,
      t_hrp1001     TYPE        TABLE OF ty_hrp1001,
      t_hrp1001_tmp TYPE        TABLE OF ty_hrp1001,
      w_pa0001      TYPE                 ty_pa0001 ,
      t_pa0001      TYPE SORTED TABLE OF ty_pa0001
        WITH NON-UNIQUE KEY pernr                  ,
      t_pa0001_tmp TYPE        TABLE OF ty_pa0001 ,
      w_t500p       TYPE                 ty_t500p ,
      t_t500p       TYPE HASHED TABLE OF ty_t500p
        WITH UNIQUE KEY persa                      ,
      w_t001p       TYPE                 ty_t001p ,
      t_t001p       TYPE HASHED TABLE OF ty_t001p
        WITH UNIQUE KEY werks btrtl                ,
      w_pa0002      TYPE                 ty_pa0002 ,
      t_pa0002      TYPE SORTED TABLE OF ty_pa0002
        WITH NON-UNIQUE KEY pernr                  ,
      t_pa0002_tmp TYPE        TABLE OF ty_pa0002 ,
      w_pa0105      TYPE                 ty_pa0105 ,
      t_pa0105      TYPE SORTED TABLE OF ty_pa0105
        WITH NON-UNIQUE KEY pernr                  ,
      w_output      TYPE                 ty_output ,
      t_output      TYPE        TABLE OF ty_output .
SELECT objid
FROM hrp1001
INTO TABLE t_hrp1001
WHERE otype EQ c_person
AND   plvar EQ c_act_plan
AND   rsign EQ c_topdown
AND   relat EQ c_admnby
AND   istat EQ c_firmed
AND   begda LE sy-datum
AND   endda GT sy-datum
AND   sclas EQ c_bet_type
AND   sobid EQ p1_betid.
IF sy-subrc EQ 0.
SORT t_hrp1001 BY objid.
ENDIF.
IF NOT t_hrp1001[] IS INITIAL.
t_hrp1001_tmp[] = t_hrp1001[].
DELETE ADJACENT DUPLICATES FROM t_hrp1001_tmp
    COMPARING objid.
SELECT pernr
         subty
         objps
         sprps
         endda
         begda
         seqnr
         werks
         gsber
         btrtl
    FROM pa0001
    INTO TABLE t_pa0001
    FOR ALL ENTRIES IN t_hrp1001_tmp
    WHERE pernr EQ t_hrp1001_tmp-objid
    AND   endda GT sy-datum
    AND   begda LE sy-datum.
SELECT pernr
         subty
         objps
         sprps
         endda
         begda
         seqnr
         nachn
         vorna
    FROM pa0002
    INTO TABLE t_pa0002
    FOR ALL ENTRIES IN t_hrp1001_tmp
    WHERE pernr EQ t_hrp1001_tmp-objid
    AND   endda GT sy-datum
    AND   begda LE sy-datum.
ENDIF.
IF NOT t_pa0001[] IS INITIAL.
t_pa0001_tmp[] = t_pa0001[].
SORT t_pa0001_tmp BY werks btrtl.
DELETE ADJACENT DUPLICATES FROM t_pa0001_tmp COMPARING werks btrtl.
SELECT werks
         btrtl
         btext
    FROM t001p
    INTO TABLE t_t001p
    FOR ALL ENTRIES IN t_pa0001_tmp
    WHERE werks EQ t_pa0001_tmp-werks
    AND   btrtl EQ t_pa0001_tmp-btrtl.
DELETE ADJACENT DUPLICATES FROM t_pa0001_tmp COMPARING werks.
SELECT persa
         name1
    FROM t500p
    INTO TABLE t_t500p
    FOR ALL ENTRIES IN t_pa0001_tmp
    WHERE persa EQ t_pa0001_tmp-werks.
ENDIF.
IF NOT t_pa0002[] IS INITIAL.
t_pa0002_tmp[] = t_pa0002[].
DELETE ADJACENT DUPLICATES FROM t_pa0002_tmp COMPARING pernr.
SELECT pernr
         subty
         objps
         sprps
         endda
         begda
         seqnr
         usrid_long
    FROM pa0105
    INTO TABLE t_pa0105
    FOR ALL ENTRIES IN t_pa0002_tmp
    WHERE pernr EQ t_pa0002_tmp-pernr
    AND   subty EQ c_subtyp_mail
    AND   endda GT sy-datum
    AND   begda LE sy-datum
    AND   usrty EQ c_subtyp_mail.
ENDIF.
REFRESH t_output.
LOOP AT t_hrp1001 INTO w_hrp1001.
LOOP AT t_pa0001 INTO w_pa0001
    WHERE pernr EQ w_hrp1001-objid.
    READ TABLE t_t500p INTO w_t500p WITH KEY persa = w_pa0001-werks
                                             TRANSPORTING
                                               name1.
    CHECK sy-subrc EQ 0.
    READ TABLE t_t001p INTO w_t001p WITH KEY werks = w_pa0001-werks
                                             btrtl = w_pa0001-btrtl
                                             TRANSPORTING
                                               btext.
    LOOP AT t_pa0002 INTO w_pa0002
      WHERE pernr EQ w_hrp1001-objid.
      LOOP AT t_pa0105 INTO w_pa0105
        WHERE pernr EQ w_pa0002-pernr.
        w_output-pernr      = w_pa0002-pernr     .
        w_output-werks      = w_pa0001-werks     .
        w_output-gsber      = w_pa0001-gsber     .
        w_output-btrtl     = w_pa0001-btrtl      .
        w_output-name1      = w_t500p-name1      .
        w_output-btext      = w_t001p-btext      .
        w_output-nachn      = w_pa0002-nachn     .
        w_output-vorna      = w_pa0002-vorna     .
        w_output-usrid_long = w_pa0105-usrid_long.
        APPEND w_output TO t_output.
        CLEAR w_output.
      ENDLOOP.
    ENDLOOP.
ENDLOOP.
ENDLOOP.
Reward if usful,
Thanks,
Srikanth.A

How to retrive data from this inernal table

hi,
could u please explain clearly how to retrive the records from this structure
data: begin of itab.
include structure sflite.
data:end of itab.
how to retrive data from this structure could u plz give me a code with example.

Hi,
TYPES: BEGIN OF struc1,
                val1 TYPE c,
                val2 TYPE c,
             END OF struc1,
         BEGIN OF struc2,
               val type struc1,
               val3 TYPE c,
               val4 TYPE c,
            END OF struc2.
DATA: l_f_str1 type struc1,
      l_f_str2 type struc2.
START-OF-SELECTION.
l_f_str2-val-val2 = 'a'.
write : / l_f_str2-val-val2.
END-OF-SELECTION.

HOW to retrive data from SAP Tabel

Hi Friends,
   1)Can you please explain how to retrive data from SAP table(example AFRU).
   2) we had requriment based on the qunatity , Product name and date we need to display KPI's .KPI is based no products manfactured per day with some conditions
Regards
Srikanth

Hi Udayan,
    I want to retrive SAP Table data from xMII.can you please explain elabarately how to call "RFC_READ_TABLE" from xMII.
please do the needful
Thanks
Srikanth

Database.LoadDataSet() method throwing error while retriving data from IBM DB2 database

Database.LoadDataSet() method is throwing error during retriving data from empty table of IBM DB2 database. It is giving error code "SQL0100W".
“Error Message: 0NO_DATA [02000] [IBM] [DB2 / NT] SQL0100W FETCH, whether there is a line to be UPDATE or DELETE, or of the query result is an empty table .
SQLSTATE = 02000”

Hello SharayuPandit,
For issues regarding DB2, i suggest that you could post it to DB2 related forum:
https://www.ibm.com/developerworks/community/forums/html/forum?id=11111111-0000-0000-0000-000000000842
Regards.
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Select data from Table1 based on Table2

Hi Guys,
Can you guide me up on how to select data from Table1 based on Table2?
I want to fetch data which is not there in table2 in my table1 select query.
Is that I have to do it with the loops after I select data from both tables or can it be handled directly in my select query?
Please suggest.
Regards,
Kumar.

hi
Try This
In Where condition filedname (Not Equal) < > itab2-fieldname.
select * from itab1
into table lt_tab.
seect * from itab2
into table lt_tab
for all entries in lt_tab
where name < >(Not Equal to)itab2-fieldname.

Function module to fetch data from table SETLEAVES

Hi All,
We have a requirement to fetch the data from table SETLEAVES based on the setclass,subclass and group. As the table holds hierarchical data, Please let me know a FM which fetches all the hierarchical data from the table SETLEAVES.
Regards
Shiva

Try:
    exporting
      e_class                     = '0102'
      e_setid                     = setid
      e_kokrs                     = my_kokrs
      e_mandt                     = sy-mandt
      e_master_data               = 'XXX'
      e_structure                 = 'X X0200'
      e_replace_class             = space
      e_replace_unit              = space
      e_suffix                    = space
      e_old_line_level            = 1 "l_ol_level
    tables
      t_nodes                     = it_ceg_nodes
      t_values                    = it_ceg_values
    changing
      c_info                      = c_info
      c_overwrite                 = c_overwrite
    exceptions
      no_controlling_area         = 1
      no_chart_of_account         = 2
      different_controlling_areas = 3
      different_chart_of_accounts = 4
      set_not_found               = 5
      illegal_field_replacement   = 6
      illegal_table_replacement   = 7
      fm_raise                    = 8
      convert_error               = 9
      no_overwrite_standard_hier = 10
      no_bukrs_for_kokrs          = 11
      others                      = 12.
Rob

Need to download the data from BSEG based on company code and fiscal year

Hi All,
Please suggest me the solution to download the data from BSEG based on company code and fiscal year. As data in BSEG for the fiscal year2009 is 27 lakhs (= 2.7 million) for the specified company code.
<removed>
Thanks & Regards,
Koti
Edited by: Thomas Zloch on Mar 26, 2010 4:28 PM - please use English metrics only!

May I ask what you mean by solution? You can download from SE11, but where are you going to store 2.7 million rows and what tool are you going to use to store it?
You probably need a (small) program that extracts what you want, then opens a dataset in an appropiate server-system folder, and transfers the data rows to the dataset as fixed-length or tab-delimited file. It's been done many times, so suggest that you search.

Latest posting date from table MKPF

hi all,
I want to retrive the latest posting date from table MKPF. Here I am using the MARD,MSEG,MKPF tables to get the latest posting date.
if not it_mard[] is initial.
select amblnr amjahr amatnr awerks algort bbudat
into table it_mseg_mkpf
   from mseg as a mkpf as b
   on amblnr = bmblnr
and amjahr = bmjahr
for all entries in it_mard
where a~matnr = it_mard-matnr
and    a~werks = it_mard-werks
and   a~lgort   = it_mard-lgort.
if sy-subrc eq 0.
sort it_mseg_mkpg decending by matnr werks lgort budat.
endif.
loop at it_mard.
clear it_mkpf_mseg.
read table it_mseg_mkpf with key matnr = it_mard-matnr
                                                  werks = it_mard=werks
                                                  lgort    = it_mard-lgort
                                                  binary search.
     if sy-subrc eq 0.
     it_final-budat = it_mseg_mkpf-budat.
     endif.
endloop.
from the above code i need to rereive the latest posting date    , but when I am reading from internal table it is giving the sy-subrc is 4. i know when we use binary search , the standard table should be ascedning order. but here I need to use descedning order.
please hhelp i this.
regards,
Ajay

Hi,
1. Check Storage location (LGORT) value available in the internal
    table it_mseg_mkpf. Some case no value.
2. Remove the binary search after u try again. Like below.
loop at it_mard.
clear it_mkpf_mseg.
read table it_mseg_mkpf with key matnr = it_mard-matnr
                                                  werks = it_mard=werks
                                                   lgort = it_mard-lgort.
if sy-subrc eq 0.
it_final-budat = it_mseg_mkpf-budat.
endif.
endloop.
3. sort it_mseg_mkpg DESCENDING BY budat matnr werks lgort.
4. For all material (it_mard) may be or may not be there in the MSEG table.
    So for some case SY-SUBRC = 4 will give.
Thanks,
Durai.V
Edited by: Durai V on Sep 9, 2008 6:50 AM

Getting data from table BSEG taking too long ... any solutions.

Hello people I am currently trying to get data from table BSEG for one particular G/L Account Number With restrictions using For All Entries.
The problem is that even with such tight restrictions its causing my report program to run way too slow. I put an option where you dont have to access table bseg. And it runs just fine. (all of this is done during PRD Server).
My question is
1.) How come BSEG seems to make the report slow, even though I put some tight restrictions. <b>Im using For All Entries where Zuonr eq i_tab-zuonr</b>it seems to work fine in DEV and <b>hkont EQ '0020103101'</b>(Customer Deposits).
2.) Is there a way for me to do the same thing as what I mentioned in #1 but only much faster.
Thanks guys and take care

Hi
It should be better you don't read BSEG table if you haven't the keys BUKRS and BELNR, because the reading could take many times if there are many hits.
If you want to find out the records of G/L Account it's better read the index table BSIS (for open items) and BSAS (for cleared items), here the field HKONT is a key (and ZUONR too). So you can improve the performance:
DATA: T_ITEMS LIKE STANDARD TABLE OF BSIS.
SELECT * FROM BSAS INTO TABLE T_ITEMS
FOR ALL ENTRIES I_ITAB WHERE BUKRS = <BUKRS>
                           AND HKONT = '0020103101'
                           AND ZUONR = I_ITAB-ZUONR.
SELECT * FROM BSIS APPENDING TABLE T_ITEMS
FOR ALL ENTRIES I_ITAB WHERE BUKRS = <BUKRS>
                           AND HKONT = '0020103101'
                           AND ZUONR = I_ITAB-ZUONR.
Remember every kind of item has an own index tables:
- BSIS/BSAS for G/L Account
- BSIK/BSAK for Vendor
- BSID/BSAD for Customer
These table have the same informations you can find out from BSEG and BKPF.
Max

How to retrive data from selected checkboxes with fieldnames

hi experts,
how to retrive data from selected checkboxes with fieldnames into another alv grid report.(here the fieldnames selected from table names is dynamically).
thankx in advance
rani.k.

Hi,
Use user_command in the alv grid and then
do the follwoing code
FORM user_command1 USING lv_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Declaration of local Variables
DATA : lv_ref1 TYPE REF TO cl_gui_alv_grid.
DATA lv_cnt TYPE i.                                    "+INS SUHESH 12.07.2008
Check function code
CASE lv_ucomm.
    WHEN 'ONLI'.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = lv_ref1.
      CALL METHOD lv_ref1->check_changed_data.
now loop ur final internal table where check = 'X'.
now pass data to other internal table..Now the internal table will be having values that the user selcetd on the screen.
Hope this helps.
Regards,
Nagaraj

Program to retrive data from table based on its name

Similar Messages

Maybe you are looking for